2019年8月30日金曜日

エクセルでショートカットを利用してフィルタをかける

エクセルでショートカットを利用してフィルタをかける

オートフィルタのオンオフ切り替え
Ctrl + Shift + L



2019年8月29日木曜日

エクセルで他のセルにあるフリガナを入力する


他のセルにあるフリガナを入力する

A列氏名等 B列フリガナ
A2からA180までの氏名にB2からB180までのフリガナを入力する

Sub ふりがな入力()
Dim RowPos As Integer
For RowPos = 2 To 180
Range("A" & RowPos).Select
Range("A" & RowPos).SetPhonetic
Range("A" & RowPos).Phonetic.Visible = True
ActiveCell.Characters(1, 5).PhoneticCharacters = Range("B" & RowPos)
Next RowPos
Range("A3").Select
End Sub

※2 TO 180 を行数によって変更してください。