Excel VBA質問箱 IV

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

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


23809 / 76732 ←次へ | 前へ→

【58283】Re:入力規則にある「元の値」の取得方法
発言  Abebobo  - 08/10/16(木) 0:33 -

引用なし
パスワード
   ponpon さん 違います違います(焦)
すれ違いです!!
質問者さんの過去ログ見て、参考サイト探して、パンチして投稿したら
ponpon さんの方が早かったんです。マジです

名前を使うマクロ
Sub Macro1()
  Dim List1  As String

  With Sheets("SheetA")
   List1 = "=SheetA!" & .Range(.Range("A1"), .Range("A1").End(xlDown)).Address
  End With
  ActiveWorkbook.Names.Add Name:="範囲1", RefersToLocal:=List1
  With Sheets("SheetB").Range("A1").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=範囲1"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
  End With
End Sub

私が書いた一般機能の方法を記録に取って、ちょっと加工しました
2 hits

【58275】入力規則にある「元の値」の取得方法 夜勤担当 08/10/15(水) 22:22 質問
【58277】Re:入力規則にある「元の値」の取得方法 ponpon 08/10/15(水) 23:21 発言
【58278】Re:入力規則にある「元の値」の取得方法 Abebobo 08/10/15(水) 23:24 発言
【58279】Re:入力規則にある「元の値」の取得方法 ponpon 08/10/15(水) 23:54 発言
【58283】Re:入力規則にある「元の値」の取得方法 Abebobo 08/10/16(木) 0:33 発言
【58286】目安箱も見てね。 Jaka 08/10/16(木) 10:38 発言
【58292】Re:目安箱も見てね。 ponpon 08/10/16(木) 20:12 発言

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