Excel VBA質問箱 IV

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

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


18982 / 76733 ←次へ | 前へ→

【63188】Re:特定の文字を含むシートだけを移動させる方法
発言  Yuki  - 09/10/14(水) 8:35 -

引用なし
パスワード
   ▼けい さん:
注釈をつけて見ました
一部添削あります。

  Set ShWO = Worksheets("WO") '←ブック名を指定

  '号機情報
  With UserForm2
    If .LineStxt = "" Then
      MsgBox "号機を入力して下さい"
      'End
      Exit Sub
    Else
      If .LineStxt.Value = .LineEtxt.Value Or .LineEtxt.Value = "" Then
        号Start = .LineStxt.Value
        号End = .LineStxt.Value
      Else
        号Start = .LineStxt.Value
        号End = .LineEtxt.Value
      End If
    End If
 
  'SFX
    Select Case True
      Case .OptionButton1.Value
        SFX = "-101"
        WO = "部品用"
      Case .OptionButton2.Value
        SFX = "-201"
        WO = "部品用"
      Case .OptionButton3.Value
        SFX = "-301"
        WO = "部品用"
      Case .OptionButton4.Value
        SFX = "-111"
        WO = "部品用"
      Case .OptionButton5.Value
        SFX = "-301"
        WO = "組立用"
      Case .OptionButton6.Value
        SFX = "-201"
        WO = "組立用"
      Case .OptionButton7.Value
        SFX = "-111"
        WO = "組立用"
      Case .OptionButton8.Value
        SFX = "-101"
        WO = "組立用"
      Case Else
        MsgBox "WOを選択して下さい"
        'End
        Exit Sub
    End Select
  End With
  
  Set ShBOM = Worksheets("BOM") '← ブック名を指定
  LastR = ShBOM.Range("B65536").End(xlUp).Row

  For i = 11 To LastR
    If ShBOM.Range("A" & i).Value = "★" Then
      Lev = ShBOM.Range("B" & i).Value '階層
      Parts = ShBOM.Range("D" & i).Value '部品番号
     '↓ コピー元ブック名指定    ↓ コピー先のブック名指定
      Worksheets("原紙").Copy after:=Worksheets(Sheets.Count) '←ここでたまにエラーがでます
     '↓ コピー先のブック名指定
      Worksheets(Sheets.Count).Name = Parts & "_" & Format(号Start, "0000")
            '↓ コピー先のブック名指定
      Set ShMas1 = Worksheets(Parts & "_" & Format(号Start, "0000"))
3 hits

【63091】特定の文字を含むシートだけを移動させる方法 けい 09/10/7(水) 15:16 質問
【63092】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/7(水) 15:41 発言
【63113】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:20 お礼
【63093】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/7(水) 15:48 発言
【63114】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 9:25 質問
【63115】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 10:23 質問
【63116】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/9(金) 11:20 発言
【63117】Re:特定の文字を含むシートだけを移動させ... けい 09/10/9(金) 12:02 質問
【63118】Re:特定の文字を含むシートだけを移動させ... Jaka 09/10/9(金) 13:34 発言
【63174】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:03 質問
【63119】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/9(金) 15:27 発言
【63175】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 8:05 質問
【63176】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/13(火) 8:58 発言
【63177】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 10:00 発言
【63178】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 12:58 発言
【63179】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 15:13 発言
【63180】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 15:42 発言
【63181】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/13(火) 15:48 発言
【63182】Re:特定の文字を含むシートだけを移動させ... けい 09/10/13(火) 16:35 発言
【63184】Re:特定の文字を含むシートだけを移動させ... seg 09/10/13(火) 17:27 発言
【63187】Re:特定の文字を含むシートだけを移動させ... けい 09/10/14(水) 8:26 お礼
【63188】Re:特定の文字を含むシートだけを移動させ... Yuki 09/10/14(水) 8:35 発言
【63193】Re:特定の文字を含むシートだけを移動させ... けい 09/10/15(木) 9:16 お礼

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