Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【81295】それぞれのシートをチェックボックスで印...

アンジェラ

- 20/5/18(月) 11:19 -


	引用なし

	パスワード

在宅勤務の中、マクロを勉強中の超初心者です。
メインシートにて、コマンドボタンを配置し、シート名の記載されたリストから、チェックボックスにチェックを入れたシートだけを、印刷するようにしたいのですが以下のコードでは３つ以上チェックを入れた場合、印刷されません。おそらく何か足りないと思われますがどのようにしたらよろしいでしょうか。（現状ではPrintPreviewに置き換えています。）

Sub 印刷()
　　Dim n
　　n = 2
　　Do
　　　　If Range("D" & n).Value Then _
　　　　Worksheets(Range("B" & n).Value).PrintPreview
　　　　n = n + 1
　　Loop Until Range("D" & n).Value = ""
End Sub

・ツリー全体表示


	【81294】それぞれのシートをチェックボックスで印...

アンジェラ

- 20/5/18(月) 11:16 -


	引用なし

	パスワード

在宅勤務の中、マクロを勉強中の超初心者です。
メインシートにて、コマンドボタンを配置し、シート名の記載されたリストから、チェックボックスにチェックを入れたシートだけを、印刷するようにしたいのですが以下のコードでは３つ以上チェックを入れた場合、印刷されません。おそらく何か足りないと思われますがどのようにしたらよろしいでしょうか。（現状ではPrintPreviewに置き換えています。）

・ツリー全体表示


	【81293】Re:Application.OnTimeでのエラー

BJ - 20/5/17(日) 13:22 -


	引用なし

	パスワード

ディレクティブで、if mac　とかで、使われるからじゃないですかね？

ht　tps://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/ifthenelse-directive

・ツリー全体表示


	【81292】Re:時間帯ごとに重複なしのカウントがし...

マナ - 20/5/15(金) 18:56 -


	引用なし

	パスワード

ht　tp://www.excel.studio-kazu.jp/kw/20200515155237.html
ht　tps://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=191979&rev=0

・ツリー全体表示


	【81291】Re:長文関数式での改行の仕方

マナ - 20/5/15(金) 18:54 -


	引用なし

	パスワード

▼初心者さん：

適当な位置で切って、&　で結合してはどうですか。

・ツリー全体表示


	【81290】時間帯ごとに重複なしのカウントがしたい

さんまる - 20/5/15(金) 15:47 -


	引用なし

	パスワード

現在、マクロを使い集計ツールを作成しています。マクロは勉強中でネットを参考にしてプログラムを組んでいる程度のレベルです。やりたいこと→10時～17時の中で時間毎（30分や60分など）に何件(重複なしの)データが存在するかを知りたいです。まずは、対象のデータが開始時間と終了時間の間にあるかを見て、Dictionary関数を使い、重複確認をしているのですが、上手くいきません。 ※開始時間と終了時間は対象のデータによって変動があります。 ●現在のデータ B列とC列に何時～何時までの時間が入っており、 B列　　　　　　　 C列 2020/1/1 10:00 2020/1/1 10:30 2020/1/1 10:30 2020/1/1 11:00 ・・・ 2020/1/1 16:30 2020/1/1 17:00 F列とG列に対象のデータが入っています。 F列　　　　　G列 2020/1/1 10:00 1 2020/1/1 10:01 3 2020/1/1 10:03 2 2020/1/1 10:05 1 ・・・ 2020/1/1 16:58 2 2020/1/1 16:59 1 D列に重複なしのデータのカウント数を知りたい場合はどのようにすればいいでしょか？ B列　　　　　　　C列　　　　D列 2020/1/1 10:00 2020/1/1 10:30 3（1,2,3なので） 2020/1/1 10:30 2020/1/1 11:00 2 よろしくお願いいたします。

・ツリー全体表示


	【81289】長文関数式での改行の仕方

初心者 - 20/5/15(金) 11:04 -


	引用なし

	パスワード

給料計算で所得税を算出するため　Excel関数のIF文とVLookup文で作成してみましたが、式が余りにも長いので改行で５行程に圧縮したいのですが(１文字空白+ｱﾝﾀﾞｰﾊﾞｰ)　を挿入しても　"コンパイルエラー:修正候補ｽﾃｰﾄﾒﾝﾄの最後"　と表示されてしまいます。お助け下さい　お願いします。作成した式は下記の通りちなみに　一行ではまともに答えは出ます。 Range("A13") = "=IF(AND(G11>86000,G11<860000),VLOOKUP(G11,所得税!B11:H260,IF(G6=0,3,IF(G6=1,4,IF(G6=2,5,IF(G6=3,6,IF(G6=4,7,IF(G6=5,8))))))),IF(AND(G11>860000,G11<970000),(G11-860000)*0.23483+VLOOKUP(G11,所得税!B257:H257,IF(G6=0,3,IF(G6=1,4,IF(G6=2,5,IF(G6=3,6,IF(G6=4,7,IF(G6=5,8))))))),IF(AND(G11>970000,G11<1720000),(G11-970000)*0.33693+VLOOKUP(G11,所得税!B258:H258,IF(G6=0,3,IF(G6=1,4,IF(G6=2,5,IF(G6=3,6,IF(G6=4,7,IF(G6=5,8))))))),IF(AND(G11>1720000,G11<3550000),(G11-1720000)*0.4084+VLOOKUP(G11,所得!B259:H259,IF(G6=0,3,IF(G6=1,4,IF(G6=2,5,IF(G6=3,6,IF(G6=4,7,IF(G6=5,8))))))),IF(G11>3550000,(G11-3550000)*0.45945+VLOOKUP(G11,所得税!B260:H260,IF(G6=0,3,IF(G6=1,4,IF(G6=2,5,IF(G6=3,6,IF(G6=4,7,IF(G6=5,8))))))),0)))))"

・ツリー全体表示


	【81288】Application.OnTimeでのエラー

勉強中 - 20/5/13(水) 17:53 -


	引用なし

	パスワード

test1を実行したところエラーはでないのですが、
test2を実行すると以下のエラーが出ます。

「マクロ'Book1!mac1'を実行できません。このブックでマクロを使用できないか、またはすべてのマクロが無効になっている可能性があります。」

mac1の名前を変更しtest2の該当箇所を変更すると動くのは分かっているのですが、
なぜ現状のtest2を実行するとエラーが出るのかが分かりません。
mac1という名前を変更せずに動かすにはどのように修正したらよいでしょうか
（Excelのマクロは有効になっています）

Sub abcmac1()

　　Debug.Print Now

End Sub

Sub mac1()

　　Debug.Print Now

End Sub

Sub test1()

　　Dim N1 As Date
　　N1 = DateAdd("S", 3, Now)
　　　　
　　Application.OnTime N1, "abcmac1"
　　
End Sub

Sub test2()

　　Dim N1 As Date
　　N1 = DateAdd("S", 3, Now)
　　　　
　　Application.OnTime N1, "mac1"
　　
End Sub

・ツリー全体表示


	【81287】ごめんなさい。

BJ - 20/5/10(日) 15:30 -


	引用なし

	パスワード

すみません。

シート上のアクティブｘコントロールのラベルでしたね。
ありました。
でも使った事が無いので良く解りませんでした。

Private Sub Label1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

・ツリー全体表示


	【81286】Re:BeforeDragOverイベント

はなこ - 20/5/10(日) 14:20 -


	引用なし

	パスワード

▼BJ さん：

すみません。
操作を間違えたようです。
回答、ありがとうございました。Formで作成する方向に切り替えます。

・ツリー全体表示


	【81284】Re:BeforeDragOverイベント

BJ - 20/5/10(日) 12:26 -


	引用なし

	パスワード

2007ですが、ユーザーフォーム上に BeforeDragOver イベントは存在しますが、
シートのイベントには、存在しませんでした。

1度、自分でそんなイベントがあるのか調べてみるのも良いとおもいます。
ないものは無いと自己判断することも必要かと・・・。
後は自分で作るか・・・。
（APIビンビンになりそう。）

・ツリー全体表示


	【81283】BeforeDragOverイベント

はなこ - 20/5/10(日) 8:06 -


	引用なし

	パスワード

D&DでExcelの外部から画像を取得しようとしています。

シートに直接、ActiveX ImageとListview を配置して夫々以下のコードを追加しています。

Private Sub Label1_BeforeDragOver(ByVal Cancel・・・
Me.ListView1.Visible = True
End Sub
　　
Private Sub ListView1_OLEDragDrop(Data As
Me.Image1.Picture = LoadPicture(Data.Files(1))
Me.ListView1.Visible = False
End Sub

実行しても、BeforeDragOverのイベントが発生しないのですが、これが正解なのでしょうか？
Labelコントロールでも試してみましたが、やはりBeforeDragOverイベントは発生しませんでした。
但し、Form上に置いた場合は問題ありませんでした。
Webであちこち検索してみたのですが記事が見つかりません。どなたかお分かりの方がいましたらご指導ください。

・ツリー全体表示


	【81282】Re:形を変えて表を転記したい

よっちゃん - 20/5/7(木) 9:34 -


	引用なし

	パスワード

わからないことなどあるかもしれませんが、一旦クローズさせていただきます。
マナさん、ありがとうございました。

・ツリー全体表示


	【81281】お礼

あつし

- 20/5/5(火) 21:01 -


	引用なし

	パスワード

色々広がってるようで。
皆さんありがとうございます。
どうも、常時インターネットと繋がって居ないとダメみたいです。
それと、憶測ですが著作権管理の弊害が出てるのでは？

いずれにせよ。常時インターネットに繋ぐなんてデーター容量の契約の問題もあるし
て、ことで先月買ったサーフェスでもっとスマートなプログラムを作ります。
夏の仕事で使うんですけど今年は忙しく無いようで。
まして、今はステイホームですし。
作成後bluetoothで互換性を持たせたいと思います。
暇つぶしには最高ですね。

・ツリー全体表示


	【81280】Re:うまく繋がらないみたいなので

BJ - 20/5/5(火) 17:26 -


	引用なし

	パスワード

>ht　tps://answers.microsoft.com/ja-jp/msoffice/forum/
>msoffice_excel-mso_win10-mso_2016/
>%e5%8e%9f%e5%9b%a0%e5%88%a4%e6%98%8e%e4%bf%ae/5bfe4ca5-cedd-46b9-80e6-372614c28214

　↓

モーグに変更

ht　tps://www.moug.net/faq/viewtopic.php?t=79382

・ツリー全体表示


	【81279】Re:移動

BJ - 20/5/5(火) 17:15 -


	引用なし

	パスワード

角田さんが色々な場所で回答されてます。

ht　tps://answers.microsoft.com/ja-jp/msoffice/forum/all/
%e5%8e%9f%e5%9b%a0%e5%88%a4%e6%98%8e%e4%bf%ae/5bfe4ca5-cedd-46b9-80e6-372614c28214

ht　tps://answers.microsoft.com/ja-jp/msoffice/forum/
msoffice_excel-mso_win10-mso_2016/
%e5%8e%9f%e5%9b%a0%e5%88%a4%e6%98%8e%e4%bf%ae/5bfe4ca5-cedd-46b9-80e6-372614c28214

注）

長いURLは、「半角文字は適度に改行してください。」となるので、
適当に改行しました。
メモ帳などで、改行を消してください。

・ツリー全体表示


	【81278】Re:移動

マナ - 20/5/5(火) 14:43 -


	引用なし

	パスワード

[コンテンツの有効化] ボタンが表示されていませんか。

・ツリー全体表示


	【81277】移動

あつし

- 20/5/5(火) 12:09 -


	引用なし

	パスワード

VBA付きののExcelを新しいパソコンに移すとユーザーフォーラムとプログラムが消えてしまう。

・ツリー全体表示


	【81276】Re:(ROW関数なのかな)詳しい方

マナ - 20/5/1(金) 17:43 -


	引用なし

	パスワード

ht　tp://www.excel.studio-kazu.jp/kw/20200428142532.html

・ツリー全体表示


	【81275】(ROW関数なのかな)詳しい方

ナ - 20/5/1(金) 9:08 -


	引用なし

	パスワード

サイトにテンプレートを登録するのですが、エクセルのシートを一枚のみ登録することができ、
印刷をする際、2枚目以降は自動的に一枚目のコピーが印刷されてしまうのですが

例えば　（1枚目）
そのシートのA5を=他シート!A5　にしたとき、
そのシートのN5を=他シート!A6
そのシートのA17を=他シート!A7
そのシートのN17を=他シート!A8
そのシートのA29を=他シート!A9
そのシートのN29を=他シート!A10　　　。。。繰り返し

ここまではできるのですが、それが自動更新になってしまうので2.3...枚目も繰り返しこの数式になってしまいます。手入力でやれる理想の状態はこうです。

（2枚目）
そのシートのA5を=(ほかのシート)!A11　にしたとき、
そのシートのN5を=(ほかのシート)!A12
そのシートのA17を=(ほかのシート)!A13
そのシートのN17を=(ほかのシート)!A14
そのシートのA29を=(ほかのシート)!A15
そのシートのN29を=(ほかのシート)!A16

と、いう形です。手入力ならできますが、オートフィルもできない形なので難しいです

↑のような形になるよう、どうにかならないものなのでしょうか。
また、ご返答いただけましたら幸いです。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free