Excel VBA 質問スレ Part52

**デフォルトの名無しさん** · 2018/01/27(土) 20:25:05.67

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/

※前スレ
Excel VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/

**デフォルトの名無しさん** · 2018/04/08(日) 01:24:05.18

>>617
ワークブックファイルを開いてないから

**デフォルトの名無しさん** · 2018/04/08(日) 02:53:42.68

>>617
ファイルシステムの場所を示す「パス」はpassじゃなくてpathだよ

**デフォルトの名無しさん** · 2018/04/08(日) 07:04:38.01

まとめるとこう
Set Wb2 = Workbooks.Open(ThisWorkbook.Path　& "\" & strfirstfilename)

**デフォルトの名無しさん** · 2018/04/08(日) 11:56:26.77

>>618
開いてなかったですね・・・。
ありがとうございます

**デフォルトの名無しさん** · 2018/04/08(日) 11:57:47.06

>>619
pathですね。お恥ずかしい・・・。
ありがとうございました。

**デフォルトの名無しさん** · 2018/04/08(日) 11:59:21.51

>>620

このプログラムの直後に
Workbooks.Open (ThisPath & "\" & strfirstfilename)
があったので、それをsetの前に持ってきて成功しました。

ありがとうございました。

**デフォルトの名無しさん** · 2018/04/08(日) 12:36:53.53

>>620だと昔のExcelじゃ動かなかった歴史的経緯がある

**デフォルトの名無しさん** · 2018/04/08(日) 19:54:17.74

ダイアログシートって使ってる人おる？
ちょっと前客先で初めて見てたまげたわ

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

>>624
openだと開かない？って事？？何故？

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

>>626
Openで開くけど、Workbookオブジェクトは返ってこなかったから
別途Workbooks(…)で取得する必要があった

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

>>627
そんな事が...
だとすると、「その頃」であれば、>>623の対策が正解だったわけだw

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

質問です。

ピボットテーブルのフィルターで特定の日付を絞りこみたいのですがどうしたら良いでしょうか？
マクロの記録を使用したり、「ピボットテーブルフィルター日付」などで検索しましたが出来ませんでした。
関係があるかはわかりませんが既存の日付フィルターも選択出来ない状態になっています。

ご存知の方がいれば教えていただけないでしょうか？
よろしくお願いいたします。

**デフォルトの名無しさん** · 2018/04/09(月) 10:59:34.52

質問ですとか教えてで始まる質問をするのは厚かましい馬鹿ばっか

**デフォルトの名無しさん** · 2018/04/09(月) 12:37:19.47

そーいうスレなので

**デフォルトの名無しさん** · 2018/04/09(月) 19:03:54.95

>>629
それはもしかしてピボットテーブルを使わなくても出来る内容なんじゃないかと思えてならない

**デフォルトの名無しさん** · 2018/04/09(月) 19:30:20.73

>>632
返信ありがとうございます。
仕事で使用しているのですが別シートにデータを入力して、ピボットテーブルの行エリアに型式、列エリアに出荷日と納品先を指定していて、翌日出荷分などを抽出したい状態です。

**デフォルトの名無しさん** · 2018/04/09(月) 20:11:24.02

>>633
死ねよ
スレタイ読め

**デフォルトの名無しさん** · 2018/04/09(月) 20:49:14.80

な？厚かましい馬鹿だろ？

**デフォルトの名無しさん** · 2018/04/09(月) 20:53:05.38

過疎るより良くね？
嫌ならスルーしてれば？

**デフォルトの名無しさん** · 2018/04/09(月) 22:14:46.27

デバッグ停止した時をイベントとして動く仕掛けが欲しい
画面描画更新抑止解除とか書くの面倒

**デフォルトの名無しさん** · 2018/04/10(火) 02:11:50.06

>>637
しょっちゅうやらかすんならIMEに単語登録しといてイミディエイトウィンドウで実行

**デフォルトの名無しさん** · 2018/04/10(火) 07:54:34.58

>>633
フィルターだか、スライサーだかで普通に出来なかったっけ？
出来ないならなんか設定がおかしいと思う。
まずはデータピックアップして、小規模のデータで試してみたら。

あと、スレチな上に質問レベルも低いからその程度のことはもっと自分で調べるくせをつけた方がいい。

**デフォルトの名無しさん** · 2018/04/10(火) 09:38:25.63

ブックやシートの構成がどうなっていて、どうしたいのかさっぱり判らんから
テスト用のデータを付けたブックをうｐしたほうが早い。
んで、自分は何処まで出来たのかをも付けて

そしたら、それに対して少しはレスが付くかもだなw

**デフォルトの名無しさん** · 2018/04/10(火) 09:44:16.04

｢VBA｣

**デフォルトの名無しさん** · 2018/04/10(火) 09:46:10.36

>>639
答えたくないなら黙ってればいいだけ

**デフォルトの名無しさん** · 2018/04/10(火) 15:14:24.81

姉VBAのリリースはよ(´・ω・｀)b

**デフォルトの名無しさん** · 2018/04/10(火) 18:59:46.71

>>639
ここで聞くこともネットで調べる事の一つ

**デフォルトの名無しさん** · 2018/04/10(火) 19:03:28.83

自分がログインした環境で開く全てのブックに右クリックメニューを追加する方法教えて

**デフォルトの名無しさん** · 2018/04/10(火) 19:11:15.95

googleはエスパーしてくれないからな。ここなら大体何をやりたいか汲んで答えてくれるだろうと。

オレなら、まずジュンク堂に行ってエクセル関連本を片っ端から立ち読みして自分の欲しているモノが書いてある
本を買うね。その結果、「なんだ、簡単じゃねえか本買って損した」となったとしてもそれが血になり肉となるって事だよな。

**デフォルトの名無しさん** · 2018/04/10(火) 19:31:57.73

バカだからエクセル本を読むのかエクセル本を読んだからバカになったのか
それが問題だ

**デフォルトの名無しさん** · 2018/04/10(火) 20:18:58.96

>>647
字を読めない、本買う金がないトンスルジジイは書き込まないでｗｗ

トンスルランドへ帰ってウンコ酒醸造に勤しんでくれやキム

**デフォルトの名無しさん** · 2018/04/10(火) 20:51:24.91

>>646
その知識を惜しげもなく教えてあげるのもVBAの裾野を拡げる事になりみんなが感謝する
ありがとう

**デフォルトの名無しさん** · 2018/04/10(火) 20:57:33.15

そもそもVBAの質問じゃないし
VBAの意味すらわからん馬鹿か、無視して書き込んでくる奴なんだろ

**デフォルトの名無しさん** · 2018/04/10(火) 22:56:03.73

>>647
今回は「バカだからエクセル本を読んだ」が正解の模様

↑ · 2018/04/11(水) 03:04:58.26

貧乏バカチョンキムジジイ

**デフォルトの名無しさん** · 2018/04/11(水) 07:57:48.69

ところで、VBAのPython対応っていつからの話なの？

**デフォルトの名無しさん** · 2018/04/11(水) 08:03:17.65

>>653
2045年から

**デフォルトの名無しさん** · 2018/04/11(水) 08:07:42.93

機械学習でpython3やりまくってるワシは生き残れるのかのう？

ちなみに丙午です

**デフォルトの名無しさん** · 2018/04/11(水) 18:17:41.89

>>645
アドインとCustomUI勉強してみな

**デフォルトの名無しさん** · 2018/04/12(木) 01:31:14.47

最近VBAを触り始めて、言語と言われてる理由がなんとなく分かったんだけど
これを習っていった時に、せけんて"難しい"と言われるのはどういう部分になるんだろう？
作業を

**デフォルトの名無しさん** · 2018/04/12(木) 01:32:05.63

うーん、途中送信しちゃった
出直してきます
おやすみなさい

**デフォルトの名無しさん** · 2018/04/12(木) 01:34:09.14

知恵遅れ馬鹿の日記帳かよ

**デフォルトの名無しさん** · 2018/04/12(木) 03:57:20.29

>>657
プログラミングが初めてなら、何もかも難しいと感じるだろうし、
他のプログラミング言語が1つだけ使える人にとっては、その言語とVBAの文法などの違いにいちいち驚く
複数の言語が使える人なら、Excel固有のオブジェクト階層あたりを面倒と感じるんじゃないかな

**デフォルトの名無しさん** · 2018/04/12(木) 05:30:51.69

>>659
自己紹介ですかBasic爺WW

**デフォルトの名無しさん** · 2018/04/12(木) 07:02:33.85

例えば一つのテキストファイルを扱う時のパス？アドレス？ってどうやって扱ってます？
2つ以上のモジュールで使う場合ってやっぱグローバル？

**デフォルトの名無しさん** · 2018/04/12(木) 07:07:34.20

>>662
一回の実行で処理するなら関数の引数で受け渡し

複数回実行するなら非揮発領域（隠しシートやレジストリ等）で受け渡し

**デフォルトの名無しさん** · 2018/04/12(木) 08:50:34.23

>>662
ユーザー定義型(構造体)作る

そのメンバー変数にファイル名用を定義
ユーザー定義型のインスタンス作ってモジュールにはそのリファレンスを渡す
グローバル変数は極力使わない

**デフォルトの名無しさん** · 2018/04/12(木) 11:40:14.81

>>662
処理内容による
別モジュールをCallで呼ぶなら引数で渡す

**デフォルトの名無しさん** · 2018/04/12(木) 13:54:18.13

>>664
そのユーザー定義型のインスタンスはどこにどういう形で保持しておくの？
複数回使うという話だったから。

**デフォルトの名無しさん** · 2018/04/12(木) 20:17:01.21

質問です。

条件付き書式でやろうと思ってましたが、データが10,000行になったため、VBAを使いたいと思います。

例えば、
データ範囲をRange("A1:Z100")として、
A1に入力された数値が1だったらA1からZ1を赤色にする、
A1に入力された数値が2だったら黄色、
A1に入力された数値が3だったら青色、という風にするにはどうしたらよいでしょうか？

A列に入力される文字は1～8の数値のみです。
コマンドボタンを押したときに一気に処理をしたいのですが、
A1が1ならA1からZ1の色を変える、というのがわかりません。

どなたかご教授いただけないでしょうか。
よろしくお願いします。

**デフォルトの名無しさん** · 2018/04/12(木) 20:26:52.62

>>667
全くわからないから全部教えろってこと？

**デフォルトの名無しさん** · 2018/04/12(木) 20:34:28.91

>>668

i = Ws2.Range("A10").End(xlDown).Row

With Worksheets("Sheet1").Range(Cells(9, 1), Cells(i, 28))
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A9=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.TintAndShade = 0.399945066682943
.Color = 13408767
End With

という条件付き書式のコードを考えましたが、これ以外の方法をさがしています。
A1が1ならA1からZ1の色を変える、というのが本当にわからないので、
ヒントだけでもいただけないかと・・・。

**デフォルトの名無しさん** · 2018/04/12(木) 21:15:46.98

>>669
よく、ネットや書籍で「マクロの記録で生成されたコードを基にほにゃららしよう」ってな記事を見かけるけど、
あんまり良くない方法な気がする。最初は退屈でも我慢してマトモな入門書を見ながら基礎をやった方がいい。

**デフォルトの名無しさん** · 2018/04/12(木) 21:19:08.35

10万件以上のデータ処理にはアクセスを推奨

それぞれに得意分野があるのだから使い分けなさい

エクセルVBAがらアクセスデータを引っ張る

でデータをエクセル側で計算なり加工なり表なりをやるのが良い

**デフォルトの名無しさん** · 2018/04/12(木) 21:36:24.97

>>670
ありがとうございます。
基礎知識がないのにネットで見つけた色んなコードをつなぎ合わせて作っていたので
無理がきました。

>>671
ありがとうございます。
今回扱うデータは最大1万件くらいでしたので、エクセルでも出来るかと・・・。
あとアクセスがないパソコンで使用することがあるので、
多少遅いのを覚悟でエクセルで作成していました。

ありがとうございました。
勉強します。

**デフォルトの名無しさん** · 2018/04/12(木) 21:36:49.41

>>669
まずはプログラムの基礎から始めないとダメだろうな。
forを使って自分で考えてご覧。

**デフォルトの名無しさん** · 2018/04/12(木) 23:53:14.20

ごらん。てwww
ソープのキモ客かよwwww

**デフォルトの名無しさん** · 2018/04/13(金) 00:00:04.74

メゾット君はソープとか行く上に嬢に対して「考えてごらん」とかリアルに言い出すのか。それはキモいな。

**デフォルトの名無しさん** · 2018/04/13(金) 00:08:44.43

>>675←ごらんて言った覚えがあるソープ通www

**デフォルトの名無しさん** · 2018/04/13(金) 01:03:21.93

風俗でなければ女性に相手してもらえないキモデブか

**デフォルトの名無しさん** · 2018/04/13(金) 01:12:37.40

ごらんと言われたからというわけではないですが、作ってみました。

Dim iro As Long

Workbooks("test.xlsm").Worksheets("sheet1").Activate

For iro = 10 To i
If Cells(iro, 1) = 1 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 33
ElseIf Cells(iro, 1) = 2 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 34
ElseIf Cells(iro, 1) = 3 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 35
ElseIf Cells(iro, 1) = 4 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 36
ElseIf Cells(iro, 1) = 5 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 37
ElseIf Cells(iro, 1) = 6 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 38
ElseIf Cells(iro, 1) = 7 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 39
ElseIf Cells(iro, 1) = 8 Then
Range(Cells(iro, 1), Cells(iro, 28)).Interior.ColorIndex = 40

End If

Next iro

なんだか長いコードになってしまいました・・・。
すっきり出来ると良いのですけど、今はこれが限界。
ありがとうございました。

**デフォルトの名無しさん** · 2018/04/13(金) 02:00:10.76

>>666
メインモジュールとして起床した場所に保持すればいいよ
シートイベントにそれを渡したい場合もインスタンスを参照させればいい

**デフォルトの名無しさん** · 2018/04/13(金) 06:43:49.41

ごらんってソープ用語なの？

**デフォルトの名無しさん** · 2018/04/13(金) 07:43:37.15

$('tr:first > td').css('background-color','orange');

JavaScript のjQuery なら、これで、
表の1行目(tr)のすべての列(td)の、背景色を変更できる

**デフォルトの名無しさん** · 2018/04/13(金) 09:50:34.75

>>681
で？馬鹿は黙っていればいいのに

**デフォルトの名無しさん** · 2018/04/13(金) 11:21:39.81

>>679
それだと>>664が言う「グローバル変数を極力使うな」が満たせないので困る

**デフォルトの名無しさん** · 2018/04/13(金) 11:53:44.26

>>678
VBAなんてテクニックに凝らなくていいよ
他人の書いた「俺頭いいwww」っていうVBAを読み解くぐらいなら、長々とベタに書いてあった方がマシ

**デフォルトの名無しさん** · 2018/04/13(金) 12:01:28.69

本当に初心者で困ってます。
画像みたいなマクロを組みたんですが、どなたかご教授お願い致します。

https://dotup.org/uploda/dotup.org1508286.png

**デフォルトの名無しさん** · 2018/04/13(金) 12:06:28.55

>>683
メインモジュールのローカル変数としてユーザー定義型のインスタンスを作って関数へ参照渡しするんだけど

シートモジュールからの参照はできないかな？(やったことないので何も言えない)

ユーザーフォームに参照させる方法はインスタンス作ってそのメンバー変数に参照を渡すように作れば良い

**デフォルトの名無しさん** · 2018/04/13(金) 12:08:15.06

>>683
抜け訂正

ユーザーフォームに参照させる方法はユーザーフォームのインスタンスを動的に作ってそのメンバー変数に参照を渡すように作れば良い

**デフォルトの名無しさん** · 2018/04/13(金) 12:14:57.86

>>686
いろんなとこから参照できるからグローバル変数と言うのであって、そういうものは極力作らない、が原則なんだよね

それともシートモジュールのローカル変数はグローバル変数と呼ばないって理屈？

**デフォルトの名無しさん** · 2018/04/13(金) 12:17:07.86

おっと

×　シートモジュールの
○　モジュールの

**デフォルトの名無しさん** · 2018/04/13(金) 12:28:49.89

>>688
その原則はグローバル変数しかない時代を経験してきたジジイ達の遺物なんやけどな
今どき無理してグローバル変数を禁止する必要はない

**デフォルトの名無しさん** · 2018/04/13(金) 13:08:18.95

そんなことないだろう
並列化が進んでますます大事になってるような気がするんだが

**デフォルトの名無しさん** · 2018/04/13(金) 14:34:26.06

.xlsxでVBAを使う方法を教えろ。
仕方なくワークシート関数で書いたら長過ぎると文句を言われる。ゲイツ氏ね。

**デフォルトの名無しさん** · 2018/04/13(金) 15:29:36.69

ゲイツ言う時点で老害

**デフォルトの名無しさん** · 2018/04/13(金) 17:03:22.93

Windowsを作ったビルゲイツは人類史上最大の貢献者なのは間違いない
貴方も恩恵を受けている

**デフォルトの名無しさん** · 2018/04/13(金) 17:58:16.00

>>685
関数じゃダメなのか？

**デフォルトの名無しさん** · 2018/04/13(金) 18:18:59.86

>>685 一発やらせて

Sub Macro1()
　　Application.Calculation = xlManual
　　For r = 1 To Cells(Rows.Count, "D").End(xlUp).Row + 1
　　　　If Val(Cells(r, "B")) > 0 And Val(Cells(r, "C")) > 0 Then
　　　　　　Cells(r, "E") = "=B" & r & "*C" & r
　　　　ElseIf InStr(Cells(r, "D"), "合計") > 0 Then
　　　　　　Cells(r, "E") = "=SUM(E" & r1 & ",E" & r - 1 & ")"
　　　　Else
　　　　　　r1 = r + 1
　　　　End If
　　Next
　　Application.Calculation = xlAutomatic
End Sub

**デフォルトの名無しさん** · 2018/04/13(金) 18:59:42.30

>>691
気がする程度しか言えん程無知やからそもそもそれが老害の悪習か真に価値のある原則なのか理解しとらんやろ？
お前がそうしたい時はいつでもグローバル変数使ってええんやでw

**デフォルトの名無しさん** · 2018/04/13(金) 20:24:06.11

それこそ>>685みたいなのはわざわざマクロなんか組まんでも数式で十分なんだけどな

**デフォルトの名無しさん** · 2018/04/13(金) 20:34:24.79

>>698
たくさんあっていちいち数式設定するのが面倒～！
とかじゃね

**デフォルトの名無しさん** · 2018/04/13(金) 21:31:25.90

>>698
「気がする」以上のことはなかなか言えんな
素人だしな

**デフォルトの名無しさん** · 2018/04/13(金) 21:41:28.09

皆さんに質問です
シートの標準機能や関数で出来ることでもわざわざVBAで作りますよね？
その方が仕事してる感じするし
プログラムやってる感でますもんね
違いますか？

**デフォルトの名無しさん** · 2018/04/13(金) 21:45:30.15

同じ数式で参照するセルを2箇所ずつ変えるだけ、みたいな単純な繰り返し作業だと、むしろミスを防ぐためにVBAを使ったりするけど

**デフォルトの名無しさん** · 2018/04/13(金) 22:11:00.99

違います。
他の人が使えないのでなるべく関数で処理、VBAはコピーとか貼り付けとか二つ以上のファイルでやり取りするとか関数では実装できないことに限定してます。

**デフォルトの名無しさん** · 2018/04/13(金) 22:34:56.44

VBAでユーザーフォーム作ってとかしてるんでしょ？
で、それに入力させてるんでしょ？

**デフォルトの名無しさん** · 2018/04/13(金) 22:36:59.11

シートに関数埋め込みたくない場合はvba使うかな？

**デフォルトの名無しさん** · 2018/04/13(金) 22:38:17.37

office作ってる連中がプログラム自体仕込むの嫌だからほったらかしってマジなの？
今更vbなんて学習する価値すらねえし本気で時間と労力の無駄なんだけど
jsとかpythonくらい対応する気ねえのかよこのうんこ

**デフォルトの名無しさん** · 2018/04/13(金) 22:38:40.28

ユーザーフォームできちんと作り込めば簡単になって便利なんだし

**デフォルトの名無しさん** · 2018/04/13(金) 22:43:23.72

COM経由で好きな言語で使えばいいじゃん

**デフォルトの名無しさん** · 2018/04/13(金) 22:59:23.05

COMぁちゃうなー

**デフォルトの名無しさん** · 2018/04/14(土) 08:38:50.16

凡人が作るエクセルファイルはデータとロジックとプレゼンテーションが一つのシートに一体化してるから気持ち悪いんだよね
プログラミングを学習するとだんだんシートからプレゼンテーションが減って、単純なテーブルだけのシートになる
そのテーブルからも次第に関数や重複列、繰り返し項目、殆ど空欄の列が取り除かれてテーブルが正規化される
最終的にユーザーIO専用のシートあるいはフォーム、ロジックを置くVBA、それとデータ専用シートに綺麗に分かれてしまう

ここまでくるともはやエクセル、エクセルVBAにこだわる理由は無くなる
C#やPowerShellと手頃なローカルDBでサクッと作ってしまう方が簡単で高品質

**デフォルトの名無しさん** · 2018/04/14(土) 08:53:16.70

なんで仕事した事無いのに仕事を語りたがるのか　これが分からない

**デフォルトの名無しさん** · 2018/04/14(土) 12:29:30.86

手段と目的が区別できない人多いな

**デフォルトの名無しさん** · 2018/04/14(土) 13:03:47.82

区別できないから何にでもエクセルVBAを使うんだろうね
ここぞという時に使うならいいけどね
いろんな選択肢がある中でエクセルVBAがベストってパターン殆どないんだよな

**デフォルトの名無しさん** · 2018/04/14(土) 13:09:38.72

>>710
> ここまでくるともはやエクセル、エクセルVBAにこだわる理由は無くなる
基本的にお前みたいな勘違いしてる奴の方が圧倒的少数派だからなw
エクセルがお手軽統合開発環境だと思ってるやつw

大多数の普通の人はvbaはあくまでアプリを拡張するためのマクロ言語だと心得ているからw

**デフォルトの名無しさん** · 2018/04/14(土) 13:48:42.38

ちょっとしたマクロもPowerShellでいいじゃん
楽だよ

**デフォルトの名無しさん** · 2018/04/14(土) 13:59:47.32

>>715
いいわけないだろw
だからそもそもマクロの目的を勘違いしとんねんお前w

**デフォルトの名無しさん** · 2018/04/14(土) 14:11:33.66

じゃあ君が言う目的ってなんだい？