2010-06-18から1日間の記事一覧

文字コード変換

Excel

Sub encode_changer() Dim Filename_s As String Dim Filename_u As String Filename_s = "D:\www\public\cgi-tx\doc\sjis_file.txt" Filename_u = "D:\www\public\cgi-tx\doc\utf_8_file.txt" 'ShiftJis_to_utf8 "shift-jis", "utf-8", Filename_s, Filenam…

連想配列

Excel

Public Sub 連想配列の定義() Dim sheet_clt As String sheet_clt = "クライアント" Dim i As Long Set dicT = CreateObject("Scripting.Dictionary") ' For i = 1 To 20 ReDim Preserve list_clt_id(i) ReDim Preserve list_clt_name(i) list_clt_id(i) = W…

定数

Excel

Const cnsADO_CONNECT2 = "D:\www\public\cgi-tx\doc\vba\掲示板.mdb;"

カナ

Excel

ActiveCell.FormulaR1C1 = "最終商談日" ActiveCell.Characters(1, 2).PhoneticCharacters = "サイシュウ" ActiveCell.Characters(3, 2).PhoneticCharacters = "ショウダン" ActiveCell.Characters(5, 1).PhoneticCharacters = "ビ"

■

Excel