Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
63 / 3841 ﾍﾟｰｼﾞ ←次へ　｜　前へ→
【81216】Re:vbaのsampleコードが欲しいです
発言  マナ  - 20/3/8(日) 6:27 -
引用なし
パスワード
   ▼初心者 さん：

数式がよいのでは。あるいは入力規則とか。

=IF(D3<>"",IF(B3<>"",B3,""),IF(E3<>"","NG",""))

>シートAとBがあります。

シートAが、どこにも使われていませんが？
・ツリー全体表示
【81215】vbaのsampleコードが欲しいです
質問  初心者  - 20/3/8(日) 5:25 -
引用なし
パスワード
   シートAとBがあります。

シートBのD3~D10に文字が入力されると、G3~G10にB3~B10に入力されている文字が表示される。(入力と出力する列は同じ)

シートBのE3~E10に文字が入力されると、"NO"などの文字を出力。
※ただし、D3~D10に文字が入っておらず、E3~E10へ入力をすると、B3~B10の値を出力する。

上記のサンプルコードが欲しいです..。
・ツリー全体表示
【81214】Re:VBAのVlookupについて
発言  as  - 20/3/7(土) 19:45 -
引用なし
パスワード
   そうだったんですね！

VBAを覚えたてで分からないことが多々あり、参考になります！
ありがとうございました！
・ツリー全体表示
【81213】Re:VBAのVlookupについて
発言  マナ  - 20/3/7(土) 19:36 -
引用なし
パスワード
   ▼as さん：

値のある範囲だけ SpecialCells(xlCellTypeConstants) を
For Each で、ループすることもできます。
また、複数セルを、まとめてVLookupできます。

Sub Main3()
　　Dim Serchkey As Range
　　Dim SerchRange As Range
　　Dim a As Range
　
　　Set Serchkey = Worksheets("書籍貸出表").Range("B3:B8")
　　Set SerchRange = Worksheets("書籍管理一覧表").Range("A3:B8")
　　Serchkey.Offset(, 1).ClearContents

　　For Each a In Serchkey.SpecialCells(xlCellTypeConstants).Areas
　　　　a.Offset(, 1).Value = Application.VLookup(a.Value, SerchRange, 2, False)
　　Next

End Sub
・ツリー全体表示
【81212】Re:VBAのVlookupについて
発言  as  - 20/3/7(土) 19:20 -
引用なし
パスワード
   変な空欄が入っておりエラーとなっていました。解決しました！ありがとうございました！
・ツリー全体表示
【81211】Re:VBAのVlookupについて
発言  マナ  - 20/3/7(土) 18:51 -
引用なし
パスワード
   ▼as さん：

>エラー9が発生しました。


ごめんなさい。シート名を実際のものに修正してください。
・ツリー全体表示
【81210】Re:VBAのVlookupについて
発言  as  - 20/3/7(土) 18:43 -
引用なし
パスワード
   度々すみません。

ご提示いただきました内容を実行しましたところ、エラー9が発生しました。

シート2のB3~B8に値をいれると、A3~A8に入ってる値にまっちした隣の値(B3~B8)をC3~C8に出力したいとう内容なのですが、このエラーが発生したということは、outputrangeの値がそもそも間違っているんでしょうか？
・ツリー全体表示
【81209】Re:VBAのVlookupについて
発言  マナ  - 20/3/7(土) 18:22 -
引用なし
パスワード
   ▼as さん：
>検索して見つからなかった場合は、エラーとして返したいです。


Application.VLookupを使います。

Sub Main2()
　　Dim Serchkey As Range
　　Dim SerchRange As Range
　　Dim OutputRange As Range
　　Dim i As Long
　　
　　Set Serchkey = Worksheets("1").Range("B3:B8")
　　Set SerchRange = Worksheets("2").Range("A3:B8")
　　Set OutputRange = Serchkey.Offset(, 1)
　　
　　Application.ScreenUpdating = False　'Flaseで画面更新停止、Trueで画面更新再開
　　
　　For i = 1 To Serchkey.Rows.Count
　　　　If Serchkey(i) <> "" Then
　　　　　　OutputRange(i) = Application.VLookup(Serchkey(i), SerchRange, 2, False)
　　　　End If
　　Next
　　Application.ScreenUpdating = True
　
End Sub
・ツリー全体表示
【81208】Re:VBAのVlookupについて
発言  as  - 20/3/7(土) 17:50 -
引用なし
パスワード
   検索して見つからなかった場合は、エラーとして返したいです。

そのため、書籍IDが空白の状態ではエラーを表示させず、書籍IDがなかった場合はエラーとして返したいです。
・ツリー全体表示
【81207】Re:VBAのVlookupについて
発言  マナ  - 20/3/7(土) 17:47 -
引用なし
パスワード
   ▼as さん：

では、検索して見つからないでエラーとなる場合は？
・ツリー全体表示
【81206】Re:VBAのVlookupについて
発言  as  - 20/3/7(土) 17:40 -
引用なし
パスワード
   >では、空白の場合は、どうしたいですか。

ご返信ありがとうございます。
空白の場合は、空白を文字列として「""」の状態を許可したいです。
・ツリー全体表示
【81205】Re:VBAのVlookupについて
発言  マナ  - 20/3/7(土) 15:12 -
引用なし
パスワード
   ▼as さん：
>空白をエラーと認識してしまいます。

では、空白の場合は、どうしたいですか。
・ツリー全体表示
【81204】VBAのVlookupについて
質問  as  - 20/3/7(土) 14:11 -
引用なし
パスワード
   空白をエラーと認識してしまいます。
お分かりになる方がいれば、ご教授いただけると幸いです。

現状は下記コードになります。

Sub Main()

　Dim Serchkey As Range
　Dim SerchRange As Range
　Dim OutputRange As Range
　Dim i As Long

　Set Serchkey = Worksheets("書籍貸出表").Range("B3:B8")　　　　
　Set SerchRange = Worksheets("書籍管理一覧表").Range("A3:B8")　
　Set OutputRange = Worksheets("書籍貸出表").Range("B3:C8")　　　

　Application.ScreenUpdating = False　'Flaseで画面更新停止、Trueで画面更新再開
　
　For i = 1 To Serchkey.Rows.Count
　 OutputRange(i, 2) = WorksheetFunction.Vlookup(Serchkey(i, 1), SerchRange, 2, False)
　Next
　Application.ScreenUpdating = True
　　
End Sub
・ツリー全体表示
【81203】Re:別ブックの同一シート全てにコピペし...
発言  マナ  - 20/3/6(金) 18:59 -
引用なし
パスワード
   ▼初心者 さん：

>ActiveWorkbookとThisWorkbookを上手く使い分けるといいのですね！

ブックやシートをアクティブにする必要はないです。
そうすれば、今より、コードも簡潔に書けるはずです。
・ツリー全体表示
【81202】Re:処理を中断
お礼  はるあき  - 20/3/6(金) 9:32 -
引用なし
パスワード
   助かりました、ありがとうございます！
・ツリー全体表示
【81201】Re:別ブックの同一シート全てにコピペし...
お礼  初心者  - 20/3/6(金) 0:05 -
引用なし
パスワード
   ▼マナ さん：
>▼［名前なし］ さん：
>
>>集約用のブックを作り、そちらにマクロを記述しています。
>
>その場合、集約用のブックは、ThisWorkbookなので、
>
>wsから、ThisWorkbook.Worksheets(ws.Name)へのコピーと考えるとよいです。

なるほどです！
ActiveWorkbookとThisWorkbookを上手く使い分けるといいのですね！
助かりました！ありがとうございます。
・ツリー全体表示
【81200】Re:処理を中断
発言  Jaka  - 20/3/5(木) 19:03 -
引用なし
パスワード
   ごめん、わすれてた。

>If namebox.Text = "" Then
>　　errst = "担当者名" + tmp & vblf
>end if

ここ以下
>If manbox.Text = "" Then
>　　errst = errst & "1万円札の枚数" + tmp & vblf
>end if

errst &
を忘れたました。
追加しておいてください。
・ツリー全体表示
【81199】Re:処理を中断
発言  Jaka  - 20/3/5(木) 18:49 -
引用なし
パスワード
   文字連結に+を使っているのか、足し算なのか解らんけど。
（尚、文字連結に+を使っている人を見ると、何考えているんだと思う方です。）

Dim errst as string

If datebox.Text = "" Then
　　errst = "日付" + tmp & vblf
end if

If namebox.Text = "" Then
　　errst = "担当者名" + tmp & vblf
end if

If manbox.Text = "" Then
　　errst = "1万円札の枚数" + tmp & vblf
end if

If gosenbox.Text = "" Then
　　errst = "5" + sen & vblf
end if

If nisenbox.Text = "" Then
　　errst = "2" + sen & vblf
end if

If senbox.Text = "" Then
　　errst = "1" + sen & vblf
end if

If gohyakubox.Text = "" Then
　　errst = "500" + hoka & vblf
end if

If hyakubox.Text = "" Then
　　errst = "100" + hoka & vblf
end if

If gojubox.Text = "" Then
　　errst = "50" + hoka & vblf
end if

If jubox.Text = "" Then
　　errst = "10" + hoka & vblf
end if

If gobox.Text = "" Then
　　errst = "5" + hoka & vblf
end if

If itibox.Text = "" Then
　　errst = "1" + hoka & vblf
End If

if errst <> "" then
　 msgbox left(errst,len(errst)-1), , "入力漏れ"
　 exit sub
end if
・ツリー全体表示
【81198】Re:処理を中断
発言  マナ  - 20/3/5(木) 18:47 -
引用なし
パスワード
   ▼はるあき さん：

こんな感じでもよいです。

Dim msg As String


ElseIf itibox.Text = "" Then
　　msg = "1" &　hoka
End if

If Len(msg) > 0 then
　　MsgBox msg, , "入力漏れ"
　　Exit Sub
End IF
・ツリー全体表示
【81197】Re:別ブックの同一シート全てにコピペし...
発言  マナ  - 20/3/5(木) 18:36 -
引用なし
パスワード
   ▼［名前なし］ さん：

>集約用のブックを作り、そちらにマクロを記述しています。

その場合、集約用のブックは、ThisWorkbookなので、

wsから、ThisWorkbook.Worksheets(ws.Name)へのコピーと考えるとよいです。
・ツリー全体表示
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
63 / 3841 ﾍﾟｰｼﾞ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free