
よろしくお願いします。
ワード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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Excel tab入力方法
Excel(エクセル)
-
Excelで、半角スペースをTABに変換する
Excel(エクセル)
-
エクセルのセル内の余白の設定って出来るのでしょうか?
Excel(エクセル)
-
-
4
条件付書式で「=#N/A」に色を付けたい
Excel(エクセル)
-
5
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
6
UserForm1.Showでエラーになります。
工学
-
7
メールの本文に添付されてしまう時があります。
Outlook(アウトルック)
-
8
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
9
有無、要否、賛否、是非、可否、当否…これらの言葉について
その他(教育・科学・学問)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
Dosブロンプトでtabを出力したい
その他(プログラミング・Web制作)
-
12
員数
日本語
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
フルパスから最後のディレクトリ名を取得したい。
Visual Basic(VBA)
-
15
Excelで数式内の文字色を一部だけ変更したい
Excel(エクセル)
-
16
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
17
ハイパーリンクの参照セルのズレは防げるか?
Excel(エクセル)
-
18
EXCEL改ページプレビューのページ数消去できますか?
Excel(エクセル)
-
19
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
20
exeファイルの中身を見ることは可能ですか?
フリーソフト
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルで関数グラフを描きた...
-
エクセル関数を教えてください。
-
エクセルの計算式
-
エクセルのグラフでデータテー...
-
日報のデータを月報にデータを...
-
エクセルで3Dの円錐形を作成...
-
差し込み印刷で文字化け!
-
エクセルの神よ、ご回答を! エ...
-
VBA初心者です。電話番号の数字...
-
文字をアルファベット順に3つ...
-
エクセルマクロでセルの文字サ...
-
セルに入力されている特定の小...
-
エクセルのセルが突然選択でき...
-
A1セルに入力したら、入力時間...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
=SUBTOTAL に =COUNTIF の機能...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルのグラフでデータテー...
-
エクセルで3Dの円錐形を作成...
-
エクセル 文字の先頭4文字だ...
-
エクセルオンラインのみ勝手に...
-
差し込み印刷で文字化け!
-
エクセルの神よ、ご回答を! エ...
-
エクセルのセルが突然選択でき...
-
エクセルで全波整流回路の波形
-
VBA初心者です。電話番号の数字...
-
日報のデータを月報にデータを...
-
ウェブから貼ったドロップダウ...
-
エクセルにて指定文字数以上の...
-
エクセルマクロでセルの文字サ...
-
文字をアルファベット順に3つ...
-
エクセルで列の取得
-
エクセルで未入力セルを指定す...
-
エクセルのトレンドグラフの式
-
エクセルの関数について
-
EXCEL (VBA)表示形式の変更
おすすめ情報