- 日時： 2012/05/29 09:27
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：Excel VBA,Excel 2010,桁区切り,エクセル,セルの表示形式,フォーマット *
***********************************************************************************
'===================================================================================================
'投 稿 日：2012.05.05
'投 稿 者：VBレスキュー(花ちゃん)
'タイトル：VB2010 から Excel のセルの表示形式を設定
'========1=========2=========3=========4=========5=========6=========7=========8=========9=========0
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
Call ExcelOpen("", "") '新規ファイルをオープンして、Excel を起動
'========================= セルの表示形式を設定 ==============================
'-------------------- マクロの記録を取った場合 ----------------------------
'Columns("A:A").Select()
'Selection.NumberFormatLocal = "@"
'Columns("B:B").Select()
'Selection.NumberFormatLocal = "#,##0.0"
'Columns("C:C").Select()
'Selection.NumberFormatLocal = "yyyy/mm/dd"
'--------------------------------------------------------------------------
Dim xlRange As Excel.Range
xlRange = xlSheet.Range("A:A")
xlRange.Select()
xlRange.NumberFormatLocal = "@"
MRComObject(xlRange)
xlRange = xlSheet.Range("A2")
xlRange.Value = "123456.78"
MRComObject(xlRange)
xlRange = xlSheet.Range("B:B")
xlRange.Select()
xlRange.NumberFormatLocal = "#,##0.0"
MRComObject(xlRange)
xlRange = xlSheet.Range("B2")
xlRange.Value = "123456.78"
MRComObject(xlRange)
xlRange = xlSheet.Range("C:C")
xlRange.Select()
xlRange.NumberFormatLocal = "yyyy/mm/dd"
MRComObject(xlRange)
xlRange = xlSheet.Range("C2")
xlRange.Value = "4/8"
MRComObject(xlRange)
'=============================================================================
'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False) 'False の場合保存しないで終了
'Excel.EXE がタスクマネージャに残っていないか調査(実使用時は必要なし)
Call ProcessCheck()
End Sub
|
VB2010からExcelのセルの表示形式を設定(VB.NET)