すべての検索結果：49件
検索条件：タイトルと本文+更新順
EXCEL VBAのトピック
EXCELとACCESSの連携 その3（最終）
; ADODB.adStateClosed Then 25. objRec.Close 26. Set objRec = Nothing 27. End If 28 . 29. If objCnn.State <> ADODB.adStateClosed Then 30
- 2019年08月17日 23:00
- 4316人が参加中
- 3
EXCEL VBAのトピック
EXCELとACCESSの連携 その2
'ADODBオブジェクトをクリア If objRec.State <> ADODB.adStateClosed Then objRec.Close Set objRec = Nothing End If If objCnn.State <>
- 2019年08月16日 08:39
- 4316人が参加中
- 9
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 = "399831" 'My Mixi User ID If OwnerId = "" Then OwnerId
- 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 オートシェイプの複製
.Top = L + 10 End With End If Next VBA オートシェイプの複製
- 2013年04月11日 22:16
- 20951人が参加中
- 22
Excel（エクセル）活用のトピック
VBA 構文をもっとシンプルにしたい。
If Controls("OptionButton" & Ob).Value = True Then '生年 月日年号判別 Cells(intRow, 99).Value = Ob End If Next Ob
- 2012年08月12日 22:44
- 20951人が参加中
- 15
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のトピック
csvファイルを開いてさらに違うcsvファイルに保存
") If (Orignal = "" Or IsNull(Original) = True Or Original = "False") Then 'Exit Sub ’なぜかExitしてしまうのでコメントアウト End If ’新し
- 2011年10月30日 16:17
- 4316人が参加中
- 31
Excel（エクセル）活用のトピック
VBAから組織図のテキストを変更したい（Excel2003）
ActiveSheet.Shapes If MyShape.Type = 21 Then For Each ObjS In MyShape.GroupItems On Error GoTo 0 If TempStr <> "" Then
- 2011年07月25日 22:54
- 20951人が参加中
- 3
EXCEL VBAのトピック
100行×100列の範囲に１から順に値を入れる
End If End If Next i 皆様、初めまして、新型ヲタクスティーロと申します。 今回は質問がありトピックを立てさせていただいた次第です。 現在、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 = "□直接 " End If L2.Caption = "□間接" 何か解決策はありますか？
- 2010年11月23日 22:38
- 4316人が参加中
- 1
Excel（エクセル）活用のトピック
コードがうまく動作していない？
If k <> 5 Then 最終行2 = Cells(Rows.Count, 13).End ("OptionButton" & i) = True Then Exit For Next i If i = 8 Then Exit Sub 入力
- 2010年08月10日 10:46
- 20951人が参加中
- 3
Excel（エクセル）活用のトピック
VBA 保存ダイアログを表示して保存したい
(FileFilter:="エクセルファイル(*.xls),*.xls") If fName <> False Then ActiveWorkbook.SaveAs Filename:=fName End If End Sub エクセルは2003 XPです
- 2010年05月21日 05:54
- 20951人が参加中
- 10
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（エクセル）活用のトピック
フリガナを自動取得させたいのですが記述が多くて困ってます。
) End If End Sub ------------------------------- この記述はやはり全てのConboBox１ 〜TextBox15を配置し、ComboBoxに入力されたテキストのフリガナをTextBoxに自動入力されるようにVBAを記述しています。 例
- 2010年05月01日 15:09
- 20951人が参加中
- 2
Excel（エクセル）活用のトピック
VBA 並べ替えが上手くできない
If k <> 5 Then 最終行2 = Cells(Rows.Count, 12).End :=fukusyoku2) If MyRange2 Is Nothing Then
- 2010年04月30日 14:29
- 20951人が参加中
- 5
Excel（エクセル）活用のトピック
VBA 記述の簡素化
() If OptionButton1.Value = True Then 入力結果 = MsgBox("日曜 日のメニューを入力します", vbYesNo, "入力") If 入力結果 = 6 Then Cells(4, 2).Value
- 2010年04月14日 14:06
- 20951人が参加中
- 3
Excel（エクセル）活用のトピック
エクセルファイルを探して開く→見つからなければ終了
).xls" End If End Sub Integer name = ListBox1.Value ye = TextBox1.Value If
- 2010年02月07日 11:55
- 20951人が参加中
- 5
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記述 IF分岐で２回処理されてるのですが…
Select '分岐１のSelect Caseの終わり End If Application.EnableEvents
- 2009年06月27日 00:41
- 20951人が参加中
- 6
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のトピック
タイムカードの計算をするために
).Select If Range("B5").Item(i, 2).Text = "--" Then End If Next Range("時刻の入力").Select End Sub
- 2009年02月23日 09:28
- 4316人が参加中
- 12
Excel（エクセル）活用のトピック
VBA ユーザーフォームの初期値としてコンボボックスにカーソルを合わせたい
。 ------------------------------------------------------------------------ Private Sub CommandButton1_Click() If OptionButton1.Value = True Then 入力結果 = MsgBox("日曜日のメニューを入力します", vbYesNo) If 入力結果 = 6 Then
- 2008年11月22日 12:57
- 20951人が参加中
- 4
Excel（エクセル）活用のトピック
（VBA）現在起動しているIEの指定されたページを更新する
ここで更新の処理をするはず＊＊ End If Next End Sub ここまでしかできませんでした。 何かわかる方アドバイスをお願い致します。 （VBA）現在起動しているIEの指定されたページを更新する
- 2008年10月20日 06:52
- 20951人が参加中
- 7
Excel（エクセル）活用のトピック
VBA IFを使ってシートのアクティヴを判別したい(？)
UserForm4.Show End If End Sub
- 2008年10月10日 11:55
- 20951人が参加中
- 5
Excel（エクセル）活用のトピック
AccessのマクロをExcelのみで実行する方法
accApp = GetObject("C:\test.mdb") If Not accApp Is Nothing Then accApp.Visible = True accApp.Run "TestProcedure" End If Set accApp
- 2008年08月10日 23:35
- 20951人が参加中
- 29
Excel（エクセル）活用のトピック
鑑賞用VBA
= "●" End If End If If x > 49 Or y > 49 Then x = 0 y = 0 x = Int = "●" End If Sleep (i) Loop End Sub エクセル2003で作ったVBA いま
- 2008年05月23日 00:09
- 20951人が参加中
- 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 ).Interior.ColorIndex = 3 .Cells(gyo, retu).Value = "不一致" End If Next retu retu
- 2007年12月21日 10:41
- 439人が参加中
- 12
EXCEL VBAのトピック
範囲の中に数字を一つだけ表示
Variant If Application.Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub If Target.Offset(-1, 0) <> "" Then clvl
- 2007年09月10日 23:40
- 4316人が参加中
- 13
Microsoft Projectのトピック
MS Project2007でVBAを書きたい（ほぼ似たようなコードをOutlook2007で作成済み）
'1から、最後の数までのどれかのインデックス番号を取得 If NumItms > 0 Then Randomize randomnumber = Int(Rnd * NumItms) + 1 myNotes(randomnumber).Display End If
- 2007年06月24日 05:34
- 107人が参加中
Excel ＶＢＡで株の全自動売買のトピック
ヘルプミィ〜 エラー
Do End If Loop End Sub 成功すると自動ログインする予定 上のＶＢＡは徳 ").Value Do If (G3 / D3 <= 0.98) And (F3 >= 50) And (F3 <
- 2007年03月19日 22:30
- 234人が参加中
- 1
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
既存Excelの指定シート内の行検索につきまして
) ↑↑↑↑↑↑ 【ここにはちゃんとデータが表示されます】 If Not (rng Is Nothing) Then For n = 1 ).Value Next n End If 【その結果、ここのif文で飛ばされてしまいます】 Rst1.MoveNext
- 2006年10月04日 15:09
- 3163人が参加中
- 2
Access超絶クエリのトピック
3年ぶりにAccess2000で初歩的なつまづき
述して実行するとこんなエラーで次に進めません。 ===================================== if Me.入力テキスト is null then msgbox "入力テキストに入力してね。" end if フォームで非連結テキストボックス（入力テキスト）を作成し、 入力チェックVBAを記
- 2006年09月03日 15:56
- 1023人が参加中
- 3
