Excel(エクセル)講座 Q&A(Tips)：入力関連

スポンサードリンク

2つの値(男性/女性　Yes/No など）を簡単に入力する(表示形式)　　　Topへ

セルの表示形式を「ユーザー定義」で『[=1]"男性";[=2]"女性"』とします。
セルに『1』を入力すると『男性』、『2』を入力すると『女性』と表示されます。
「ユーザー定義」で『[=1]"Yes";[=2]"No"』とすると、
セルに『1』を入力すると『Yes』、『2』を入力すると『No』と表示されます。
なお、セルの値は数値の「1」「2」になります。(文字列ではありません。）

入力した数値の桁数がおかしい　　　 Topへ

「100」と入力したのに、「1」と表示されてしまうなど、桁数がおかしい場合。

メニューバーの【ツール】→【オプション】を選択します。
[詳細設定]を選択し、「小数点位置を自動的に挿入する」のチェックをはずします。

コピーしたアドレスをハイパーリンクとして貼付けたい　　　　Topへ

インターネットブラウザなどからアドレスをコピーします。(ショートカットキーは【Ctrl】+【C】)
[挿入]タブの[リンク]を選択します。ショートカットキーは　[Ctrl]+[K]です。
「アドレス(E)」に【Ctrl】＋【V】でコピーしたアドレスを貼付けます。
【OK】ボタンをクリックします。
ハイパーリンクが作成できました。

シート間でセルのコピー/移動をする　　　Topへ

コピー＆貼り付け/切り取り＆貼り付けでよいのですが、マウス操作で行う方法です。

<移動>
1. セルを選択し、枠線部を【Alt】キーを押しながら、移動したいシート見出し部へドラッグします。
2. マウスポインタを重ねたシートが表示されますので、そのまま移動したいセルまでドラグして、ドロップします。
- この方法は、セルを選択すると、タスクバーに「シートを切り替えるには Altキーを押します。」と説明が表示されます。

<コピー>
1. 【Alt】+【Ctrl】キーを押しながら、上記同様の操作を行います。

セルの移動範囲を制限する-2（VBA:スクロールエリア)　　　Topへ

セルの移動範囲をVBAで制限します。
1. Alt+F11でVBEを開きます。
2. プロジェクトウィンドウでThisWorkbook を開きます。
3. 以下のようなコードを入力します。
  Private Sub Workbook_Open()
  　　Worksheets("Sheet1").ScrollArea = "A1:I11"
  End Sub
4. VBEを閉じるボタンで閉じます。
5. ファイルを保存します。

「1-2」「1/2」等が日付に変更される(そのままの文字列で入力したい)　　topへ

「1-2」「1/2」などと入力すると、Excelは日付データと認識してシリアル値に変更します。

(対処法A)

入力時に「'1-2」「'1/2」のように頭に「'」(アポストロフィ)を付けます。

(対処法B)

入力するセルの表示形式をあらかじめ「文字列」に設定しておきます。
設定後に、「1-2」「1/2」と入力すると文字列と認識してくれます。

今日の日付や時刻を入力する　　topへ

PC内蔵のカレンダーから日付や時刻を取出してセルに入力します。
1. ショートカットキー
  - [Ctrl]+[;]で日付が入力されます。
  - [Ctrl]+[:]で時刻が入力されます。
2. TODAY()関数を使う
  - =TODAY()　とセルに入力します。
なお、表示の仕方は[Ctrl]+[1]でセルの書式設定ダイアログを表示して、セルの表示形式を設定します。

飛び飛びのデータ間を埋める　　topへ

データが飛び飛びに入力されている場合、データ抽出などに不都合があります。
データ間に上と同じデータを入力する方法です。
1. 下図サンプルのA列を埋めたいと思います。
2. A3:A11を選択します。
3. 編集→ジャンプのセルの選択で「空白セル」にチェックを入れます。
4. アクティブセルがA3なのでA3セルに=A2　と入力し、Ctrl+Enter　で入力を確定します。
5. A列を選択して編集→コピー、編集→形式を選択して貼り付けで「値」にチェックを入れてOKとします。

上記操作をマクロにすると以下のようになります。
- Sub Macro1()
  　　Dim myRng As Range
  　　Set myRng = Range("A1:A11")
  　　With myRng
  　　　.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
  　　　.Copy
  　　　.PasteSpecial Paste:=xlPasteValues
  　　End With
  　　Application.CutCopyMode = False
  End Sub

スポンサードリンク

よねさんのWordとExcelの小部屋｜Excel(エクセル)講座の総目次｜Excel(エクセル)講座 Q&A(Tips)｜入力関連

　PageViewCounter
　 Counter
　Since2006/2/27