Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9199 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28901】rangeオブジェクトエラー 越山　洋 05/9/17(土) 21:36 質問[未読]
【28902】Re:rangeオブジェクトエラー [名前なし] 05/9/17(土) 21:48 発言[未読]
【28903】Re:rangeオブジェクトエラー 越山　洋 05/9/17(土) 22:07 お礼[未読]
【28904】Re:rangeオブジェクトエラー 越山　洋 05/9/17(土) 22:20 質問[未読]
【28909】Re:rangeオブジェクトエラー [名前なし] 05/9/18(日) 10:38 発言[未読]
【28912】Re:rangeオブジェクトエラー 越山　洋 05/9/18(日) 11:49 お礼[未読]
【28901】rangeオブジェクトエラー
質問  越山　洋  - 05/9/17(土) 21:36 -
引用なし
パスワード
   初めて質問させて頂きます。
よろしくお願いします。
次の命令を実行するとset命令で下記ｴﾗｰが出ます。
excelｼｰﾄ("aaaaa")のﾃﾞｰﾀは５件程度でﾃｽﾄしています。
----------------------------------------------------------------------
option explicit
dim rng登録 as range

　　　　Set rng登録 = Range("aaaaa")
　　　　INTキー = CInt(txt顧客コード.Text)
　　　　NOレコード = Application.Match(INTキー, rng登録.Columns(2), 0)
----------------------------------------------------------------------
ｴﾗｰﾒｯｾｰｼﾞ
実行ｴﾗｰ'1004'
'range'ﾒｯｿﾄﾞは失敗しました。'_global'ｵﾌﾞｼﾞｪｸﾄ
------------------------------------------------
【28902】Re:rangeオブジェクトエラー
発言  [名前なし]  - 05/9/17(土) 21:48 -
引用なし
パスワード
   ▼越山　洋 さん：
"aaaaa"というのがシート名なら、

> dim rng登録 as range
>
>　　　　Set rng登録 = Range("aaaaa")

　　　　　　　 ↓

Dim rng登録 As Worksheet

　　　　Set rng登録 = Worksheets("aaaaa")

だと思います。
【28903】Re:rangeオブジェクトエラー
お礼  越山　洋  - 05/9/17(土) 22:07 -
引用なし
パスワード
   ▼[名前なし] さん：
>▼越山　洋 さん：
>"aaaaa"というのがシート名なら、
>
>> dim rng登録 as range
>>
>>　　　　Set rng登録 = Range("aaaaa")
>
>　　　　　　　 ↓
>
>Dim rng登録 As Worksheet
>
>　　　　Set rng登録 = Worksheets("aaaaa")
>
>だと思います。

どうもありがとうございます。
エラーが無くなりました。
【28904】Re:rangeオブジェクトエラー
質問  越山　洋  - 05/9/17(土) 22:20 -
引用なし
パスワード
   ▼越山　洋 さん：
>▼[名前なし] さん：
>>▼越山　洋 さん：
>>"aaaaa"というのがシート名なら、
>>
>>> dim rng登録 as range
>>>
>>>　　　　Set rng登録 = Range("aaaaa")
>>
>>　　　　　　　 ↓
>>
>>Dim rng登録 As Worksheet
>>
>>　　　　Set rng登録 = Worksheets("aaaaa")
>>
>>だと思います。
>
>どうもありがとうございます。
>エラーが無くなりました。

もうひとつ教えて下さい。
下記のmatch関数の２個目の因数の指定方法がよくわかりません。
見つけたいintｷｰがexcelｼｰﾄの１列目ならcolumns(1)、２列目ならcolumns(2)と
記述すれば良いのでしょうか。
よろしくお願いします。

-----------------------------------------------------------------------
Option Explicit
Dim no勤務ファイル新規登録 As Variant

no勤務ファイル新規登録 = _
　　　　　　Application.Match(intキー, rng勤務ファイル新規登録.Columns(1), 0)
-----------------------------------------------------------------------
【28909】Re:rangeオブジェクトエラー
発言  [名前なし]  - 05/9/18(日) 10:38 -
引用なし
パスワード
   ▼越山　洋 さん：
>見つけたいintｷｰがexcelｼｰﾄの１列目ならcolumns(1)、２列目ならcolumns(2)と
>記述すれば良いのでしょうか。

それで何か問題があるのでしょうか？
【28912】Re:rangeオブジェクトエラー
お礼  越山　洋  - 05/9/18(日) 11:49 -
引用なし
パスワード
   ▼[名前なし] さん：
>▼越山　洋 さん：
>>見つけたいintｷｰがexcelｼｰﾄの１列目ならcolumns(1)、２列目ならcolumns(2)と
>>記述すれば良いのでしょうか。
>
>それで何か問題があるのでしょうか？

検索結果はうまくいっているので、問題があるわけではありません。
match関数の２番目の因数は検索範囲とありますが、このような記述で正しいのか
不安があったので質問させて頂きました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9199 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free