![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
添付の図のとおりシートを作ってください。
その後、次のマクロを実行するとC2以下にしりとりの結果が表示されます。シートは、A列がしりとりに使うワード。C1セルは最初のお題となっています。
Sub sample()
Dim Word As Range
Dim i As Long
Set Word = Range("C1")
Do Until Word.Value = ""
Word.Offset(1).Value = Siritori(Word.Value)
Set Word = Word.Offset(1)
Loop
End Sub
Function Siritori(Kotoba As String) As String
Dim c As Range
Dim firstAddress As String
With Worksheets("Sheet1").Range("A:A")
Set c = .Find(Right(Kotoba, 1) & "*", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c.Offset(0, 1).Value = "" Then
c.Offset(0, 1).Value = "済"
Siritori = c.Value
Exit Do
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Function
![「ExcelVBAでしりとりのやり方を教え」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/5/542293914_57e63614e4752/M.png)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) 機械詳しくないのでわかる方教えて欲しいです 録画してたものを見ようと思って、テレビの方のリモコンで入 1 2022/10/19 20:30
- オンラインゲーム fpsゲームについて質問です。 チートがプレイヤーをキルすることと高ランク(Apexならマスターやプ 1 2023/07/09 21:47
- 携帯型ゲーム機 ポケモンSV改造判定 4 2023/06/04 01:29
- その他(社会・学校・職場) 現在定時制高校に通う1年生です。 一昨日バスケ部の顧問の先生に バスケをやってみないか、と言われ 体 4 2022/10/27 15:36
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- オンラインゲーム Wi-Fi、プレイヤー、勝手に侵入。 1 2022/09/20 01:45
- 統計学 ガチャガチャの中に、あるアニメの キャラAのフィギュアが3種類1個ずつ キャラBのフィギュアが3種類 1 2022/06/04 15:28
- その他(悩み相談・人生相談) 私は高校で男バスのマネージャーをしています。 中学でバスケをやっていたわけでもなく、バスケはテレビで 4 2022/08/10 17:13
- フリーソフト AIMPに代わるおすすめのプレイヤー(フリーソフト)を教えてください 2 2022/08/11 20:32
- C言語・C++・C# 石取りゲームをC言語プログラムで教えてください 1 2022/04/09 14:16
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access VBAで行ラベルが定義さ...
-
Accessのマクロでモジュールを...
-
或るプロシージャの呼び出し元判定
-
エクセルVBAでUserFormを起動し...
-
vbaでブックを開いたときにコン...
-
【Excel VBA】 WorksheetやRa...
-
ACCESS マクロをモジュールに変...
-
自作アドインのFunctionプロシ...
-
DECLARE
-
callで順に実行されるプロシー...
-
excel/vba/public変数
-
VBA プロシージャの名前の取得
-
Access VBA ラベル印刷開始位置...
-
ACCESS2007インポート時の空白...
-
Accessでグローバル変数を宣言...
-
フォームモジュール イベント...
-
excel2000vba ハイパーリンク
-
EXCEL 2003におけるVBA,マクロ...
-
Accessの数値から時間に変換す...
-
Google Apps Script、onChange...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのマクロでモジュールを...
-
Access VBAで行ラベルが定義さ...
-
エクセルVBAでUserFormを起動し...
-
callで順に実行されるプロシー...
-
VBA プロシージャの名前の取得
-
【Excel VBA】 WorksheetやRa...
-
OutlookVBAで作成したマクロに...
-
或るプロシージャの呼び出し元判定
-
Accessでグローバル変数を宣言...
-
DBMS_OUTPUT.PUT_LINEを実行し...
-
ACCESS2007インポート時の空白...
-
PL/SQLのエラーについて
-
excel/vba/public変数
-
Excel VBAで「プログラム実行」...
-
エクセルVBAが対応できるプログ...
-
ACCESS マクロをモジュールに変...
-
Excel:ThisWorkbookオブジェク...
-
ブックオープン時にテキストボ...
-
VBA 「文字が入っていたら、...
-
vbaでブックを開いたときにコン...
おすすめ情報