Excel VBA質問箱 IV

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

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


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

44776 / 76735

←次へ　｜　前へ→


	【36970】Re:助けてください・・・・・

Jaka - 06/4/19(水) 11:10 -


	引用なし

	パスワード

ぱっと見ただけなのでよく解ってませんけど。

>ActiveSheet.Range("C1:C600").Find(what:=名前).Select
　　　↓
Dim MyRag As Range
Set MyRag = ActiveSheet.Range("C1:C600").Find(what:=名前)
If MyRag Is Nothing Then
　 MsgBox "NG"
　 'Exit Sub　'←　一応コメントにしました。
End If

>bb = Selection.Offset(0, "-1").Value
　以降↓こう書けます。
bb = MyRag.Offset(0, "-1").Value

>Select Case bb
>Case Is = "A"
>番号 = "00" & bb
>Case Is = "B"
>番号 = "00" & bb
>Case Is = "C"
>番号 = "00" & bb
>Case Is = "D"
>番号 = "00" & bb
>Case Is = "E"
>番号 = "00" & bb
>Case Is = "F"
>番号 = "00" & bb
>Case Is = "G"
>番号 = "00" & bb
>Case Is >= 10
>番号 = "0" & bb
>Case Is < 10
>番号 = "00" & bb
>End Select
　　↓
番号 = String(3 - Len(bb), "0") & bb

>検索1 = Dir("C:\Documents and Settings\mkn\デスクトップ\" & 製番1 & "部材明細表（ヘッド・テール)",

Attributes:=vbDirectory)
この「wkn」ってなんですか？
変数なら、こうしないとまずいんじゃないですか？
"C:\Documents and Settings\" & mkn & "\デスクトップ\"

因みにログインした人のデスクトップなら
CreateObject("WScript.Shell").SpecialFolders("Desktop")
で、取れます。
また、パス、ファイルフルネームは、１度変数に入れた方が見やすいかも....。

因みに
97だと、CopyFileは動かないし、As New FileSystemObject ってやった事ないので解りません。

0 hits

▼

【36943】助けてください・・・・・ ともこ 06/4/18(火) 18:09