2017年01月09日

枯れた技術!だから一気に学べる!VBA Excel(1)

ひょんなことから、
短期間、VBA for Excelに時間を割かねばならなくなりました。

※正確には、VBA For Excelがメインではないですが。

◆参考文献
・日経ソフトウェア2013年4月号 付録
・日経ソフトウェア2015年12月号 特集1ExcelVBA定番便利技
・日経ソフトウェア2016年8月号 特集1ExcelVBA9の極意

出先で使えるように、メモしておきました。

@
Sub ShowYearHour()
MsgBox "年:" & Year(Now) & Chr(13) & _
"月:" & Month(Now) & Chr(13) & _
"日:" & Day(Now) & Chr(13) & _
"時:" & Hour(Now) & Chr(13) & _
"分:" & Minute(Now) & Chr(13) & _
"秒:" & Second(Now) & Chr(13) & _
"月:" & Month("2017/01/08")
End Sub


Sub FncTimer()
'Timer関数 午前0時からの経過秒数を返す
pStart = Timer
'時間のかかる処理
For i = 0 To 100000000
x = x * 1
Next
pEnd = Timer
MsgBox (pEnd - pStart) & "秒かかりました。"
End Sub

Sub OthSearch()
i = 1

file = Dir("Z:\テキスト\*.txt")

Do While file <> ""
Cells(i, 1).Value = i
Cells(i, 2).Value = file
i = i + 1
file = Dir()
Loop
End Sub


Sub OthMkDir()
MkDir "Z:\20170109\20170109"
End Sub


Sub OthRmDir()
folder = "Z:\20170109\20170109"
Kill folder & "\*.*"
RmDir folder
End Sub


Function Triangle(base As Variant, height As Variant) As Variant
Triangle = base * height / 2
End Function

Function Triangle2(base As Double, _
Optional height As Variant) As Double

If IsMissing(height) Then
height = 10
End If
Triangle2 = base * height / 2

End Function

Sub FormShow()
UserForm1.Show

End Sub


A
Sub CellFont()
Range("A2..E2").Select
Selection.Font.Bold = True
Selection.Font.Size = 12
Selection.HorizontalAlignment = xlHAlignCenter
Selection.Interior.Color = RGB(255, 255, 0)
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub

Sub CellBorders()
Range("A2..E8").Select
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
End Sub

B
Private Sub UserForm_Initialize()
If Hour(Now) < 6 Or Hour(Now) > 18 Then
UserForm1.BackColor = RGB(255, 0, 0)
End If
UserForm1.Caption = "マイフォーム"
UserForm1.Label1.Caption = "マイフォームです"
UserForm1.TextBox1.Text = "マイフォーム"
UserForm1.TextBox1.SetFocus

End Sub
Private Sub CommandButton1_Click()
'確認ダイアログボックス表示
If MsgBox("ボタンをクリック", vbOKCancel) = vbOK Then
UserForm1.Hide '[OK]の場合のみ閉じる
End If

End Sub


◎ExcelVBAのプログラミングのツボとコツがゼッタイにわかる本:2,376円
ExcelVBAのプログラミングのツボとコツがゼッタイにわかる本 -
ExcelVBAのプログラミングのツボとコツがゼッタイにわかる本 -

◎Excel VBA 本格入門 ~日常業務の自動化からアプリケーション開発まで~:3,218円
Excel VBA 本格入門 ~日常業務の自動化からアプリケーション開発まで~ -
Excel VBA 本格入門 ~日常業務の自動化からアプリケーション開発まで~ -

◎VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]:3,024円
VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き] -
VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き] -


VBAエキスパート、受けようかな〜。
趣味扱いとして!(^^)
posted by アンドレアス at 23:44| Comment(0) | TrackBack(0) | 役立つURL | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバック