![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
こんにちは
Range("A1")に仮に☆が入力してあって(A1は好みの1文字を入力できるようになってます)
その☆2個分だと&でつなげてこのようにしてます
一応☆が一個以上入力してあっても一個とするために
Leftを使っています
Range("A2") = Left(Range("A1"), 1) & Left(Range("A1"), 1)
これでRange("A2")は☆が2個になります
でも、いかにもこれは力任せですよね。素人感100%です
もし、☆が10個だと、その分だけ&でつなげないとだめです
マクロがよこに長くなってしまいます
Left(Range("A1"), 1)の10個分を表現するのに他の方法はありますか
条件付き書式に似たやり方があるようですが、マクロでやりたいのですけど
No.1ベストアンサー
- 回答日時:
Option Explicit
Sub Main()
Dim src As String
Dim dest As String
Dim i As Integer
src = "☆"
dest = ""
For i = 0 To 10 - 1
dest = dest & src
Next
MsgBox (dest)
'繰り返しに慣れてほしいからこうしたけど、実はこれだけでもできたりする(汗
dest = String(10, "●")
MsgBox (dest)
End Sub
ありがとうございます
10 - 1がちょっと難しかったですけど
dest = dest & src なので
10をどこかのセルで指定するなら
9まではdest = dest & src ということで
10 - 1なんですね
なぜFor Nextが0から始まるのかは、実際に動かしてみて考えます
Stringは as string でしか 使ったことがありません
dest = String(10, "●")は簡単ですね
マクロは知恵を働かせないと進歩しませんね
やってみます
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) Excelのマクロについて 2 2022/06/14 03:38
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
関数を使った日時の自動入力
-
PowerPointの表内のカンマ
-
LINEのこの空白ってどんな意味...
-
エクセル 0:00 の時間をカウン...
-
EXCELでタイトル行と一番下の行...
-
エクセルで「-3E+06」と...
-
エクセルで日をまたぐ集計方法
-
エクセルの結合セル内に文章を...
-
従業員増減対応で当番種類の増...
-
EXCEL 連動したドロップダウン...
-
スマホのスプレッドシートでセ...
-
エクセルで行の一番上にセルに...
-
飛んでいるセル値の平均値の求め方
-
エクセル 0.1と0.10
-
エクセルexcelで桁を減らして表...
-
エクセルでオートサムを使った...
-
【VBA】PDF出力に任意のファイ...
-
エクセルのオートフィル機能で...
-
Wordの差し込み印刷で空白行が...
-
#VALUE!を表示させないようにし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
tera term マクロのinputbox
-
エクセルにペーストしたときの...
-
漢字→ひらがな 一括変換
-
関数を使った日時の自動入力
-
エクセルでの現在時刻入力
-
エクセルでHTML情報を無視したい
-
エクセルのコピー貼り付けマクロ
-
エクセル_日付けの自動入力
-
単純な掛け算なのにわけのわか...
-
キーボード、マウス操作を自動...
-
「星の数を10個」をマクロで書...
-
Excelを使って問題と解きたいの...
-
エクセル☆セルに入力必須の制限...
-
エクセルで保護を自動に行う設定
-
エクセルで勤怠管理表のようなもの
-
vba 順次記録
-
PowerPointの表内のカンマ
-
【VBA】PDF出力に任意のファイ...
-
EXCELでタイトル行と一番下の行...
-
LINEのこの空白ってどんな意味...
おすすめ情報