Excel VBA質問箱 IV

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

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


51089 / 76732 ←次へ | 前へ→

【30517】Re:否定の方法
回答  VBAビギナー  - 05/10/29(土) 10:52 -

引用なし
パスワード
   VBAを勉強しはじめたばかりで
サンプルを応用して自分なりに作っているため、
ちょっと質問の仕方が悪かったと思い反省しています。

>ワークシートモジュールに記述していますよね?
はい。標準モジュールのコードも下記に書いています。

>私は、Excel2002 SP3で、A1に「佐藤」と入力すると何も表示されませんし、「VBA」と入力すると「名前が見つかりません」と表示されました。
>ちなみに以下のようなコードにするとどうなりますか?
佐藤や田中、森と入力しても名前がみつかりませんと表示されてしまい、
セルA3に入力しているようにしているのですが、そこで名前を消したりすると、
入力チェック範囲外と表示されてしまいます。エクセル2000です。

>Targetのアドレスがどうなっているのかな?と。
Targetが引数というのはわかるのですが、意味をわからず使用しているため、
ただ単に名前のチェックを行いたいという希望のもと使用しています。
ちなみにステップ実行を行うと
.Range("B3") = Date
の所で黄色くなり、シートモジュールにとびます。

Option Explicit

Sub 新清算書シート作成()
'' 新清算書シート作成 Macro
' 新しいシートに交通費清算書を作成する
Dim NewSheet As Worksheet
Dim myno As String
Dim 年
Dim 月
Dim 日
 On Error Resume Next
  Call シートの追加
    Set NewSheet = Sheets(2)
    With Worksheets("メニュー")
      .Range("B3") = Date
        年 = CStr(Year(.Range("B3").Value))
        月 = CStr(Month(.Range("B3").Value))
        日 = CStr(Day(.Range("B3").Value))
       NewSheet.Name = .Range("A3").Value & 年 & 月 & 日
       NewSheet.Range("D4").Value = .Range("A3").Value
       NewSheet.Range("F4").Value = .Range("B3").Value
    End With

End Sub
Public Sub シートの追加()
Dim NewSheet As Worksheet
Sheets("新清算書").Copy Before:=Sheets(2)
Set NewSheet = Sheets(2)
End Sub

2 hits

【30513】否定の方法 VBAビギナー 05/10/29(土) 9:03 質問
【30514】Re:否定の方法 かみちゃん 05/10/29(土) 9:18 回答
【30515】Re:否定の方法 VBAビギナー 05/10/29(土) 9:55 回答
【30516】Re:否定の方法 かみちゃん 05/10/29(土) 10:15 回答
【30517】Re:否定の方法 VBAビギナー 05/10/29(土) 10:52 回答
【30522】Re:否定の方法 かみちゃん 05/10/29(土) 11:33 発言
【30528】Re:否定の方法 VBAビギナー 05/10/29(土) 12:52 回答
【30529】Re:否定の方法 かみちゃん 05/10/29(土) 13:07 回答
【30537】Re:否定の方法 VBAビギナー 05/10/29(土) 18:10 回答
【30538】Re:否定の方法 かみちゃん 05/10/29(土) 18:24 発言
【30539】Re:否定の方法 VBAビギナー 05/10/29(土) 18:58 回答
【30540】Re:否定の方法 かみちゃん 05/10/29(土) 19:09 発言
【30542】Re:否定の方法 VBAビギナー 05/10/29(土) 23:17 お礼

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