No.1ベストアンサー
- 回答日時:
A1~A25に1から25までの数字を入力。
A26には0(ゼロ)を入力。
B1~B26にAからZまでのアルファベットを入力。
C2に =MOD(C1,26) を入力。
C3に =VLOOKUP(C2,A1:B26,2,FALSE) を入力。
ここで 表示→ツールバー→フォーム を選んで、
スピンボタンを適当な場所に作ります。
そのスピンボタンを右クリック→コントロールの書式設定→コントロールタブで、
最小値1、最大値10000(適当)、変化の増分1、リンクするセル$C$1 としてください。
これでスピンボタンをクリックするたびにC1が1ずつ増えて行き、C3のアルファベットがA~Zでループします。
ボタンを10000回クリックすれば止まりますが。
No.2
- 回答日時:
タイトルでも、曖昧な書き方になっていますが、Office系のソフトっていうのは、Excelで良いのですね。
もし、違う場合でも、Range("A1")の部分を書き換えれば、何とか利用できるはずです。シートモジュールか、標準モジュールに貼り付けて、ボタンに設定すれば出来るはずです。以下は、A~Zですが、その部分をご自由に書き換えが可能です。
Sub Loop_String1()
Dim myStr As String
Dim myRng As Range
Dim num As Integer
'=ABC・・・を、お好きな順序で書き換えてください。
Const myStrings As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
'A1 の中を、指定してください。
Set myRng = Range("A1")
num = Len(myStrings)
myStr = myRng.Value
If myStr Like "[A-Z]" Then
myRng.Value = Mid$(myStrings, (InStr(myStrings, myStr) Mod num) + 1, 1)
Else
myRng.Value = Mid$(myStrings, 1, 1)
End If
Set myRng = Nothing
End Sub
なお、ワークシート関数で考えると、その文字の位置を取得するのは、FIND関数です。それに、MOD(文字位置,26)+1 で、次の文字を、MID関数で出せばよいのですから、
=MID("ABCDEFGHIJKLMNOPQRSTUVWXYZ",MOD(FIND(A1,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),26)+1,1)
ということになりますから、文字列を取得して、書き換えるだけのマクロでも可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(動画サービス) Tver アンケートに回答しても視聴できない(何度もアンケート画面が開く) 1 2023/01/13 21:47
- Windows 10 explorerをedgeで開く方法 2 2022/06/05 14:59
- Excel(エクセル) excelvbaでスライドショーを作りたい 2 2023/04/20 14:32
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- その他(Microsoft Office) windows10で作業を終了する際の「保存しますか はい いいえ」を表示させずに自動で保存する方法 6 2023/03/15 11:29
- Visual Basic(VBA) Edge操作のアプリが例外発生に 1 2023/03/12 21:22
- Word(ワード) Wordで作った「表の罫線を部分的に削除したい」 4 2023/07/24 07:00
- 教育学 エクセルで小数点以下を四捨五入について教えてください。 2 2023/04/05 17:33
- Excel(エクセル) マクロで謎の現象が起きていて困ってます。 エクセルで作ったボタンを押すとマクロが動いて処理をしてくれ 3 2023/06/22 17:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報