No.3
- 回答日時:
分かりづらくてすいません。
下のように、ユーザーフォームの指定から
Private Sub UserForm_Initialize()
はじまるものは、モジュールではなく
フォームです。
プログラムを書く場所は
モジュールのほかに
シート、ブックと
フォームにも書けます。
方法は、ユーザーフォームを挿入します。
好みのものに作成して、
作ったフォームをダブルクリックすると
コードを書く画面が表示されます。
通常、フォームはそれぞれの
「イベント」というものを一つの単位として
動きます。イベントはたとえば
フォームにあるボタンを「押した時」
のように動作のタイミングをいいます。
時間のある時に、試しにひとつ作ってみることを
おすすめします。
フォームを挿入、気に入るように部品を配置する
コードの記述は、本を見ながら。
少し時間は必要だと思いますが
応用がきいて面白いと思います。ぜひ。
今回のものは、このプログラムの記述用に作った
フォームをもとに作成しているものなので
モジュールのように、コードだけ貼り付けても
動きません。先にフォームを作成して
加えて、コードの中で使われている「名称」とも
同期がとれていないとダメです。
なので簡単には行かないですね。
単語の長さは
If 単語長 > 1 Then
のところで
1以上だったら(2だったら)
やめて次の行にいきましょう
という内容です。
変えてないので分かりませんが
この辺を変えるといいと思います。
ただ、フォームの入力も
桁数制限したような気がします。
これも、もしかすると簡単ではないかもしれません。
大変申し訳ないのですが
コードを分析してもらえますか。
または、参考にして別物を作って下さい。
今回のためだけの
つもりだったので
汎用性は考えてませんでした。
すいません。
がんばって下さい。
misaki02さん、いろいろとありがとうございました。
教えていただいたように、あとは自分でチャレンジしてみます。
当分は作っていただいたマクロを使って仕事ができますので、その間に少しずつ勉強したいと思います。
本当にお手間を取ってくださってありがとうございました。
がんばってみます!
No.2
- 回答日時:
シートのイベントか
下のフォームで可能です。
マクロです。
テキストボックスを4つ配置したものです。
Private Sub UserForm_Initialize()
TextBox2.Value = ActiveCell.Row
TextBox3.Value = ActiveCell.Column
End Sub
Private Sub TextBox1_Change()
Dim 行 As Integer
Dim 列 As Integer
Dim 入力単語 As String
行 = TextBox2.Value
列 = TextBox3.Value
入力単語 = TextBox1.Value
Cells(行, 列) = 入力単語
単語長 = LenB(入力単語) - 1
If 単語長 > 1 Then
TextBox4.Value = 入力単語
TextBox2.Value = TextBox2.Value + 1
TextBox1.Value = Null
Cells(TextBox2.Value, 列).Select
End If
End Sub
この回答への補足
misaki02さん、ありがとうございます!
もしよければ上のNo.4のマクロの実行の仕方も教えていただけないでしょうか?
今後、2桁以外に1桁や3桁のデータも発生する可能性があるので、その時には自分でアレンジしたいと思っています。
Visual Basic Editorに標準モジュールを挿入して、上のマクロをすべてコピー・貼付けしたのですが、うまくいきませんでした。
私はまったくのマクロ初心者なので、きっと何かトンチンカンなことをしているのだろうと思います。
他の人の質問ページも調べてみたりしましたが、よくわかりませんでした。
どうかよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルについて質問です。 8 2022/05/31 16:00
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- Excel(エクセル) セルの上書き禁止について 5 2022/04/02 10:09
- Excel(エクセル) EXCELでリターンキーが押されたらそのセルに特定の文字を表示したいのですが。 2 2022/08/07 12:58
- Excel(エクセル) エクセルの使い方について。 A〜F列に10個ずつデータが入力されています。左隣のセルよりも数値が2倍 3 2022/09/28 18:03
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルのセルの書式設定・ユーザー定義の条件設定について 1 2022/08/17 21:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで英数大文字のみの入...
-
マンション名のローマ数字入力...
-
Apple IDの作成ができない。「...
-
認証コードが入力できない(同...
-
Excelが勝手に閉じてしまって困...
-
エクセルVBAでTargetのセルに設...
-
コマンドプロンプト表示が一瞬...
-
Windows 画像サイズ変更
-
inputとenterの違い
-
初歩的なことなんですが。produ...
-
エクセルVBA、入力しないと閉じ...
-
VLOOKUP関数で返した値(カタカ...
-
gnuPGでパスフレーズが入力でき...
-
ヤフ-の検索に入力出来ません。
-
【キーボード】母音しか打てない…
-
エクセルマクロ セルをクリック...
-
Excel:長い文字列が途中で切れる
-
Windows10 IME 変換候補の順番...
-
エクセルで10進法から60進法に...
-
Excelやブラウザを開いた時にタ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで英数大文字のみの入...
-
Apple IDの作成ができない。「...
-
マンション名のローマ数字入力...
-
認証コードが入力できない(同...
-
Excelが勝手に閉じてしまって困...
-
inputとenterの違い
-
Windows 画像サイズ変更
-
エクセルVBAでTargetのセルに設...
-
Excelにて入力済セルへの再入力...
-
エクセル 時間を.(ドット)で...
-
Windows11はログアウト必ずPIN...
-
ifで10個以上の条件判断がしたい
-
エクセルVBA、入力しないと閉じ...
-
ワードでの音声入力
-
カスペルスキーのダウンロード...
-
初歩的なことなんですが。produ...
-
某信用金庫の通帳アプリ
-
teratermでユーザー変更したい
-
左向きにエクセルで作成され申...
-
ATOKでエクセルに入力できない
おすすめ情報