Excel VBA質問箱 IV

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

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


40875 / 76732 ←次へ | 前へ→

【40946】Re:入力規則をVBAで制御
回答  ハト  - 06/7/26(水) 17:35 -

引用なし
パスワード
   おはようございます

▼すず さん:

>そこで動的に入力規則のリストを変化させるのに、以下のようにコードを書いてみましたがエラーが出ます。

エラーの原因と思われるところは


>Sub test()
>Dim lRng    As String
>Dim rRng    As String
>Dim hRng    As String
>Dim k      As Integer
>  k = Worksheets("main").Range("H1").Value
>  lRng = "G1"
>  rRng = "G" & k
>  hRng = lRng & ":" & rRng        '←変更
  hRng = "=" & lRng & ":" & rRng  
>  With Worksheets("main").Range("C4")  '←変更
  With Worksheets("main").Range("C4").Validation
      .Delete             '←追加
>      .Add Type:=xlValidateList, AlertStyle:= _
>        xlValidAlertStop, Operator:= xlBetween, _
>        Formula1:=hRng 
>      .ErrorMessage = "駐車場名を正しく選択してください"
>      .IMEMode = xlIMEModeNoControl
>  End With
>End Sub

以上3箇所を修正して試してみて下さい

0 hits

【40941】入力規則をVBAで制御 すず 06/7/26(水) 16:42 質問
【40945】Re:入力規則をVBAで制御 Kein 06/7/26(水) 17:30 回答
【40969】Re:入力規則をVBAで制御 すず 06/7/27(木) 9:13 お礼
【40946】Re:入力規則をVBAで制御 ハト 06/7/26(水) 17:35 回答
【40970】Re:入力規則をVBAで制御 すず 06/7/27(木) 9:14 お礼

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