皆様、いつもお世話になっております。
初心者なりに考えてＶＢＡを組んでみたのですが、「Ｓｕｂ または Ｆａｎｃｔｉｏｎ が定義されていません」とエラー表示が出てきます。
自分なりにコードに間違いがないか検索ながらやってみたのですが、うまくいきません。
どなたか、知恵をお貸しいただけないでしょうか。
テーブルの入っているSheet1から、シート”施工体制台帳～”の該当するセルにデータのコピーを行うためのVBAです。
業者の数だけループするように組んだつもりなのですが、エラー表示のため実行ができません。
ご指摘、よろしくお願いいたします。
Sub kopipe1() '施工体制台帳
Dim sh As Worksheet
Dim sh1 As Worksheet
Dim sb As Long
Dim m As Long
Dim p As Long
Dim c As Long
Dim i As Long
Dim end1 As Long
Set sh = Worksheet("sheet1")
Set sh1 = Worksheet("施工体制台帳 (下請け) ")
end1 = sh.Range(".Cells(Rows.Count, 2)").End(xlUp)
sb = 1
p = 1
For i = 2 To end1 Step 1
sb = sb + 1
c = cell(p, 9)
sh.cell(sb, 2).Copy Destination:=.sh1.Range(c).Offset(2, 1) '会社名
sh.cell(sb, 3).Copy Destination:=.sh1.Range(c).Offset(2, 27) '代表者名
sh.cell(sb, 4).Copy Destination:=.sh1.Range(c).Offset(4, 1) '郵便番号
sh.cell(sb, 5).Copy Destination:=.sh1.Range(c).Offset(5, 1) '住所
sh.cell(sb, 6).Copy Destination:=.sh1.Range(c).Offset(6, 24) '電話番号
sh.cell(sb, 7).Copy Destination:=.sh1.Range(c).Offset(13) '業種1
sh.cell(sb, 8).Copy Destination:=.sh1.Range(c).Offset(14, 12) '許可者1
sh.cell(sb, 9).Copy Destination:=.sh1.Range(c).Offset(14, 15) '区分1
sh.cell(sb, 10).Copy Destination:=.sh1.Range(c).Offset(14, 17) '許可1-1
sh.cell(sb, 11).Copy Destination:=.sh1.Range(c).Offset(14, 20) '許可1-2
sh.cell(sb, 12).Copy Destination:=.sh1.Range(c).Offset(14, 27) '許可年月日
sh.cell(sb, 13).Copy Destination:=.sh1.Range(c).Offset(16) '業種2
sh.cell(sb, 14).Copy Destination:=.sh1.Range(c).Offset(17, 12) '許可者2
sh.cell(sb, 15).Copy Destination:=.sh1.Range(c).Offset(17, 15) '区分2
sh.cell(sb, 16).Copy Destination:=.sh1.Range(c).Offset(17, 17) '許可2-1
sh.cell(sb, 17).Copy Destination:=.sh1.Range(c).Offset(17, 20) '許可2-2
sh.cell(sb, 18).Copy Destination:=.sh1.Range(c).Offset(17, 27) '許可年月日2
sh.cell(sb, 19).Copy Destination:=.sh1.Range(c).Offset(21, 28) '健康保険
sh.cell(sb, 20).Copy Destination:=.sh1.Range(c).Offset(22, 28) '厚生年金保険
sh.cell(sb, 21).Copy Destination:=.sh1.Range(c).Offset(23, 28) '雇用保険
sh.cell(sb, 22).Copy Destination:=.sh1.Range(c).Offset(25, 3) '現場代理人指名
sh.cell(sb, 23).Copy Destination:=.sh1.Range(c).Offset(29, 7) '主任技術者氏名
sh.cell(sb, 24).Copy Destination:=.sh1.Range(c).Offset(31, 3) '資格内容
sh.cell(sb, 25).Copy Destination:=.sh1.Range(c).Offset(33, 3) '安全衛生責任者
sh.cell(sb, 26).Copy Destination:=.sh1.Range(c).Offset(25, 26) '安全衛生推進者
sh.cell(sb, 27).Copy Destination:=.sh1.Range(c).Offset(27, 26) '雇用管理責任者
sh.cell(sb, 28).Copy Destination:=.sh1.Range(c).Offset(29, 26) '専門技術者名
sh.cell(sb, 29).Copy Destination:=.sh1.Range(c).Offset(31, 26) '技術資格内容
p = p + 62
Exit For
Next i
End Sub
皆様、いつもお世話になっております。
初心者なりに考えてＶＢＡを組んでみたのですが、「Ｓｕｂ または Ｆａｎｃｔｉｏｎ が定義されていません」とエラー表示が出てきます。
自分なりにコードに間違いがないか検索ながらやってみたのですが、うまくいきません。
どなたか、知恵をお貸しいただけないでしょうか。
テーブルの入っているSheet1から、シート”施工体制台帳～”の該当するセルにデータのコピーを行うためのVBAです。
業者の数だけループするように組んだつもりなのですが、エラー表示...続きを読む
Aベストアンサー
今のところ、変数に代入する以外のコードはほとんど間違っているわけですから、どれがどうと言えないと思います。
他の方との重複を含みます。
・Worksheet(---) ->Worksheets(----)
・sh.Range(".Cells(Rows.Count, 2)").End(xlUp)
↓
sh.Cells(Rows.Count, 2).End(xlUp).Row
・c = cell(p, 9)
↓
c = Cells(p, 9) ただし、最後に、p = p + 62の後、Exit For では、1回キリでおしまいになってしまいます。
おそらくは、Dim c As String --Cells(p, 9).Address(0,0)
のはずです。
・sh.cell(sb, 2).Copy Destination:=.sh1.Range(c).Offset(2, 1) '会社名
とりあえず、Cells と sh1 のコンマは取るけれども、
sh1.Range(c).Offset(2, 1) これでは可読性を落とすばかりで分かりません。
これ自体を直すよりは、最初から作り直したほうが早そうです。
たぶん、一覧で横に並んでいるものを、別のシートの各場所に振り替えていくわけで、それが、ページごとになっているというわけでしょう。
まず、 sh1.cells(sb, 2).Copy ですが、
その列の2 を変数にすべきですね。
受ける側が、Offset で書かれてしまうと、手がつけられなくなってしまいます。
sh1.Range("J3,AJ3,J5,J6,AG7,I14,U15,X15,Z15,AC15,AJ15,I17," & _
"U18,X18,Z18,AC18,AJ18,AK22,AK23,AK24,L26,P30,L32,L34," & _
"AI26,AI28,AI30,AI32")
このようにまとめてしまい、以下のように纏めたものから呼び出すようにします。
しかし、実際にやってみると不具合が生じるので、それを配列で渡すようにします。
注：以下は、私の想像で書かれたものであって、実際に合っているのかは分かりません。
このようなスタイルにしてみたらという、あくでもこちらの提案です。
'//
Sub Test1()
Dim Rng As Range
Dim i As Long, j As Long, sb As Long
Dim c As Variant
Dim sh As Worksheet, sh1 As Worksheet
Set sh = Worksheets("sheet1")
Set sh1 = Worksheets("施工体制台帳 (下請け)")
Set Rng = sh1.Range("J3,AJ3,J5,J6,AG7,I14,U15,X15,Z15,AC15,AJ15,I17," & _
"U18,X18,Z18,AC18,AJ18,AK22,AK23,AK24,L26,P30,L32,L34," & _
"AI26,AI28,AI30,AI32")
end1 = sh.Cells(Rows.Count, 2).End(xlUp).row
i = 2
sb = 2
For j = 1 To end1
a = (j - 1) * 62 + 1
For Each c In Rng.Offset((j - 1) * 62 + 1)
c.Value = sh.Cells(sb, i).Value
DoEvents
i = i + 1
Next
i = 2
sb = sb + 1
Next
End Sub
今のところ、変数に代入する以外のコードはほとんど間違っているわけですから、どれがどうと言えないと思います。
他の方との重複を含みます。
・Worksheet(---) ->Worksheets(----)
・sh.Range(".Cells(Rows.Count, 2)").End(xlUp)
↓
sh.Cells(Rows.Count, 2).End(xlUp).Row
・c = cell(p, 9)
↓
c = Cells(p, 9) ただし、最後に、p = p + 62の後、Exit For では、1回キリでおしまいになってしまいます。
おそらくは、Dim c As String --Cells(p, 9).Address(0,0)
のはずです。
・sh.cell(sb, 2).C...続きを読む
ウォッチ
C:\XAMPP をクリックしてみました。
XAMPPをクリックしたら
フォルダー参照の小窓が出てきました
XAMPPのフォルダーの中にinstall フォルダーがありました。
※ 実は、1度 XAMPPをアンインストールしています。
（ワードプレスに関連付け？しようとした際、おかしくなってしまい
一からやり直そうと思いアンインストールしました）
これは、アンインストールできていないということでしょうか？
だとすれば、どのように解決すればよいでしょうか。