![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
よろしくお願いします。
ワード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
![「エクセルのセル内でタブキーのような機能で」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/7/1138040_5774c3d3abbd6/M.jpg)
No.1
- 回答日時:
> エクセルに同様の機能はありますでしょうか。
ありません。 Excelは表計算ソフトですから 1セルに複数の情報を入れ
込むことは最初から想定していません。逆をいえば 別々のセルに分けて
おけば それを後で揃えて表示させることは難しくありません。
![「エクセルのセル内でタブキーのような機能で」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/8/542290997_5774788b2f047/M.jpg)
お探しの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(エクセル)
-
エクセルでの文字ズレを直す方法を教えてください。
その他(パソコン・スマホ・電化製品)
-
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
-
-
4
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
5
Excelからテキストへのコピーペースト
その他(Microsoft Office)
-
6
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
7
Excel セル内でタブ移動できますか?
Excel(エクセル)
-
8
有無、要否、賛否、是非、可否、当否…これらの言葉について
その他(教育・科学・学問)
-
9
セル内の一部の文字だけをハイパーリンクに設定したい
Excel(エクセル)
-
10
Excelで数式内の文字色を一部だけ変更したい
Excel(エクセル)
-
11
エクセルのセル内の余白の設定って出来るのでしょうか?
Excel(エクセル)
-
12
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
13
エクセル2013で英単語を折り返したい
Excel(エクセル)
-
14
【Word】改行について!【2013】
Word(ワード)
-
15
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
16
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
17
ワードやエクセルで印刷をデフォルトで片面印刷にする方法
プリンタ・スキャナー
-
18
Excel VBA Tabコードの出力
Excel(エクセル)
-
19
Excel でタブ(\\t)入力 は出来ない?
Excel(エクセル)
-
20
EXCELでTab"を"@"に置換したい"
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセル 文字の先頭4文字だ...
-
エクセルの変換
-
エクセル 三桁の数字をリンク...
-
エクセルにて指定文字数以上の...
-
エクセルで3Dの円錐形を作成...
-
エクセルVBA 長さ0の文字列をNu...
-
エクセル データ追加するもグ...
-
A1セルに入力したら、入力時間...
-
エクセル ボタンを押すとセルの...
-
セルを結合したA4とA5の条件付...
-
お肉の下のシートを煮込んでし...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
リンク元の日付が空白の時リン...
-
値を入力後、自動的にアクティ...
-
エクセルの複数のセルを一括で...
-
秘書検定準1級のアドバイスシー...
-
エクセルで特定のセルを表示の...
-
参照先セルに値が入っていない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルで3Dの円錐形を作成...
-
エクセルのグラフでデータテー...
-
エクセル 文字の先頭4文字だ...
-
エクセルで全波整流回路の波形
-
日報のデータを月報にデータを...
-
文字をアルファベット順に3つ...
-
エクセルVBA 長さ0の文字列をNu...
-
エクセルマクロでセルの文字サ...
-
VBA初心者です。電話番号の数字...
-
エクセルオンラインのみ勝手に...
-
エクセルで関数グラフを描きた...
-
エクセルの変換
-
ウェブから貼ったドロップダウ...
-
エクセルのデータを自動的にweb...
-
エクセルVBAで、他のエクセルブ...
-
エクセル データ追加するもグ...
-
エクセルにアクセスカウンター...
-
第何週かが表示できるカレンダ...
-
エクセルorアクセス 管理&...
おすすめ情報