シートが「回答フォーム」と「用語」と言うのがあります。
(1)「回答フォーム」シートに"入力"ボンタをクリックすると「用語」のシートに入力される。
(2)回答フォーム」シートに"検索"ボンタをクリックすると「用語」のシートからフォームへ表示される。
用語のシートに項目は、A列から、ナンバー、検索、フリガナ、用途、用語、意味とあります。
TextBox1に用語、TextBox2に用途、TextBox3に意味
とあります。
(1)には
Private Sub 入力_Click()
Sheets("用語").ActiveSheet・・・ここがエラーになります。
「オブジェクトはこのプロパティまたはメソッドをサポートしていません。」
行 = ActiveCell.Row
列 = ActiveCell.Column
Cells(行, 列) = UserForm1.TextBox1.Value
Cells(行, 列 + 1) =UserForm1.TextBox2.Value
Cells(行, 列 + 2)=UerForm1.TextBox3.Value
UserForm1.TextBox1.SetFocus
Cells(行 + 1, 列).Select
End Sub
(2)には
Private Sub CommandButton1_Click()
Set sh1 = bk.Worksheets("回答フォーム")
Set sh5 = bk.Worksheets("用語")
cnt1 = 2
UserForm1.TextBox1.Value・・・・ここのVALUEがエラーになります。
「コンパイルエラー プロパティの使い方が不正です。」
ActiveCell.FormulaR1C1 = "=MATCH(RC[-1],用語!C[-5],0)"
n = ActiveCell.Value
'用語
sh5.Cells(n, 2).Value = sh1.TextBox1.Value
'意味
sh5.Cells(n, 3).Value = sh1.TextBox3.Value
'用途
sh5.Cells(n, 4).Value = sh1.TextBox2.Value
End Sub
申し訳ないですがよろしくお願い致します。
No.1ベストアンサー
- 回答日時:
>Sheets("用語").ActiveSheet
ActiveSheetもSheets("用語")も、シートを示しているので、エラーになるのは当たり前。
Sheets("用語").ActivateやSheets("用語").Select
なら問題無いでしょう。
>UserForm1.TextBox1.Value
記述はこれだけですか?
「UserForm1.TextBox1」の値(Value)を参照しているのに、値に何かを格納したり取出す事をしていないためではないですか?
UserForm1.TextBox1.Value = "A"
変数 = UserForm1.TextBox1.Value
この回答への補足
(1)を
Private Sub 入力_Click()
Sheets("用語").Select
行 = ActiveCell.Row
列 = ActiveCell.Column
Cells(行, 列) = UserForm1.TextBox1.Value
Cells(行, 列 + 1) = UserForm1.TextBox2.Value
Cells(行, 列 + 2) = UserForm1.TextBox3.Value
UserForm1.TextBox1.SetFocus
Cells(行 + 1, 列).Select
End Sub
に変更しました。
エラーはでなくなりましたが、用語シートの
セルの位置を探しにいかずに
アクティブセルから入力さてしまいます。
又(2)を
Private Sub CommandButton1_Click()
Set sh1 = bk.Worksheets("回答フォーム")・・・・*
Set sh5 = bk.Worksheets("用語")
cnt1 = 2
UserForm1.TextBox1.Value = "A"
A = UserForm1.TextBox1.Value
'用語
sh5.Cells(n, 2).Value = sh1.TextBox1.Value
'意味
sh5.Cells(n, 3).Value = sh1.TextBox3.Value
'用途
sh5.Cells(n, 4).Value = sh1.TextBox2.Value
End Sub
に変更しました。
*が黄色になります。
何度もすみません。
(1)の方は解決しました。
Private Sub 入力_Click()
Sheets("用語").Select '入力するシートを選ぶ
Range("B65536").End(xlUp).Offset(1).Select '空白のセルを選ぶ
行 = ActiveCell.Row 'アクティブセルから下へ
列 = ActiveCell.Column
Cells(行, 列) = UserForm1.TextBox1.Value
Cells(行, 列 + 1) = UserForm1.TextBox2.Value
Cells(行, 列 + 2) = UserForm1.TextBox3.Value
UserForm1.TextBox1.SetFocus
Cells(行 + 1, 列).Select
'次の入力のためテキストボックスを空白にする
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Sheets("回答フォーム").Select
End Sub
ありがとうございました。
(2)の方はもう少し勉強してみます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAのマクロで他のシー...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
エクセルVBA Ifでシート名が合...
-
シートが保護されている状態で...
-
【エクセルVBA】「Protect User...
-
別のシートから値を取得するとき
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
userFormに貼り付けたLabelを変...
-
Worksheet_Changeの内容を標準...
-
トグルボタン一部を一度にON OF...
-
重複するidをデータごとにまと...
-
VBA 検索して一致したセル...
-
VBAでオブジェクト変数にsetし...
-
Excel VBA 文字列のセルを反映...
-
excelのマクロで該当処理できな...
-
Excel VBA で自然対数の関数Ln...
-
ブック名、シート名を他のモジ...
-
エクセルのマクロでアクティブ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
別のシートから値を取得するとき
-
ブック名、シート名を他のモジ...
-
実行時エラー'1004': WorkSheet...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
エクセルのシート名変更で重複...
-
実行時エラー1004「Select メソ...
-
VBAで同じシート名のコピー時は...
-
エクセルで通し番号を入れてチ...
-
同じ作業を複数のシートに実行...
-
Excel VBA リンク先をシート...
-
ExcelのVBAのマクロで他のシー...
-
Vba UserformからExcelシートの...
-
【Excel VBA】Worksheets().Act...
-
VBA 存在しないシートを選...
おすすめ情報