Excel VBA質問箱 IV

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

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


59 / 3841 ページ ←次へ | 前へ→

【81298】参照関数を教えてください
質問  初心者  - 20/5/24(日) 23:28 -

引用なし
パスワード
   賞与の所得税給料を算出するためにDGET()関数を使ってもうまくいきません
賞与を支給する月の前月の給料値を検索しなければなりません

Sheet1給料台帳
年 月 氏名 給料
2 2  A   55
2 2  B   60
 
sheet1賞与算出表(3月支給) 
年 月 氏名 賞与 税金
2 3  A   800  ??

??を算出するにはAの2月給料55に対する税率ランクを使います
DGET()関数より良い方法があれば教えてください
ちみに=DGET(給料台帳!B1:V4,給料台帳!V1,B32:C33)に入れましたが
月が違う((B1:V4)--賞与算出表と(B32:C33)--給料台帳)とエラーになりました
・ツリー全体表示

【81297】Re:長文関数式での改行の仕方
お礼  初心者  - 20/5/24(日) 22:50 -

引用なし
パスワード
   返事が遅くなってすみません

適当なアドバイスありがとうございました

何とか動きました
・ツリー全体表示

【81296】Re:Application.OnTimeでのエラー
お礼  勉強中  - 20/5/20(水) 9:39 -

引用なし
パスワード
   BJ さん

ありがとうございます。
勉強になりました。
・ツリー全体表示

【81295】それぞれのシートをチェックボックスで印...
質問  アンジェラ E-MAIL  - 20/5/18(月) 11:19 -

引用なし
パスワード
   在宅勤務の中、マクロを勉強中の超初心者です。
メインシートにて、コマンドボタンを配置し、シート名の記載されたリストから、チェックボックスにチェックを入れたシートだけを、印刷するようにしたいのですが以下のコードでは3つ以上チェックを入れた場合、印刷されません。おそらく何か足りないと思われますがどのようにしたらよろしいでしょうか。(現状では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】それぞれのシートをチェックボックスで印...
質問  アンジェラ E-MAIL  - 20/5/18(月) 11:16 -

引用なし
パスワード
   在宅勤務の中、マクロを勉強中の超初心者です。
メインシートにて、コマンドボタンを配置し、シート名の記載されたリストから、チェックボックスにチェックを入れたシートだけを、印刷するようにしたいのですが以下のコードでは3つ以上チェックを入れた場合、印刷されません。おそらく何か足りないと思われますがどのようにしたらよろしいでしょうか。(現状では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文で作成してみましたが、式が余りにも長いので改行で5行程に圧縮したいのですが(1文字空白+アンダーバー) を挿入しても "コンパイルエラー:修正候補ステートメントの最後" と表示されてしまいます。お助け下さい お願いします。作成した式は下記の通り
ちなみに 一行ではまともに答えは出ます。

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 -

引用なし
パスワード
   すみません。

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

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】お礼
お礼  あつし E-MAIL  - 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 -

引用なし
パスワード
   [コンテンツの有効化] ボタンが表示されていませんか。
・ツリー全体表示

59 / 3841 ページ ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free