Excel VBA質問箱 IV

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

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


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

38081 / 76732

←次へ　｜　前へ→


	【43794】Re:別シートのデータを条件別に取得

maverick - 06/10/25(水) 23:50 -


	引用なし

	パスワード

>別々に４つマクロは組みましたが、ＩＦとか使って一つにすることが出来ません。
その条件ならマクロは３つでは？
条件分岐してそれぞれのマクロを呼び出すだけかと・・・

Sub test()
　Dim WSk As Worksheet
　Dim i As Long
　
　Set WSk = Workbooks("甲Book.xls").Sheets(1)

　For i = 1 To WSk.Range("A25536").End(xlUp).Row
　　WSk.Activate
　　With WSk.Cells(i, "A")
　　　Select Case .Value
　　　　Case "ア", "イ"
　　　　　Call マクロ11　'1.－１
　　　　Case "ウ" '1.－２
　　　　　If .Offset(, 1).Value = .Offset(, 2).Value Then
　　　　　　Call マクロ121　　'1.－２－１
　　　　　Else
　　　　　　Call マクロ122　'1.－２－２
　　　　　End If
　　　End Select
　　End With
　Next i
End Sub

2 hits

▼

【43790】別シートのデータを条件別に取得 モナ 06/10/25(水) 21:04