No.6ベストアンサー
- 回答日時:
補足を書きかえるなら、
rows = FR.rows '検索した名前の行番号取得
int_rows = CInt(rows)
↓
Dim fndRow AS Integer
fndRow= FR.Row '検索した名前の行番号取得
int_rows = CInt(fndRow) 'ほとんど意味がない?
※.Rows→.Row
※rows を別の変数にしました。
でしょうか。
どうも回りくどいようです。
私なら、次のように書きますが・・・
If Not FR Is Nothing Then
Sheets(1).Cells(1, 1) = FR.Offset(0, -1) '検索した名前の左
End If
No.4
- 回答日時:
#2の補足に対する回答です。
sub test()
Dim searchWord As String
searchWord = TextBox1.Text
With Worksheets("Sheet2").Range("B1:B1000")
Set FR = .Find(What:=searchWord, LookIn:=xlValues, LookAt:=xlWhole)
If Not FR Is Nothing Then
aRows = FR.Row '検索した名前の行番号取得
Sheets(1).Cells(1, 1).Value = Sheets("Sheet2").Cells(aRows, 1)
End If
End With
end sub
でどうでしょうか?間違っていたらすみません。
この回答への補足
CELLSの引数は整数型なのでFR.ROWSの戻り値はSTRING型なので型が一致していませんというエラーが発生してしまいます。
このaRowsを何とかInteger型に変換したいのですが。。。
No.3
- 回答日時:
●下記でいずれも動きますよ。
テスト済み。cells(n)はA1より横に数えて、n番目のセルを指す。
256を越えると257はB1になります。
普通この使い方はしませんが。worksheets,workbooksでは
良く使います。
Sub test01()
Dim a As Integer
a = 5
Cells(1) = "aaa"
Cells(3) = 123
Cells(123) = 1234 'DS1
Cells(a) = 111
Cells(257) = "aa"
End Sub
●下記はエラーが出ず動きましたよ。
Sub test02()
Dim moji As String
moji = "3"
a = CInt(moji)
Cells(a) = "ccc"
End Sub
「123」にすると確かめ難いので、「3」にしました。
Dim a As Integerをいれても動きました。
No.2
- 回答日時:
Cellsには範囲をしていしなければいけません。
例えば、Cells(1, 1)のようにです。
質問者さんの形だと、Cells(123)になっていますね。
だからではないでしょうか?
具体的にどのようなことがしたいか教えていただければ、もう少し詳しい回答ができるかもしれません。
この回答への補足
説明不足で失礼致しました。実は今、
textboxで入力した名前を
SHEET2で定義されているデータ一覧から名前を検索しコード値を取得してきてSHEET1のセル(1,1)に表示させるプログラムを作成しています。
sheet2にはコードと名前の列があります。
A B
コード 名前
1 小池
2 田中
3 峰
といった感じで1000件あります。
(例)小池とテキストボックスにうつとセル(1,1)に1と表示させる
そこで
Dim searchWord as String
searchWord = TextBox1.text
With Worksheets("Sheet2").Range("B1:B1000")
Set FR = .Find(What:=searchWord, LookIn:=xlValues, LookAt:=xlWhole)
If Not FR Is Nothing Then
rows = FR.rows '検索した名前の行番号取得
int_rows = CInt(rows)
Sheets(1).Cells(1,1).Value = Sheets("Sheet2").Cells(int_rows, 1) 'ここでエラーが発生(”データ型が一致していません”)
End If
End With
以上よろしくお願いいたします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) VBA GetAttrについて教えてください 2 2022/12/22 15:25
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) vbaの計算 if elseと範囲について 6 2022/11/26 01:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB6.0】 あるフォームから他...
-
VB6のFriendについて
-
定数を構造体で・・・
-
プログラムの素朴な質問です 分...
-
プロシージャまたは関数の引数...
-
PL/SQLのプロシージャ間でカー...
-
C#のループでtextboxに値を入れ...
-
二点の座標から距離や角度を求...
-
VB.NETでのイベントの途中終了
-
エクセルVBAでテキストボッ...
-
C言語のサフィックスについて
-
VBAでcallで呼び出したsubを終...
-
他のフォームから別のフォーム...
-
pthread_cond_waitとptherad_co...
-
VC++ (byte)(col & 0xFF) の意味
-
Pythonでのstrip()とsplit()の...
-
perlによるxmlファイルの取得
-
sublimit textっていうエディタ...
-
レコードセットにnullの場合
-
C言語で10行10列の行列式の値を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プログラムの素朴な質問です 分...
-
【VB6.0】 あるフォームから他...
-
定数を構造体で・・・
-
プロシージャまたは関数の引数...
-
Excel vba で複数のテキストの...
-
【VBScript】変数のスコープ
-
パーソナルXLSBのfuctionを呼び...
-
【HTML、VBScript】HTAアプリケ...
-
プロシージャを呼び出したプロ...
-
VB6のFriendについて
-
PL/SQLのプロシージャ間でカー...
-
ExcelのVBA。Staticな変数について
-
HTML + VBScript で Sleep でき...
-
整数を二つ読み込み、それらの...
-
プロシージャの引数の取り得る...
-
Excel VBA カーソルを当てた際...
-
subを連続で実行する
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
-
C#のループでtextboxに値を入れ...
おすすめ情報