この部屋はパソコンに関することを少しずつ書きます。（主にエクセル）

おもにエクセルとワードについてメモ的に書くつもりです。

例えば下記の例題のようにチョットしたことなどです。（あれば便利なくても・・・）

ダウンロード可能ファイル有ります。最下行まで行って見てください。

ショートカット集追加しました。

１ 数式を人に見られないようにしてみよう！

２ ＶＬＯＯＫＵＰ関数を使ってみよう！

	ミニ解説 ＶＬＯＯＫＵＰ関数の使い方 この関数は非常に利用範囲が広いので重宝しています。 １ データーベースの表作る。 ２ 表の範囲に定義名を付ける。 ３ その範囲の何列目のデータ必要なのか。 ４ そのデータを検索するキーワードは何か。 ５ などを決定する。 =VLOOKUP(検索値,範囲,列番号,検索の型) 検索値 範囲の左端の列で検索する値を指定します。 範囲 目的のデータが含まれるテーブルを指定します。 列番号 範囲内で目的のデータが入力されている列を、左端からの列数で指定します。 検索の型 検索値と完全一致検索か、近似値含め検索かを、論理値で指定します。 左記の例題では、ＩＦ関数を使っています。 商品名が入力されていないときにエラー値を表示させない為です。 ＩＦ関数の使い方 IF(論理式,真の場合,偽の場合) 左の例で説明すると 論理式は「もしＣ３セルが空白でないならば、真の場合の計算をする。 「もしＣ３セルが空白ならば、偽の場合の計算をする。（セルにゼロを入れる） ということです。 ＩＦ関数は６個までの入れ子が出来ます。

書式の設定に関すること

ここから下はエクセルマクロを載せています。（私が時々利用するマクロです。）

' **************************************************************
Sub シートを分割()
Sheets("マクロ").Select
ActiveWindow.SplitRow = 1
ActiveWindow.SmallScroll Down:=1
End Sub
' **************************************************************
' 敬称追加マクロ
Sub 敬称追加()
Sheets("sheet1").Select
Range("b2").Select
Do Until ActiveCell.Value = "" '空白行になるまで繰り返す
ActiveCell.Value = ActiveCell.Value & "様" ' 前に付加する事も可
ActiveCell.Offset(1).Select
Loop
End Sub
' **************************************************************
' 保存しないで終了
Sub 無保存終了()
a% = MsgBox("本当にやめるの？", vbYesNo)
Select Case a%
Case vbYes
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.Quit
Case vbNo
Sheets("メニュー").Select Range("ａ1").Select
MsgBox "仕事は継続されました。"
End Select
End Sub
' **************************************************************
' 内容に変更があった場合ブックを保存してから終了
Sub 保存確認終了()
a% = MsgBox("変更があった場合保存終了します", vbYesNo)
Select Case a%
Case vbYes
If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Save
End If
ActiveWorkbook.Close
Application.Quit
Case vbNo
Sheets("メニュー").Select Range("ａ1").Select
MsgBox "仕事は継続されました。"
End Select
End Sub
' **************************************************************
' エクセルから他の（ノートパッド）ファイルを呼び出す。
Sub remote1()
a& = Shell("notepad.exe", 1)
SendKeys "%f" + "o" + "%n" + "akira.txt" + "{enter}"
End Sub
' akira.txt はファイル名
' **************************************************************
'現在のデータ範囲に罫線を引くマクロ
Sub 罫線引き()
Sheets("sheet1").Select
Range("b5").Select
Application.ScreenUpdating = False ' 画面表示を更新しない
Selection.CurrentRegion.Select
With Selection.Borders(xlLeft)
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlRight)
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlTop)
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlBottom)
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
Selection.BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic
End Sub
' **************************************************************
' 敬称追加マクロ（Ｃ列で追加する）
Sub 敬称追加()
Sheets("sheet2").Select
行 = ActiveCell.Row
桁 = ActiveCell.Column
If 行 <> 4 And 桁 <> 2 Then
MsgBox "列が違います"
End
Do Until ActiveCell.Value = "" '空白行になるまで繰り返す
ActiveCell.Value = ActiveCell.Value & "様" ' 前に付加する事も可
ActiveCell.Offset(1).Select
Loop
End If
End Sub
' **************************************************************
Sub 金種計算()
Dim 上端行 As Integer, 下端行 As Integer, 左端列 As Integer, 右端列 As Integer
Dim 現在行 As Integer, 現在列 As Integer, 計算列 As Range
Dim 枚数(9) As Integer, 金額 As Currency, 範囲(9) As Range
Dim 金種(9) As Currency, 合計(9) As Long 'currency
On Error GoTo エラー処理
金種(0) = 100000000 '１億円札ではありません
金種(0) = 10000
金種(0) = 5000
金種(0) = 1000
金種(0) = 500
金種(0) = 100
金種(0) = 50
金種(0) = 10
金種(0) = 5
金種(0) = 1
Set 計算列 = Application.InputBox
("計算したい金額の列のセルを指定して下さい", "金種の計算", Type:=8)
計算列.Select
現在行 = ActiveCell.Row
現在列 = ActiveCell.columun
Application.ScreenUpdating = False
Selection.CurrentRegion.Select
上端行 = Selection.Row
下端行 = 上端行 + Selection.Rows.Count - 1
Range(Cells(上端行, 現在列 + 1), Cells(上端行, 現在列 + 9)).Select
Selection.EntireColumn.Insert
Range(Cells(上端行, 現在列 + 1), Cells(下端行, 現在列 + 9)).Select
Selection.NumberFormat = "Ｇ/標準"
Selection.Style = "桁区切り"
For I = 上端行 + 1 To 下端行
金額 = Cells(I, 現在列).Value
If VarType(金額) = 6 Then
For J = I To 9
枚数(J) = Int((金額 Mod 金種(J - 1)) / 金種(J))
Cells(I, 現在列 + J).Value = 枚数(J)
Next J
End If
Next I
For k = 0 To 9
Set 範囲(k) = Range(Cells(上端行 + 1, 現在列 + k), Cells(下端行, 現在列 + k))
合計(k) = Application.Sum(範囲(k))
Cells(下端行 + 1, 現在列 + k).Value = 合計(k)
Next k
End Sub
' **************************************************************
Sub 空白行の削除()
Sheets("sheet1").Select
Application.ScreenUpdating = False
On Error Resume Next
With Cells
.SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
.SpecialCells(xlCellTypeComments).EntireRow.Hidden = True
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

≪エクセルショートカット集≫

使えば便利・使わなくても・・・

私がいつも利用しているものの厳選集です

お問い合わせメールはここ