Excel VBA 質問スレ Part54

**デフォルトの名無しさん** · 2018/05/26(土) 20:37:37.74

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

最近プロによる書き込みが多々見うけられますが
彼らに絡むと話がこじれるので質問したい方は適当にスルーしてください

※前スレ
Excel VBA 質問スレ Part53
http://mevius.5ch.net/test/read.cgi/tech/1524823358/

**デフォルトの名無しさん** · 2018/05/31(木) 08:56:49.68

プログラマこそExcel使うべきですよ。
そんなちまちまIDEの拡張書いてるよりずっと早いですから。

**デフォルトの名無しさん** · 2018/05/31(木) 08:57:37.13

VBAなんて無価値なので転職で有利にやるわけ無い

**デフォルトの名無しさん** · 2018/05/31(木) 09:03:40.36

いやいや、これ使えるのと使えないのではずいぶん差が付きますよ。
たとえば、見積もりシートなんてどこにでもあると思いますが、結局、利益は見積もりで決まるわけじゃないですか。
見積もりシートをいじれるのといじれないのでは、幹部と下っ端の違いが生まれるわけですよこれ。
いじれる人が考えたパラメーターでいじれない人は入力するだけなわけですから、いじれなかったら結局事務の女とやることが変わらないわけですよね。
絶対覚えた方がいいですよ。

**デフォルトの名無しさん** · 2018/05/31(木) 09:06:39.01

もうね、Excel使えなかったら社会人として終わってますから。
社会人の基本ですからねこれ。

**デフォルトの名無しさん** · 2018/05/31(木) 09:10:13.06

Excelの使いこなしだけでも、年収200万くらいは変わるんじゃないですか？

**デフォルトの名無しさん** · 2018/05/31(木) 09:13:13.67

見積もりとか今時Webアプリで共有出来るようにしてるだろ
なんでエクセルでやるの？

**デフォルトの名無しさん** · 2018/05/31(木) 09:15:03.40

>>54
ウェブアプリで共有してたら他社と横並びだからに決まってるじゃないですか。
そんな当たり前のこと聞いてからかってるんですか？

**デフォルトの名無しさん** · 2018/05/31(木) 09:15:52.87

利益は見積もりで決まる。
見積もりシートは門外不出。
あたりまえですよね？

**デフォルトの名無しさん** · 2018/05/31(木) 09:16:51.25

電話は3秒以内にとる。
見積もり依頼は一時間以内に返事する。
簡単なルールですから必ず守ってください。

**デフォルトの名無しさん** · 2018/05/31(木) 09:18:01.41

社内共有に決まっとるだろ

**デフォルトの名無しさん** · 2018/05/31(木) 09:19:56.82

社内共有ならExcelでいいじゃないですか。
そもそも、外に出せないノウハウを自分で書けるのがExcelの良いところなんですよ。
なぜ経営者がExcelっ子を優遇するのか。
それはノウハウの漏洩を恐れるからなんです。

**デフォルトの名無しさん** · 2018/05/31(木) 09:22:18.46

Excel使えない時点で人間として駄目ですからねこれ。
結婚するときはExcel使えるかどうか、本当に使いこなせているかどうか、ちゃんと確かめた方が良いですよ。

**デフォルトの名無しさん** · 2018/05/31(木) 10:09:06.63

エクセルファイルって同時接続出来るの？
社外からもエクセルファイルにアクセスして確認とか出来るの？
外にいる人にも同時に見れるの？
もしかして今のエクセルはそーなのかね

**デフォルトの名無しさん** · 2018/05/31(木) 10:14:30.55

>ID:lUyHhYKP
平日昼間に連投
終わってるのはあなた

**デフォルトの名無しさん** · 2018/05/31(木) 10:16:57.14

>>50
職種によるとしか言えない

**デフォルトの名無しさん** · 2018/05/31(木) 10:52:49.84

時々、無闇矢鱈にExcelを憎悪する（笑9人間が出没するな ww
何かあったんか？とききたくなるわw

**デフォルトの名無しさん** · 2018/05/31(木) 11:23:22.04

>>61
今のオフィスはそうなんですよ。

**デフォルトの名無しさん** · 2018/05/31(木) 11:28:28.93

というかWindows自体、異なるデバイス間でドキュメント共有しますからね。
いずれWindowsは無料になるんじゃないかと思います。

**デフォルトの名無しさん** · 2018/05/31(木) 11:31:07.33

オフィスの再インストールもプロダクションキーがいらなくなってたり、最近は結構変わってきてます。

**デフォルトの名無しさん** · 2018/05/31(木) 12:09:20.80

ニートエクセラーさん暇そうで羨ましい

**デフォルトの名無しさん** · 2018/05/31(木) 15:49:29.02

>>68
時間というものは他人が作ってくれるものじゃないんですよね。
自分で作らないといけない。
そこでExcelなんですよ。

**デフォルトの名無しさん** · 2018/05/31(木) 17:58:30.84

他人に神エクセルとスパゲティVBAを強要して相対的に時間的優位に立つ

**デフォルトの名無しさん** · 2018/05/31(木) 19:09:00.60

Redmineを使いだしてからエクセルの価値が減った
ブラウザで情報共有するのが基本形になるとダウンロードしてファイルを開くまで時間がかかるエクセルは自然とNGになる

**デフォルトの名無しさん** · 2018/05/31(木) 19:15:21.78

>>71
エクセルなんて時代遅れだよな
Webブラウザで共有が一番
端末も選ばないし

**デフォルトの名無しさん** · 2018/05/31(木) 19:26:31.35

>>72
時代遅れではないかな
ただ適材適所ということ
エクセルにはエクセルの得意なシーンがある
小規模な表形式のデータ編集をするならエクセルが最適だと思う
逆にスクリプティング、ドキュメンテーション、情報共有にエクセルを使うのは無理がある

**デフォルトの名無しさん** · 2018/05/31(木) 20:16:57.77

>>71
いやいやいやいや、ダウンロードとかいつの時代の話してるんですか。

**デフォルトの名無しさん** · 2018/05/31(木) 20:17:37.59

>>72
Excelも端末選びませんが？

**デフォルトの名無しさん** · 2018/05/31(木) 21:35:20.68

>>71
Redmime?
Excel の使い方間違えてるだけじゃね？

**デフォルトの名無しさん** · 2018/05/31(木) 21:50:29.63

>>76
そのとおり
使い方を間違えてる人が多すぎる
正しくツールを選定して本当にエクセルでやるべきことをエクセルでやるようにするとエクセルの出番がどんどん減っていく

**デフォルトの名無しさん** · 2018/05/31(木) 22:13:48.96

そもそもニートにエクセルいらんからなw

**デフォルトの名無しさん** · 2018/05/31(木) 22:51:52.79

ホントにExcelが無くなってシステムから必要な資料が一発で出てきてくれたら助かるけど、そんなの聞いたことない。
あるなら教えてほしい。

**デフォルトの名無しさん** · 2018/05/31(木) 23:27:48.58

>>79
オープンソースの全文検索エンジン使っちゃいなヨ

**デフォルトの名無しさん** · 2018/05/31(木) 23:50:45.34

XP時代の人みたいだな。
Excelが起動したいならコルタナさんにエクセルと言えばいいだけだし、何かを探したいならコルタナさんに言えばいいだけだろ。
オープンソースの検索エンジンとか、セットアップしてるだけで時間の無駄。

**デフォルトの名無しさん** · 2018/05/31(木) 23:54:02.98

コルタナって全社の膨大なドキュメントから一瞬でほしいもん見つけてくれんの？

**デフォルトの名無しさん** · 2018/05/31(木) 23:56:44.58

>>82
もしかして、エクスプローラも使ったことないんじゃないのか。
共有ってボタンあるだろ。
何のためにあると思ってんの。

**デフォルトの名無しさん** · 2018/05/31(木) 23:58:27.41

あと呼び捨てやめてくれる？
コルタナさんはちゃんとさん付けで呼んでよね。

**デフォルトの名無しさん** · 2018/06/01(金) 00:01:53.99

>>83
フォルダ共有のエクセル開くのとんでもなく遅いんだけど？
あんな遅いの我慢してたらストレスで禿げるよ

**デフォルトの名無しさん** · 2018/06/01(金) 00:03:47.45

XP時代で止まってるんだろ。
まあいいから使ってみ。

**デフォルトの名無しさん** · 2018/06/01(金) 00:10:31.32

win10だけどガッカリ性能だったわ
当たり前だけどただのデスクトップOSが全文検索サービスに勝てるわけなかったんだよね

**デフォルトの名無しさん** · 2018/06/01(金) 00:14:21.33

>>87
いやいやいやいや、使ってたらフォルダ共有とか言い出さないだろ。

**デフォルトの名無しさん** · 2018/06/01(金) 00:15:06.45

使ってるんだったら、コルタナさんにナタルコって言ってみ？

**デフォルトの名無しさん** · 2018/06/01(金) 23:17:53.68

何も知らない私が、3年間java頑張ったら
このスレで、あなた方と会話できるようになれますか？

**デフォルトの名無しさん** · 2018/06/02(土) 02:28:30.25

ＶＢＡでの記述について質問です

関数が入っているセルがあり、計算されると関数を抜いてに値のみにしたいのです。
処理の数が多く、値のみ貼り付けでは追い付かない状況です。

ＶＢＡ初心者で調べてもわからず困っています。
コードをご教授ください。

**デフォルトの名無しさん** · 2018/06/02(土) 02:55:03.40

>>91
セルの左上の▽のクリック（要は全シート選択）して
右クリックでコピー

新しいシートを開いて、
右クリックして、
貼り付けのオプションで
値のみを貼り付け（１２３のアイコンね）

じゃあかんの？
ちな２０１３

**デフォルトの名無しさん** · 2018/06/02(土) 02:55:58.41

ひとまずマクロ記録してみようや

**デフォルトの名無しさん** · 2018/06/02(土) 03:08:10.65

>>91
コードを求める前に、手動の場合（VBA使わない場合）はどう操作する作業なのかもう少し具体的に書こうや
>>92と同じことをブック内の全シートに対して適用したいの？

**デフォルトの名無しさん** · 2018/06/02(土) 03:12:05.21

range.Value = range.Value

**デフォルトの名無しさん** · 2018/06/02(土) 07:50:54.38

>>91
なんでそんなことするの？
また神エクセル？

**デフォルトの名無しさん** · 2018/06/02(土) 19:15:46.37

結果だけを人に渡したい需要は世界中に存在する
勝手にいじられると困るとか計算式を知られたくないとか

**デフォルトの名無しさん** · 2018/06/02(土) 19:17:09.23

Ctrl+A
↓
Ctrl+A
↓
Ctrl+C
↓
右クリック
↓
形式を選択して貼り付け
↓
値

**デフォルトの名無しさん** · 2018/06/02(土) 19:18:24.05

まあPDF化すればいいんですけどね

**デフォルトの名無しさん** · 2018/06/02(土) 19:33:47.57

foreach、cells.copy、special pasteで適当にすれば？

**デフォルトの名無しさん** · 2018/06/02(土) 19:38:03.90

・・・まあいいか

**デフォルトの名無しさん** · 2018/06/02(土) 19:42:26.21

エクセルってめんどくせえなあ

**デフォルトの名無しさん** · 2018/06/02(土) 20:09:37.67

エクセルサーガ

**デフォルトの名無しさん** · 2018/06/02(土) 20:26:52.46

>>91
入力データは、、手入力するわけだよね

**デフォルトの名無しさん** · 2018/06/02(土) 20:45:57.21

>>102
だから、君は無理してExcel使わなくてよろしいがな。嫌いなんだろ？

**デフォルトの名無しさん** · 2018/06/02(土) 20:53:37.92

Excelもマクロも嫌いだけど仕事だから仕方なく使ってる
親のコネでやっと入ったバイトだからやめるわけにもいかない
5chに愚痴を書き続けるしかない人生

**デフォルトの名無しさん** · 2018/06/02(土) 21:09:15.11

エクセル嫌いって意訳するとバカだよ？

**デフォルトの名無しさん** · 2018/06/02(土) 21:17:48.08

>>105
集団で働く以上は嫌でも周りの風習・伝統に合わせないとネ
チームや客がエクセルを使ってたらエクセルを使わざるをえないだろう
マネージャさんや手動テスト要員のアルバイタなど関係者がみんなITのプロとは限らないのでこれは仕方がない
もちろん個人端末にはエクセルをインストールすらしてない(というかそもそもLinux)
オープンソースやプライベートのプロジェクトでエクセルを使う理由は全くないからネ

**デフォルトの名無しさん** · 2018/06/02(土) 21:27:22.06

オープンソースやプライベートのプロジェクトがないやんwバカw

**デフォルトの名無しさん** · 2018/06/03(日) 15:56:25.38

>>108
Excelをバッスィーンと窓から放り投げ、貴様らのような雑魚と一緒に仕事はできん！、颯爽とLinuxの国へ向かうというのはどうか。

**デフォルトの名無しさん** · 2018/06/03(日) 16:00:02.23

表やリストから抽出したデータを加工してソースの一部にするのは良くありがちなので、プログラマこそExcel使いこなすべきだと思うけどなあ。
その表がExcelならもちろん、HTMLのテーブルであっても容易に取り込めるのがExcelの良いところなわけで。

**デフォルトの名無しさん** · 2018/06/03(日) 16:04:40.23

昔よくExcelは雑魚の道具、真のプログラマはSedとAwkを使う！とか言ってる人いたけどさ。
そんなものこねくり回してる暇あったら、Excel使ってマウスでちょちょいとやれば済むことなんだよね。
やったことの過程がシートに残る、結果ももちろん残る、すべて残る、そして渡せる。
これはとても素晴らしいことなのです。

**デフォルトの名無しさん** · 2018/06/03(日) 16:09:07.25

>>111
テーブルデータはcsvか次点でjsonあたりでいいよ
ベンダロック強いエクセルはプログラマには合わない

**デフォルトの名無しさん** · 2018/06/03(日) 16:13:34.70

>>112
ソースデータとコマンドがテキストで全部残ってバージョンコントロールできる方が良いだろ

つか渡せるのはエクセル関係なくね？
エクセル以外は転送禁止的な規約があるのかな

**デフォルトの名無しさん** · 2018/06/03(日) 16:32:48.59

そりゃExcelを使ったことのない人の感想だわ。
使ってて使いづらいというのはわかるんだけど、使ったことないけど使いづらいって人が多くて困るわ。

**デフォルトの名無しさん** · 2018/06/03(日) 16:33:58.69

俺はソースツリーに.oneと.xlsxを含めてる。

**デフォルトの名無しさん** · 2018/06/03(日) 16:51:51.67

日常的な繰り返し作業ならシェル開いてコマンド打った方が楽なんだよな
たとえばだけど表形式のデータからgetterをコード生成したいなぁって思ったら
import-csv -path "props.csv" | % {
"public $($_.Type) get$($_.Name)() { return $($_.Name); }" }
って1行打つだけじゃん？
エクセルだとキーボードとマウスでガチャガチャやらんといかんしデータもcsvからシートにインポートしなきゃならん
めんどくさすぎ

**デフォルトの名無しさん** · 2018/06/03(日) 16:55:04.61

csv作るまでの過程で、Excel組は帰ってるんじゃ？

**デフォルトの名無しさん** · 2018/06/03(日) 17:20:04.55

>>117
psのcsv読み込みは#混ざってるとデータ消えるって本スレでやってるじゃん
1行どころか使い物にならない

**デフォルトの名無しさん** · 2018/06/03(日) 17:42:02.20

>>119
確かにそれは意味不明な仕様だけど実用上困る事はないよ
import-csvは#あっても消えないし
catからConvertFrom-Csvに繋げたいならrawオプションをつければいい
任意のコマンド結果をConvertFrom-Csvに繋げたいならOut-Stringを挟めばいい
エクセルで作業する忍耐力があるならカンタンだな

**デフォルトの名無しさん** · 2018/06/03(日) 20:11:49.73

なにかいい入門書を教えてください
入門者のexcel vbaという本は、簡単でしたので、次のステージに行きたいです

**デフォルトの名無しさん** · 2018/06/03(日) 20:15:21.48

VBAなんか本いらん。ネット情報だけで充分過ぎる
とにかく色々かけ。そして作れ

**デフォルトの名無しさん** · 2018/06/03(日) 20:18:59.73

>>122
レスありがとうございます
満員電車電車移動中に勉強したいので、本がいいのですよね

**デフォルトの名無しさん** · 2018/06/03(日) 20:27:55.57

オープンソースソフトのコードでも読めばいい

**デフォルトの名無しさん** · 2018/06/03(日) 20:30:05.13

>>119
このスレで他ツールのCSVの取り扱いにケチつけるとかギャグか何か？
世界で一番CSVぶっ壊してるの間違いなくExcelだぞ

**デフォルトの名無しさん** · 2018/06/03(日) 22:06:41.01

　　　　A
1　2018/04/23
2　2018/04/25
3　2018/05/10
4　2018/05/28
5　2018/06/03←今日

のようなデータがあるとき、昨日以前で直近の日付のある行を取得したい場合のコードを教えていただけませんでしょうか？上の例の場合、4行目となります。

**デフォルトの名無しさん** · 2018/06/03(日) 23:50:05.19

countaで最大値を取って-1した行を取れば良いんじゃないか？

**デフォルトの名無しさん** · 2018/06/03(日) 23:54:48.25

>>127さんお返事ありがとうございます。
ただ、それだと5行目がない場合に3行目が返されてしまいますよね。今日の値があるなしに関わらず昨日以前の値がほしいのです。

**デフォルトの名無しさん** · 2018/06/04(月) 00:08:16.94

>>128
行数を取得したいのか、それとも値（シリアル値）を取得したいのか。
日付データは当然、昇順ですよね？

**デフォルトの名無しさん** · 2018/06/04(月) 01:09:49.39

グラフの判例項目を足したり削除したりしたいのだがムズイ
マクロの記録で録ったのを流用してもうまくいかない時があって難儀してるわ

**デフォルトの名無しさん** · 2018/06/04(月) 01:25:33.02

>>126
これは普通にmatchでいけるよね。
バイナリサーチモードで。

**デフォルトの名無しさん** · 2018/06/04(月) 01:48:09.18

>>129
何行目にあるのかを知りたいのです。
昇順です。

**デフォルトの名無しさん** · 2018/06/04(月) 03:29:47.34

>>132
r = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 1) = DateValue(Date) Then r = r - 1

**デフォルトの名無しさん** · 2018/06/04(月) 08:28:12.92

>>133
ニホンゴムズカシイネ^^
VBAよりまず読解力

**デフォルトの名無しさん** · 2018/06/04(月) 08:41:42.44

もうすぐ廃止されるかもしれんVBAを本気で覚えようとするモチベが湧かないわ

**デフォルトの名無しさん** · 2018/06/04(月) 08:49:17.91

元々本気でやるようなもんじゃないし

**デフォルトの名無しさん** · 2018/06/04(月) 09:31:05.61

本当ならめでたいことだが
VBA廃止ってどこ情報だよ

**デフォルトの名無しさん** · 2018/06/04(月) 09:38:25.44

C#になるんだろ？

**デフォルトの名無しさん** · 2018/06/04(月) 09:40:53.06

Pythonがどーたらって噂のことだろ？

**デフォルトの名無しさん** · 2018/06/04(月) 09:58:55.52

python使いたいならLibreOffice使えば？

**デフォルトの名無しさん** · 2018/06/04(月) 11:44:27.43

>>140
お前が顧客提案資料作れや

**デフォルトの名無しさん** · 2018/06/04(月) 12:59:52.11

>>132

dim i as integer
i=1
do
i=i+1
loop while cells(i,1) < date
msgbox i-1

エラー処理とからは無しだけど。

**デフォルトの名無しさん** · 2018/06/04(月) 13:05:50.36

最終的にPDFにして送るんだからExcelにこだわる意味って…

**デフォルトの名無しさん** · 2018/06/04(月) 16:51:56.13

年賀状やチラシ作りに便利だから。

**デフォルトの名無しさん** · 2018/06/04(月) 16:53:08.76

昔の職人さんが包丁一本で生きていけたように、今はExcel一本あれば世界中どこでも生きていけるからな。

**デフォルトの名無しさん** · 2018/06/04(月) 22:01:00.33

>>145
1行目に入ってる項目名がスワヒリ語だったとしても？

**デフォルトの名無しさん** · 2018/06/05(火) 00:37:41.87

オブジェクト指向追加すればそれでいいよ

**デフォルトの名無しさん** · 2018/06/05(火) 08:34:48.88

フォルダ内にあるファイルがそれぞれどんな中身なのか、一つづつプレビューか開くかしないと判らず死にそう

1つずつ開いてスクリーンショット取らせるようにマクロ組んでみたけど、タイミング、ウインドウ表示の問題で上手く回収出来ないみたい