
よろしくお願いします。
ワード2010の表機能だと、【Ctrl + Tab】でTab機能が使えるようですが、エクセルに同様の機能はありますでしょうか。
エクセルの一つのセル内で下記のようなことをしたいです。
N01 あいうえお
No2 かきくけこ
No10 さしすせそ
No1、No2は左揃えでそろっているのですが、【No】と【あいうえお】等(仮に本データと呼びます)の間にスペースを入れており、本データの開始位置をそろえたいです。
No1、とNo10では、本データを入力する開始位置をそろえることが難しく、現在自分で全角、半角のスペースを入れてそろえていますが、Tabキーのような形で簡単にそろえることは出来ないでしょうか
教えてください。
よろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
マクロで、ショートカットの設定まで含めたコードを作ってみました。
このマクロは、正規表現で、No1の部分を探して、最大文字数を調べて、空白を入れるという仕組みになっています。
.Pattern = "^(No\.*\d+)\b"
>現在自分で全角、半角のスペースを入れてそろえていますが、Tabキーのような形で簡単にそろえることは出来ないでしょうか
大きな問題は、MS P ゴシックと、プロポーショナルになっている所を変更しています。空白の場所は避けて通ります。
★の部分を書き換えると、上書きモードになります。
使い方は、
範囲をマウスで選択して、Ctrl + Tab で、書き換わります。
その時、MS ゴシック(等幅フォント)に変わります。
'//標準モジュール
Sub Auto_Open() 'ブックを開いた時に設定させる
Call SettingShortcutKey
End Sub
Sub SettingShortcutKey()
'ショートカットの設定
Application.OnKey "^{TAB}", "AlignmentPr"
End Sub
Sub AlignmentPr()
Dim objRe As Object
Dim nos() As Variant
Dim i As Long, j As Long, Maxlen As Long
Dim rng As Range, c As Variant
Set objRe = CreateObject("VBScript.RegExp")
If TypeName(Selection) = "Range" Then
Set rng = Selection
If rng.Columns.Count > 1 Then
MsgBox "1列の選択に限ります。", vbExclamation
Exit Sub
End If
Else
MsgBox "範囲を指定してください。", vbExclamation: Exit Sub
End If
With objRe
.Pattern = "^(No\.*\d+)\b"
.Global = False: .IgnoreCase = True
For Each c In rng
ReDim Preserve nos(i)
If .Test(c.Value) Then
nos(i) = .Execute(c)(0).SubMatches(0)
If Maxlen < Len(nos(i)) Then Maxlen = Len(nos(i))
End If
i = i + 1
Next c
End With
Dim no As String
Set objRe = Nothing
j = Maxlen
i = 0
For Each c In rng
no = StrConv(Format$(nos(i), String(j, "@") & "!"), vbNarrow)
If c.Value <> "" And Trim(no) <> "" Then
With c.Offset(0, 1) '★上書きの場合は、c.Offset(0,0) にする
.Font.Name = "MS ゴシック"
.Value = Replace(c.Value, nos(i), no, 1, 1, vbBinaryCompare)
End With
End If
i = i + 1
Next c
End Sub

No.1
- 回答日時:
> エクセルに同様の機能はありますでしょうか。
ありません。 Excelは表計算ソフトですから 1セルに複数の情報を入れ
込むことは最初から想定していません。逆をいえば 別々のセルに分けて
おけば それを後で揃えて表示させることは難しくありません。

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロ 2行ごとの並び替えについて 4 2022/12/14 12:27
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- Excel(エクセル) Excelで、半角スペースをTABに変換する 5 2022/10/18 14:18
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Excel(エクセル) VBAで同フォルダ内の別ブックを開かず参照して条件の一致する行の指定セルを抽出するには? 1 2022/07/21 19:29
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
Excel tab入力方法
Excel(エクセル)
-
Excelで、半角スペースをTABに変換する
Excel(エクセル)
-
エクセルでの文字ズレを直す方法を教えてください。
その他(パソコン・スマホ・電化製品)
-
-
4
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
5
outlook 文字を揃えたい。tabでやっても揃わない。
Word(ワード)
-
6
コマンドプロンプトの「%1」と「%~1」の違いがわからない
その他(プログラミング・Web制作)
-
7
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
8
フルパスから最後のディレクトリ名を取得したい。
Visual Basic(VBA)
-
9
Excel:1つのセルの中にテーブルを作成
Excel(エクセル)
-
10
エクセル TABキーの動きをマクロで
Excel(エクセル)
-
11
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
12
Excel に貼り付けた図形が、保存した後、再度、開くと勝手に動いている。
Excel(エクセル)
-
13
エクセル: セルの枠を超えて表示
Excel(エクセル)
-
14
エクセル関数で日付かどうかの確認?
Excel(エクセル)
-
15
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
16
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
17
エクセルの関数を使って、2座標を通る1次関数等を求めたいです
Excel(エクセル)
-
18
員数
日本語
-
19
「を」に読点「、」「,」は付けないと習いました
日本語
-
20
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルで3Dの円錐形を作成...
-
エクセルの神よ、ご回答を! エ...
-
日報のデータを月報にデータを...
-
ウェブから貼ったドロップダウ...
-
エクセルのデータを自動的にweb...
-
Excel関数で教えて下さい。
-
エクセルにて指定文字数以上の...
-
エクセルで関数グラフを描きた...
-
散布図や折れ線グラフにエラー...
-
エクセルのグラフでデータテー...
-
文字を入力するだけで、強制終...
-
エクセル2000:phonetic関数で...
-
エクセル 文字の先頭4文字だ...
-
エクセルで1つのセル内にある複...
-
エクセルオンラインのみ勝手に...
-
エクセルについて
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
A1セルに入力したら、入力時間...
-
エクセルの複数のセルを一括で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルで3Dの円錐形を作成...
-
エクセルのグラフでデータテー...
-
エクセルオンラインのみ勝手に...
-
エクセルの神よ、ご回答を! エ...
-
エクセル 文字の先頭4文字だ...
-
差し込み印刷で文字化け!
-
文字をアルファベット順に3つ...
-
エクセルにて指定文字数以上の...
-
エクセルVBA 長さ0の文字列をNu...
-
特殊記号を一括で消去または置...
-
エクセルマクロでセルの文字サ...
-
エクセル データ追加するもグ...
-
ウェブから貼ったドロップダウ...
-
日報のデータを月報にデータを...
-
VBA初心者です。電話番号の数字...
-
エクセルで全波整流回路の波形
-
JANコードのチェックデジットを...
-
文字を入力するだけで、強制終...
-
エクセルのテーブルで自動拡張...
おすすめ情報