Excel VBA質問箱 IV

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

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


18042 / 76732 ←次へ | 前へ→

【64134】Re:メニューバーの非表示について
質問  らいち  - 10/1/21(木) 14:11 -

引用なし
パスワード
   有難う御座います。早速やってみます。

あと今回までにご相談しました下記コードの中で
InPtに入力された値をC3セルに入れ、VLOOKUP関数を使って表示し、
表示された内容を新規ブックにコピーしていましたが
VLOOKUP関数の表記が長すぎて、入力できずに困ってます。
これもVBAコードに入れ込みたいのですが、どうすれば
よろしいでしょうか。

・セルに入力したVLOOKUP関数
=IF($C$3="","",TRIM(CONCATENATE(VLOOKUP($C$3,台帳!$C$5:$CP$3000,24,FALSE),
VLOOKUP($C$3,台帳!$C$5:$CP$3000,25,FALSE),VLOOKUP($C$3,台帳!$C$5:$CP$3000,26,FALSE),
VLOOKUP($C$3,台帳!$C$5:$CP$3000,27,FALSE),VLOOKUP($C$3,台帳!$C$5:$CP$3000,28,FALSE),
VLOOKUP($C$3,台帳!$C$5:$CP$3000,29,FALSE),VLOOKUP($C$3,台帳!$C$5:$CP$3000,30,FALSE),
VLOOKUP($C$3,台帳!$C$5:$CP$3000,31,FALSE),VLOOKUP($C$3,台帳!$C$5:$CP$3000,32,FALSE)," ",
VLOOKUP($C$3,台帳!$C$5:$CP$3000,33,FALSE),VLOOKUP($C$3,台帳!$C$5:$CP$3000,34,FALSE)・・・VLOOKUP($C$3,台帳!$C$5:$CP$3000,64,FALSE)

・ご相談しているVBAコード
Private Sub タグ作成_Click()
  Dim ws As Worksheet
  Dim InPt As Long
  InPt = Application.InputBox(prompt:="No.を入力して下さい。", Type:=1)
  If InPt = False Then Exit Sub
  If ActiveSheet.Range("$c$5:$c$3000").Find(What:=InPt, _
                       LookIn:=xlValues, _
                       lookat:=xlWhole, _
                       SearchOrder:=xlByColumns, _
                       MatchByte:=False) Is Nothing Then
    MsgBox "No." & InPt & "は登録されていません。"
    Exit Sub
  End If
  Application.EnableEvents = False
  Set ws = ThisWorkbook.Sheets("タグ")
  ws.Range("C3").Value = InPt
  With Workbooks.Add
    With .Sheets(1)
      ws.Range("B2:C16").Copy
      .Range("B2").PasteSpecial Paste:=xlFormats
      .Range("B2").PasteSpecial Paste:=xlValues
      .Range("A:A,D:D").ColumnWidth = 0.5
      .Columns("B:B").ColumnWidth = 10
      .Columns("C:C").ColumnWidth = 50
      .Rows(1).RowHeight = 5
      .Rows(17).RowHeight = 5
      .Columns("E:IV").Hidden = True
      .Rows("18:65536").Hidden = True
      .Range("c3").Locked = True
      .Protect password:="1234"
    End With
    With .Windows(1)
      .DisplayGridlines = False
      .DisplayHeadings = False
      .DisplayOutline = False
      .DisplayZeros = False
      .DisplayHorizontalScrollBar = False
      .DisplayVerticalScrollBar = False
      .DisplayWorkbookTabs = False
    End With
    .SaveAs Filename:=ThisWorkbook.Path & "\" & InPt & "タグ.xls"
     .DisplayAlerts = False
    .Close False
  End With
  ws.Range("C3").ClearContents
  With Application
    .EnableEvents = True
  End With
  Set ws = Nothing
  MsgBox "タグ作成しました。"

0 hits

【63991】メニューバーの非表示について らいち 10/1/8(金) 18:13 質問
【63998】Re:メニューバーの非表示について n 10/1/9(土) 16:23 発言
【64032】Re:メニューバーの非表示について らいち 10/1/11(月) 9:25 質問
【64034】Re:メニューバーの非表示について らいち 10/1/11(月) 11:44 お礼
【64035】Re:メニューバーの非表示について n 10/1/11(月) 17:16 発言
【64040】Re:メニューバーの非表示について らいち 10/1/12(火) 10:28 質問
【64041】Re:メニューバーの非表示について n 10/1/12(火) 16:04 発言
【64042】Re:メニューバーの非表示について らいち 10/1/12(火) 18:06 お礼
【64119】Re:メニューバーの非表示について らいち 10/1/20(水) 17:02 質問
【64122】Re:メニューバーの非表示について n 10/1/20(水) 20:06 発言
【64129】Re:メニューバーの非表示について n 10/1/21(木) 1:31 発言
【64134】Re:メニューバーの非表示について らいち 10/1/21(木) 14:11 質問
【64137】Re:メニューバーの非表示について n 10/1/21(木) 19:33 発言
【64138】有難う御座いました。 らいち 10/1/21(木) 19:39 お礼

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