Excel VBA質問箱 IV

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

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


44773 / 76732 ←次へ | 前へ→

【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")
で、取れます。
また、パス、ファイルフルネームは、1度変数に入れた方が見やすいかも....。

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

【36943】助けてください・・・・・ ともこ 06/4/18(火) 18:09 質問
【36970】Re:助けてください・・・・・ Jaka 06/4/19(水) 11:10 発言
【36972】Re:助けてください・・・・・ (注意) 06/4/19(水) 11:17 発言
【36985】Re:助けてください・・・・・ Kein 06/4/19(水) 13:19 回答

44773 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free