・カタカナをひらがなに変換~ Phonetic ツールバーの書式→ふりがな→設定→ひらがな
・全角カナを半角カナへ変換 ASC
・文字列連結 CONCATENATE(A,B) ・vlookup =VLOOKUP(C3,'[メールアカウント一覧(M設定_最新版).xls]Sheet1'!$C$2:$D$299,2,FALSE)
・メールログ解析 =MID(C1,FIND("size",C1)+5,FIND(",",C1,FIND("size",C1))-FIND("size",C1)-5)
文字の長さ LEN()
リピート REPT(文字列,繰り返し回数)
0埋め =IF(LEN(E2)<5,REPT("0",5-LEN(E2)) & E2,E2)
VBA Excel VBA 入門 http://excelvba.pc-users.net/
SEのためのExcelツール http://www.srcedit.pekori.jp/
EXCEL大辞典 http://home.att.ne.jp/zeta/gen/excel/
3.最終行と最終列の取得 -------------------------------------------------------------------------------- 使用済みセルの最終行と最終列の取得にはWorksheetオブジェクトの値があるすべてのセルを範囲とする UsedRange プロパティを使用します Sub CellCnt() Dim lngYCnt As Long Dim intXCnt As Integer lngYCnt = Worksheets("Sheet1").UsedRange.Rows.Count intXCnt = Worksheets("Sheet1").UsedRange.Columns.Count MsgBox "最終行は" & intYCnt & "行、" & _ "最終列は" & lngXCnt & "列です" End Sub
EXCEL 検索 http://officetanaka.net/excel/vba/db/db01.htm Sub Sample01() Dim FoundCell As Variant With Worksheets("Sheet1") Set FoundCell = .Range("A2:A11").Find("A007") If FoundCell Is Nothing Then MsgBox "A007は見つかりません。", vbExclamation Else MsgBox "A007は、" & FoundCell.Address & "です。" & vbCrLf & _ "A007は、" & FoundCell.Row & "行目です。", vbInformation End If End With End Sub
■部門 =IF(ISBLANK(D3),IF(ISBLANK(E3),IF(ISBLANK(F3),IF(ISBLANK(G3),IF(ISBLANK (H3),IF(ISBLANK(I3),"合致なし"),"3161"),"3160"),"3163"),"3162"),"3104")
■目次
┣
┃
┗