Excel VBA質問箱 IV

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

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


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

63 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【81219】Re:vbaのsampleコードが欲しいです

初心者 - 20/3/8(日) 12:34 -


	引用なし

	パスワード

すみません、ありがとうございます。

・ツリー全体表示


	【81218】Re:vbaのsampleコードが欲しいです

マナ - 20/3/8(日) 7:15 -


	引用なし

	パスワード

▼初心者さん：
>関数自体は把握してるので、それををvbaで表記するとどうなるのかが知りたくて..w

こんな感じです。

Sub test()
　　Dim r As Range
　　Dim f As String
　　
　　Set r = Worksheets("B").Range("G3:G10")
　　f = "=IF(D3<>"""",IF(B3<>"""",B3,""""),IF(E3<>"""",""NG"",""""))"
　　
　　r.Formula = f
　　r.Value = r.Value

End Sub

・ツリー全体表示


	【81217】Re:vbaのsampleコードが欲しいです

初心者 - 20/3/8(日) 6:58 -


	引用なし

	パスワード

関数自体は把握してるので、それををvbaで表記するとどうなるのかが知りたくて..w
失礼しました。シートは一つのみ使う感じです。

・ツリー全体表示


	【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 &
を忘れたました。
追加しておいてください。

・ツリー全体表示


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

63 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free