条件によりROUNDUP/ROUNDDOWN動作を切り替える

VBAマクロ Excel

Private Sub btnCal1_Click() For rc = 8 To 12 cell_case = "I" & rc cell_result = "J" & rc cell1 = "C" & rc cell2 = "D" & rc cell1_x_cell2 = cell1 & "*" & cell2 cal_rule = Range(cell_case).Value Select Case cal_rule Case "切捨" Range(cell_re…

2010-06-20

リストボックスの初期化・状態取得

Excel VBAマクロフォーム

初期選択状態の指定 InStr関数を使用しています 'strInstsの初期状態で「[野球][音楽]」などの様式の文字列 For i = 0 To lbxInsts.ListCount - 1 'リストボックスの0行から最終行まで反復処理 strTemp = "[" & lbxInsts.List(i, 1) & "]" lbxInsts.Selected…

2010-06-15

チェックボックスの初期化

Excel VBAマクロ

全てクリアするには「Clearメソッド」、追加には「AddItemメソッド」を使う。 Me.cbx顧客企業名.Clear 'もっとかっこよくしたい 'max_rows = Worksheets("クライアント").Range("I" & Rows.Count).End(xlUp) '「マスターデータ」シートのI2〜I100を引用 For…

2010-06-10

リストボックスの初期化

Excel VBAマクロ

Private Sub lbox契約管理書_init() ' 列数を指定 lbox契約管理書.ColumnCount = 3 ' 列幅を指定 lbox契約管理書.ColumnWidths = "60;80;80" '最終行取得 lastRow = Worksheets("マスタコード").Range("L2").End(xlDown).Row With Worksheets("マスタコード"…

2010-05-31

データベースからのデータ取得

Perl VBAマクロ Excel Access

Sub 一覧取得() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim strSQL Dim DB_FILE As String Dim SHEET_LIST As String DB_FILE = "C:\www\confidential\New登録スタッフデータ.m…

2010-05-04

VBA ファイル存在確認

VBAマクロ

Function echo1() Dim strFile As String 'チェック対象となるファイル名 Dim strName As String strFile = Application.CurrentProject.Path & "\Excel経歴書出力用\" & "lock" strName = Dir(strFile, vbNormal) 'ファイル名を得る If (strName = "") Then…