すべての検索結果：21件
検索条件：タイトルと本文+更新順
EXCEL VBAのトピック
SQLite３のEUCエンコーディングのDBをExcel VBAで読み書きしたい
rs.Fields Cells(i, j).Select If m_Field.Name = "t1" Then SQLite３のEUCエンコーディングのDBをExcel VBAで読み書きしたい
- 2015年05月05日 16:05
- 4316人が参加中
- 13
EXCEL VBAのトピック
MIxi日記のセーブマクロ
= "399831" 'My Mixi User ID If OwnerId = "" Then OwnerId = MsgBox("MIXI ID?") If OwnerId = "" Then Exit Sub
- 2014年05月19日 19:45
- 4316人が参加中
- 120
EXCEL VBAのトピック
Oracle汎用検索ツール
' データベース接続 Call PS_DbConn(ErrMsg) If ErrMsg <> "" Then GoTo (Rows.Count, 1).End(xlUp).Row If iRow < 2 Then iRow = 2
- 2014年05月17日 07:39
- 4316人が参加中
- 22
Excel（エクセル）活用のトピック
VBA 繰り返し処理について
If Dim t As Integer t = ActiveCell.Row If t = 7 Then = True If t >= 61 Then 'ActiveCellの位置が61行目
- 2011年11月20日 17:13
- 20951人が参加中
- 14
EXCEL VBAのトピック
100行×100列の範囲に１から順に値を入れる
(1, i).Value = a Else If a 皆様、初めまして、新型ヲタクスティーロと申します。 今回は質問がありトピックを立てさせていただいた次第です。 現在、VBAに興
- 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 = "□直接 VBAコード上の文字化け
- 2010年11月23日 22:38
- 4316人が参加中
- 1
Excel（エクセル）活用のトピック
コードがうまく動作していない？
("OptionButton" & i) = True Then Exit For Next i If i = 8 Then Exit Sub 入力 ") If 入力結果 = 6 Then For j = 1 To 15 Cells(j + 3, i + 1).Value
- 2010年08月10日 10:46
- 20951人が参加中
- 3
EXCEL VBAのトピック
シート選択ダイアログ
= ShowSelectSheetDialog() If Not Sheet Is Nothing Then MsgBox Sheet.Name & "が選 .Delete End With ' Return If Not ActiveSheet Is ShBackup Then
- 2010年05月12日 00:13
- 4316人が参加中
- 1
Excel（エクセル）活用のトピック
フリガナを自動取得させたいのですが記述が多くて困ってます。
.Value = "" Then TextBox1.Value = "" Else strTemp 〜TextBox15を配置し、ComboBoxに入力されたテキストのフリガナをTextBoxに自動入力されるようにVBAを記述しています。 例
- 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 & "件を 初めましてvba始めてまだ一カ月も経っていない初心者です 現在、複数ファイルに対して置換を行うプログラムを作っています。単一
- 2010年01月20日 23:11
- 4316人が参加中
- 7
Excel（エクセル）活用のトピック
VBA if構文 記述を分かりやすくしたい
んせん同じ事を何度も書いていて正直訳が分からなくなっています。 --------------------------------------------- If OptionButton4.Value = True Then ActiveSheet.Shapes.AddShape
- 2010年01月19日 12:05
- 20951人が参加中
- 14
EXCEL VBAのトピック
実行時エラー '50290':の対処法について
を削除 If Range("X1").Value = 1 Then Call Del_Sheet \" & P_name & cnsDIR) If CheckFile = strFILENAME Then Image2
- 2009年12月15日 20:30
- 4316人が参加中
- 5
EXCEL VBAのトピック
セルをクリックすると現在の月に対応したセルの値が増えるように
End Select If (cRow > 4 And cRow < 72 And cCol > 0) Then Case 5 cCol = arr(mm, 1) Case 7 cCol = arr(mm, 2) Case Else cCol = 0
- 2009年04月15日 01:30
- 4316人が参加中
- 9
Excel（エクセル）活用のトピック
VBA コードの記述が上手くいきません。。
If Cells(2, 5).Value = "男" Then OptionButton1.Value = True Else OptionButton2.Value = True End If End Sub ↑コー
- 2008年03月20日 21:32
- 20951人が参加中
- 11
エクセル大好きのトピック
☆シートは広い！★崖ってあるのですか？
Then Exit For For retu = 1 To 100 If Worksheets("CVS-A").Cells(gyo ） {=SUM(IF('CSV-A'!A1:E4='CSV-B'!A1:E4,0,1))} （ｼｰﾄ･CSV-Aとｼｰﾄ・CSV-BのA1〜E4
- 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
