すべての検索結果：20件
検索条件：タイトルと本文+更新順
EXCEL VBAのトピック
SQLite３のEUCエンコーディングのDBをExcel VBAで読み書きしたい
rs.Fields Cells(i, j).Select If m_Field.Name = "t1" Then ).Value = m_Field.Value End If j = j + 1 Next
- 2015年05月05日 16:05
- 4316人が参加中
- 13
EXCEL VBAのトピック
MIxi日記のセーブマクロ
?") If DiaryId = "" Then Exit Sub End If End If Else k = k + 1 End If
- 2014年05月19日 19:45
- 4316人が参加中
- 120
EXCEL VBAのトピック
Oracle汎用検索ツール
(Rows.Count, 1).End(xlUp).Row If iRow < 2 Then iRow = 2 ; "" Then Call CSV出力処理 End If Application.StatusBar = False ' 履歴
- 2014年05月17日 07:39
- 4316人が参加中
- 22
Excel（エクセル）活用のトピック
VBA 繰り返し処理について
CommandButton4.Enabled = False Then CommandButton4.Enabled = True End If Dim t As Integer t = ActiveCell.Row If t = 7 Then
- 2011年11月20日 17:13
- 20951人が参加中
- 14
EXCEL VBAのトピック
100行×100列の範囲に１から順に値を入れる
(1, i).Value = a Else If a End If End If Next i
- 2011年05月09日 17:11
- 4316人が参加中
- 21
EXCEL VBAのトピック
【VBA初心者】IF文から抜ける方法について
For i = 1 To 16 If .Cells(i + 1, 18) = "" Then obj1.Cells(i
- 2010年12月12日 16:28
- 4316人が参加中
- 14
EXCEL VBAのトピック
VBAコード上の文字化け
() If L1.Caption = "□直接" Then L1.Caption = "■直接" Else L1.Caption = "□直接 " End If L2.Caption = "□間接" 何か解決策はありますか？
- 2010年11月23日 22:38
- 4316人が参加中
- 1
Excel（エクセル）活用のトピック
コードがうまく動作していない？
If k <> 5 Then 最終行2 = Cells(Rows.Count, 13).End データ土曜日 End If Else Unload UserForm2 Dim 連続入力 連続
- 2010年08月10日 10:46
- 20951人が参加中
- 3
EXCEL VBAのトピック
シート選択ダイアログ
.Delete End With ' Return If Not ActiveSheet Is ShBackup Then = ShowSelectSheetDialog() If Not Sheet Is Nothing Then MsgBox Sheet.Name & "が選
- 2010年05月12日 00:13
- 4316人が参加中
- 1
Excel（エクセル）活用のトピック
フリガナを自動取得させたいのですが記述が多くて困ってます。
.Value = "" Then TextBox1.Value = "" Else strTemp ) End If End Sub ------------------------------- この記述はやはり全てのConboBox１
- 2010年05月01日 15:09
- 20951人が参加中
- 2
Excel（エクセル）活用のトピック
VBA 記述の簡素化
() If OptionButton1.Value = True Then 入力結果 = MsgBox("日曜 日のメニューを入力します", vbYesNo, "入力") If 入力結果 = 6 Then Cells(4, 2).Value
- 2010年04月14日 14:06
- 20951人が参加中
- 3
EXCEL VBAのトピック
カレントディレクトリ内のファイル一括置換
更新一時停止を解除 If Dir(myfdr & "\*.txt") <> "" Then MsgBox n & "件を End If End Sub --------------------------------- どなたか、わか
- 2010年01月20日 23:11
- 4316人が参加中
- 7
EXCEL VBAのトピック
実行時エラー '50290':の対処法について
を削除 If Range("X1").Value = 1 Then Call Del_Sheet End If Range("DT1").Value = ListBox1.Value 'リス
- 2009年12月15日 20:30
- 4316人が参加中
- 5
EXCEL VBAのトピック
セルをクリックすると現在の月に対応したセルの値が増えるように
End Select If (cRow > 4 And cRow < 72 And cCol > 0) Then Cells(cRow, cCol).Value = Cells(cRow, cCol).Value + 1 End If End Sub
- 2009年04月15日 01:30
- 4316人が参加中
- 9
Excel（エクセル）活用のトピック
VBA コードの記述が上手くいきません。。
Else OptionButton2.Value = True End If End Sub ↑コー If Cells(2, 5).Value = "男" Then OptionButton1.Value = True
- 2008年03月20日 21:32
- 20951人が参加中
- 11
エクセル大好きのトピック
☆シートは広い！★崖ってあるのですか？
Then Exit For For retu = 1 To 100 If Worksheets("CVS-A").Cells(gyo ).Interior.ColorIndex = 3 .Cells(gyo, retu).Value = "不一致" End If Next retu retu
- 2007年12月21日 10:41
- 439人が参加中
- 12
EXCEL VBAのトピック
【質問】SELECTで取得したデータがNULLの場合におけるIF文付近でのエラー（SQLServerに接続）
ーザが入力した値が一致したら， うまく下記のマクロが正常に動きますが， 一致しない場合，下記の If rs!Level = Null Then の行 'RecordsetオブジェクトのOpenメソッド rs.Open sql, cn If rs!Level = Null Then
- 2006年11月11日 21:26
- 4316人が参加中
- 12
