Excel VBA質問箱 IV

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

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


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

68983 / 76738

←次へ　｜　前へ→


	【12275】Re:Caseに続く部分を自動的に持ってこれるか？

まだ初心者 - 04/3/29(月) 13:49 -


	引用なし

	パスワード

▼こうちゃんさん：
提示いただいたコードがベースで、そこまではOKです。
そのうえでの質問です。

>気分を害する方もありますので
できる限り自分でやってみようと思いました。
申し訳ございませんでした。

　　Sub test()
　　Dim i As Long
　　Dim A As Integer
　　Dim d As String
　　Dim ws1 As Worksheet
　　Dim ws2 As Worksheet
　　Dim wsFlg As Boolean

　　Set ws1 = Worksheets("一覧")
　　　For i = 2 To ws1.Range("A65535").End(xlUp).Row
　　　　d = ws1.Cells(i, 10).Value
　
　　　　wsFlg = False
　　　　For Each ws2 In Worksheets
　　　　　　If ws2.Name = d Then
　　　　　　　　wsFlg = True
　　　　　　　　Exit For
　　　　　　End If

　　　　If Not wsFlg Then

　　　　Worksheets("a").Copy after:=Worksheets(Worksheets.Count)

　　　　 'ここで、シート名を変数d と同じように変更する処理を_
　　　　　教えてくださいませんか。

　　　　A = 13

　　　　 Else

　　　　　　A = Worksheets(d).Range("A65536").End(xlUp).Row + 1
　　　　End If

　　　　ActiveSheet.Cells(8, 2).Value = ws1.Cells(i, 9).Value
　　　　ActiveSheet.Cells(8, 5).Value = ws1.Cells(i, 10).Value
　　　　ActiveSheet.Cells(A, 1).Value = ws1.Cells(i, 4).Value
　　　　ActiveSheet.Cells(A, 2).Value = ws1.Cells(i, 5).Value
　　　　ActiveSheet.Cells(A, 3).Value = ws1.Cells(i, 6).Value
　　　　ActiveSheet.Cells(A, 4).Value = ws1.Cells(i, 7).Value
　　　　ActiveSheet.Cells(A, 5).Value = ws1.Cells(i, 11).Value
　　　　ActiveSheet.Cells(A, 11).Value = ws1.Cells(i, 12).Value
　　　　ActiveSheet.Cells(A, 11).Value = ws1.Cells(i, 12).Value
　　　　A = A + 1
　　　　Next
　　Next
　　End Sub

0 hits

▼

【12095】Caseに続く部分を自動的に持ってこれるか？ まだ初心者 04/3/23(火) 21:18