Excel VBA質問スレ Part6

1 名前：デフォルトの名無しさん mailto:sage [2008/03/11(火) 19:31:39 ] ExcelのVBAに関する質問スレです 質問前に　【 >>2-3 】　あたりを良く読むこと 前スレ pc11.2ch.net/test/read.cgi/tech/1197448064/ ★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。 ★2 ExcelのVBA以外の部分に関する質問はNGです。 　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。 ★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。 　　　 　VBAとは､『Visual Basic for Application』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 ★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 ★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 152 名前：デフォルトの名無しさん mailto:sage [2008/03/27(木) 23:07:35 ] ファイル開く→置換 153 名前：デフォルトの名無しさん [2008/03/27(木) 23:11:07 ] >>150さん このサイトは見たことがありますが参考になりませんでした。 154 名前：デフォルトの名無しさん [2008/03/28(金) 00:43:16 ] >>153 そこに書いてあることが理解できない段階なら、 まじめにVBAの本を買って、勉強したほうがいいんじゃないかなと思う。 155 名前：デフォルトの名無しさん mailto:sage [2008/03/28(金) 02:24:22 ] >>153 DAOで、試験的にやってみました。 あらかじめ、TEST.mdbの中に「受注」テーブルがある場合です。 ワークシート「受注」の4行目から9行目までを新規レコードに追加します。 Sub Data_Export() Dim WS As Worksheet, r As Long Dim db As Database, rs As DAO.Recordset Set WS = Worksheets("受注") Set db = OpenDatabase(ThisWorkbook.Path & "\TEST.mdb") Set rs = db.OpenRecordset(Name:="受注", Type:=dbOpenDynaset) For r = 4 To 9 With rs .AddNew .Fields("日付").Value = WS.Cells(r, 2).Value .Fields("顧客名").Value = WS.Cells(r, 3).Value .Fields("注文番号").Value = WS.Cells(r, 4).Value .Fields("品名").Value = WS.Cells(r, 5).Value .Fields("単価").Value = WS.Cells(r, 6).Value .Fields("数量").Value = WS.Cells(r, 7).Value .Update End With Next r db.Close End Sub 参考になればよいですが。 156 名前：155 mailto:sage [2008/03/28(金) 04:48:08 ] ちょっと修正 Next r の次から --------------------------- rs.Close: Set rs = Nothing db.Close: Set db = Nothing End Sub --------------------------- 157 名前：145 mailto:sage [2008/03/28(金) 10:03:57 ] >>146 ありがとうございます。 個人用マクロ調べてみました。 これだと下記にファイルを置かれてしまうようなのですが、 管理するマクロファイルは任意の場所に置いて管理したいです。 C:\Program Files\Microsoft Office\Office\XLStart 何か方法はありますでしょうか。 158 名前：デフォルトの名無しさん [2008/03/28(金) 18:33:56 ] >>157 俺は ツールバーにマクロのコマンド作る 159 名前：135 mailto:sage [2008/03/28(金) 23:15:33 ] 135なのですが・・・結局できないわけですか・・・。 160 名前：デフォルトの名無しさん mailto:sage [2008/03/29(土) 00:13:38 ] 余裕でできる 161 名前：デフォルトの名無しさん [2008/03/29(土) 00:25:20 ] >>135 何で困ってるのかさっぱりわからん。 162 名前：デフォルトの名無しさん mailto:sage [2008/03/29(土) 01:48:52 ] application.assistant.doalert or 余裕 application.executeexcel4macro "alert(...)" or さらに余裕 application.executeexcel4macro "call(""user32"",""messagebox"",..." or さらにさらに余裕 ... 163 名前：デフォルトの名無しさん [2008/03/29(土) 12:35:12 ] >>135 もっと何をしたいのか具体例を挙げてくれないと 出来るとしか答えられん。 164 名前：デフォルトの名無しさん mailto:sage [2008/03/29(土) 15:01:22 ] >>163 ＜ >>162 165 名前：デフォルトの名無しさん mailto:sage [2008/03/29(土) 15:23:42 ] >>161 >>163 >>140 まあ一応>>162で答え出てんじゃね 166 名前：デフォルトの名無しさん [2008/03/30(日) 19:16:39 ] OS WindowsXP Excel 97 で、 a1.a2.a3.….an を an,a1.….a(n-1) と並べ替えるにはどうしたらいいんでしょうか。 a1〜anは英数字、カタカナ、漢字です。 よろしくお願いします 167 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 20:05:33 ] >>166 an 168 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 20:06:16 ] みすったorz anをa1のセルに移動（insert）するだけでいいんじゃないのか？ ってかXPでなんで97なんだ？ 169 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 20:06:21 ] エスパーさん、出番ですよ 170 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 20:12:14 ] vbaじゃなくて並び替えですることだろ 171 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 20:24:37 ] 手早いレスありがとうございます。 >>168 一つのセルの中に「.」で区切られた状態で入っているので・・ 97なのはwin95のPCで読めるようにしてたのかと。。 >>170 どのようにすればいいんでしょうか 172 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 20:26:48 ] >>171 それは本当にVBAでやらなきゃならんことなのか？ 後ろから「,」を検索してその位置以降の文字列を前に持ってくるだけだろ？ Excelの関数で事足りると思うのだが？ 173 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 20:29:22 ] >>172 並び替え以前は全て「.」で区切られているので・・ またデータが大量にあるためマクロで処理したいです。 174 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 23:35:03 ] >>173 １．関数で別シートに写像 ２．シート全体を選択してコピー→値の貼り付け 175 名前：デフォルトの名無しさん [2008/03/30(日) 23:36:48 ] >>166 あ.い.う.え.お と並んでいるものを、 お.あ.い.う.え と並べたいのか？ お.え.う.い.あ と並べたいと言う意図だとan,a1.….a(n-1) はおかしいし・・・ 意味が分からん。 176 名前：デフォルトの名無しさん mailto:sage [2008/03/30(日) 23:44:36 ] たくさんのcell内のデータを並びかえるのだから 自前でsort関数つくるのがいいだろ 177 名前：デフォルトの名無しさん [2008/03/30(日) 23:46:51 ] >>175 俺も意味が判らんかったが、そういう意味で解釈すると、こうかな？ Function test() Dim LastStr As String Dim maxy As Long maxy = 5 LastStr = Range("A" & maxy) For i = maxy To 2 Step -1 Range("A" & i) = Range("A" & i - 1) Next Range("A1") = LastStr End Function 178 名前：デフォルトの名無しさん [2008/03/30(日) 23:48:43 ] >>177 並べ替えたいものは「1つのフィールドに入っている」んじゃないか？ 179 名前：デフォルトの名無しさん [2008/03/31(月) 00:01:58 ] >>178 そういう意味？ ならこれでどうだ？ Function test() Dim baseText As String Dim KekkaText As String Dim varStr() As Variant Dim i1 As Long, i2 As Long Dim maxy As Long ' baseText = "あいうえお.aiueo.アイウエオ.アイうえオ.aiウエお" i2 = 0 ' ReDim Preserve varStr(i2) As Variant For i1 = 1 To Len(baseText) If Mid(baseText, i1, 1) = "." Then i2 = i2 + 1 ReDim Preserve varStr(i2) As Variant Else varStr(i2) = varStr(i2) & Mid(baseText, i1, 1) End If Next ' KekkaText = varStr(UBound(varStr)) For i1 = 0 To (UBound(varStr) - 1) KekkaText = KekkaText & "." & varStr(i1) Next ' MsgBox (KekkaText) End Function 180 名前：デフォルトの名無しさん [2008/03/31(月) 00:21:21 ] いいんじゃね？ あとは自作関数化すれば何セルあっても動作するするだろ それくらいは自分でなんとかすればよし、というところか。 181 名前：166 mailto:sage [2008/03/31(月) 00:39:56 ] >>174 どうもです >>175 あ.い.う.え.お と並んでいるものを、 お,あ.い.う.え です。 「お」の後がコンマになってます。 >>177-180 ありがとうございます。 おきてからやってみます 182 名前：179 [2008/03/31(月) 00:48:02 ] >>181 おの後ろはカンマにしたかったのか。 それは実装できてないわ。 まぁ、ドットで区切って、並び替えて、再結合は実現しているので、 あとは別に苦労しないだろ。 183 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 01:54:26 ] Sub foo(r As Range) Dim cell As Range Dim pos As Long Dim buf1 As String, buf2 As String For Each cell In r pos = InStrRev(cell.Value, ".") If pos > 0 Then buf1 = Right$(cell.Value, Len(cell.Value) - pos) buf2 = Left$(cell.Value, Len(cell.Value) - Len(buf1) - 1) cell.Value = buf1 & "," & buf2 End If Next End Sub Sub bar() foo Range("A1:A10") End Sub 184 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 02:09:14 ] 行頭から半角5文字目の空白を;に変えたい 185 名前：デフォルトの名無しさん [2008/03/31(月) 08:11:53 ] >>183 >>166 [Excel97] ×InStrRev 186 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 10:21:31 ] >>179 なんだその吐き気がするコードは。 Excel97にはSplitすらないのか？ 仮に無いとしても、>>172で十分だろ。 187 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 10:23:08 ] いちいち"."で分割して結合する意味がわからん 188 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:14:25 ] >>186 97にはsplitもなければInstrRevもない。 189 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:22:56 ] Replaceもなかったりする 190 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:24:40 ] >>188 >>187 191 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:27:35 ] 意味なんてものはその職場の風習によるだろ。 192 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:29:51 ] >>191 意味わからん 193 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:32:30 ] あー、糞コードを量産する職場だったら、>>179を見ても違和感がないという意味か 194 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:38:41 ] instrくらいあるだろ 195 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:42:39 ] >>166で意味がわからんって、どんだけ読解力無いんだよ・・・ 196 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 11:47:25 ] >>172 >>34 197 名前：166 mailto:sage [2008/03/31(月) 20:28:10 ] >>182 上手くいきました。 ありがとうございます。 >>他住人の方 ありがとうございました。 198 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 21:12:14 ] まあ確かに>>179のコードはアレだが、問題が解決する側にとっちゃどーでもいい話ではあるな 199 名前：デフォルトの名無しさん mailto:sage [2008/03/31(月) 22:24:02 ] 見苦し 200 名前：デフォルトの名無しさん mailto:sage [2008/04/01(火) 05:44:27 ] >>182 なんでこいつこんなにえらそーなんだ 201 名前：デフォルトの名無しさん mailto:sage [2008/04/01(火) 08:34:03 ] VBA使いは総じてえらそう 202 名前：デフォルトの名無しさん mailto:sage [2008/04/01(火) 09:16:55 ] >>1-201 質問者以外全部えらそーに見える俺は文盲 203 名前：デフォルトの名無しさん mailto:sage [2008/04/01(火) 09:51:32 ] excel97って、left$もright$も無いの？ 204 名前：デフォルトの名無しさん [2008/04/01(火) 21:47:10 ] public Sub AAA() 　　Dim cnn as New ADODB.connection 　　Dim RS as New ADODB Recoreset 　　Dim value As Boolean 　　cnn.connection String = _ 　　"Provaider = micosoft.Jet.DLEDB.4.0;" & _ 　　"Data Source = D:\データ.mdb:" '**************ダイアログボックス表示 　　value = Application.Dialogs(xlDialogSaveAs).Show 　　If value = False Then 　　　　Exit Sub 　　End If ************** 205 名前：デフォルトの名無しさん [2008/04/01(火) 21:57:04 ] 続き 　　cnn.Open 　　Set RS = New ADODB.Recordset 　　RS.Open Source := "テーブルデータ"　,ActiveConnection:=cnn, _ 　　Corsor Type := adOpenstatic, Option := adCmdTable 　　ThisWorkbook.Sheets(1).range("A1").CopyFromRecordset RS 　　RS.Close 　　Set.Close 　　cnn.Close 　　Set cnn = Nothing End Sub 質問なのですが、上記を実行するとダイアログボックスが表示されて新規でファイルを 作成して今現在動かしているエクセルブックの名前を変更して保存しているだけになってしまいます。 結局元のブック(マクロ)をコピーしているのと同じです。 私のやりたいことはダイアログボックスを表示させて、新規でブックだけ作成してデータベースのデータ.mdbのテーブルだけを 新規ブックシートに書き込みたいです。どうすればいいでしょか？ 206 名前：デフォルトの名無しさん mailto:sage [2008/04/02(水) 03:55:51 ] >>205 サンプルを作ってみました。 '---------Sample----------- Sub Data_Import() Dim cn As New ADODB.Connection, rs As New ADODB.Recordset Dim ShinkiFullName As String, ShinkiFile As String Dim wb As Workbook, ws As Worksheet, c As Integer Workbooks.Add ' ブックを新規作成 ShinkiFile = ActiveWorkbook.Name '新規ブックの名前を格納�@ 'エクセルと同じフォルダにある「TEST.mdb」に接続 cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\TEST.mdb" cn.Open '「TEST.mdb」内の「受注」テーブルを参照 rs.Open Source:="受注", ActiveConnection:=cn, CursorType:=adOpenForwardOnly, LockType:=adLockReadOnly '新規ブックのSheet1にデータを写す Set wb = Workbooks(ShinkiFile): Set ws = wb.Worksheets("Sheet1") With ws For c = 0 To rs.Fields.Count - 1 'フィールド名をA1から横にコピー .Cells(1, c + 1).value = rs.Fields(c).Name Next c .Cells(2, 1).CopyFromRecordset rs 'レコードをA2以降にコピー End With '接続終了 rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing '***** つづく***** 207 名前：206 mailto:sage [2008/04/02(水) 04:25:09 ] '***** つづき ***** Shitei: 'ファイル名を指定/ファイル名が適切なものになるまでダイアログボックスを閉じない�A Do ShinkiFullName = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel ブック (*.xls),*.xls", _ Title:="新規データファイル保存") Loop Until ShinkiFullName <> "False" On Error GoTo Shitei 'ファイル名が重複した場合 With wb .SaveAs Filename:=ShinkiFullName .Close End With End Sub -------Sample おわり---------- ○あらかじめブックを作成・レコードを転写した後に、保存する場所・ファイル名を決めるようにしてあります。 　（意図されている手順を変更しています。）＞�@、�A ○変数にvalueなどの予約語は使わないようにしましょう。 ○Application.Dialogs(xlDialogSaveAs).Showでは、ファイル名を取得できません。 　GetSaveAsFilenameやGetOpenFilenameの使い方をマスターされるとよいでしょう。 208 名前：デフォルトの名無しさん [2008/04/02(水) 09:35:56 ] Cで言う｢構造体の配列」みたいなのは、 なにで実現するのでしょうか。 209 名前：デフォルトの名無しさん mailto:sage [2008/04/02(水) 10:19:58 ] ユーザ定義タイプの配列 210 名前：デフォルトの名無しさん [2008/04/02(水) 12:42:58 ] ユーザーフォーム上のコマンドボタンを押したとき ボタンのオブジェクト名を変数に格納する方法ってありますかね？ 211 名前：デフォルトの名無しさん [2008/04/02(水) 12:43:45 ] ↑あ、質問間違えた。無視していい。 212 名前：デフォルトの名無しさん [2008/04/02(水) 22:51:53 ] >>206.207さん大変貴重な情報ありがとうございます。さっそく試してみます。 明日に結果を報告します。 213 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 13:05:00 ] いつのまにかVBEのマウススクロールができるようになってたんだが。。 なんで？？ Excel2003 214 名前：デフォルトの名無しさん [2008/04/04(金) 15:59:16 ] ユーザ定義関数で説明文を書くには MacroOptionsを使えばよい事がわかりましたが、 引数ごとの説明文を設定するのはどうしたら 良いですか？ 215 名前：デフォルトの名無しさん [2008/04/04(金) 19:45:26 ] 質問です。 Application.visible = falseで本体を隠したユーザーフォーム上のコマンドボタンを押すと 新しいウィンドウでExcelのファイルを開くようにしたいのですが、どうしたらいいですか。 216 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 21:14:38 ] そういうふうにすれば？ 217 名前：デフォルトの名無しさん mailto:sage [2008/04/04(金) 23:53:05 ] >>213 たぶんマウスのドライバ。MSのIntelliPoint使ってるだろ？俺もなってた。 218 名前：デフォルトの名無しさん mailto:sage [2008/04/05(土) 14:39:37 ] >>217 確かにマウス交換した。そういうことかー。ｻﾝｸｽ 219 名前：デフォルトの名無しさん mailto:sage [2008/04/05(土) 17:09:01 ] まさかと思うが、VB6のVBEでもスクロールできるようにするプラグインがあるのもご存じない? 220 名前：デフォルトの名無しさん mailto:sage [2008/04/05(土) 19:59:18 ] VB6はわかりませんがどこでもホイールはまさかしたら 221 名前：デフォルトの名無しさん mailto:sage [2008/04/06(日) 22:54:34 ] support.microsoft.com/kb/837910/ja 222 名前：デフォルトの名無しさん mailto:sage [2008/04/07(月) 12:07:05 ] >>213 解決したみたいだけど sp3で 普通にできるようになったよ 223 名前：デフォルトの名無しさん mailto:sage [2008/04/07(月) 15:12:34 ] >>221 このアドインはバグがあるからダメ 224 名前：デフォルトの名無しさん mailto:sage [2008/04/07(月) 15:29:08 ] AddAutoScrollというものを使ってる 225 名前：デフォルトの名無しさん [2008/04/07(月) 18:30:21 ] グラフ番号 （オートでVBAを記述させたときの『DrawingObjects("グラフ 2")』などの『2』の部分） は、グラフを作るたびに自動で振られていきますが、 グラフを消去した場合も番号は累計されていってしまいますよね。 いったんグラフを作って消してから、グラフ番号をリセットすることは可能ですか？ （オートで書いた場合に、番号が『1』になるようにしたい。） グラフ番号をリセットする魔法を教えてください。 WinXP、Excel2003です。 226 名前：デフォルトの名無しさん [2008/04/07(月) 20:56:21 ] 質問をさせてください。 やりたい事は変数を用いて、範囲を選択する事です。 range("A1:C3").select のように範囲を選択する際に、変数を用いたく考えております。 dim hoge , piyo hoge = 1 piyo = 3 cells(hoge,1).select で単一セルは選択できたのですが、範囲指定が分かりません。 cells(hoge,1) から cells(piyo,3) までを選択する方法を教えて頂けたらば幸いです。 何卒ご指導をよろしくお願いします。 227 名前：デフォルトの名無しさん mailto:sage [2008/04/07(月) 22:33:10 ] >>266 Range(Cells(hoge,1), Cells(piyo,3)).Select たしかRangeとcellsは同シートじゃないとエラー出るのに気をつけてね 228 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 01:19:11 ] >>225 確かExcel再起動しない限り不可能だったようなことをどこかで読んだ記憶がある。 で、シートの追加・削除を行うマクロを長時間起動したままだとそのうち落ちるとかだったかな？ あいまいでごめん。 229 名前：デフォルトの名無しさん [2008/04/08(火) 12:59:51 ] 一つのセルに複数のセルを代入したいのですが、どうやればいいですか？ 一つの場合 Sheets("シート１").Range("C1") = Sheets("シート２").Range("D9") というようにやっているのですが、二つ以上になって Sheets("入力シート").Range("C1") = Sheets("共通設定シート").Range("D9:E9") みたいにやると、何も表示されなくなってしまいます。 230 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 13:10:14 ] >>229 何がしたいのか理解できない 231 名前：デフォルトの名無しさん [2008/04/08(火) 13:25:50 ] >>230 下の例間違ってました。訂正。 Sheets("シート１").Range("C1") = Sheets("シート２").Range("D9:E9") やりたいことは、例をあげると シート２のD9に「あい」と入っていてE9に「うえお」と入っているとすると シート１のC1には二つ繋がった結果「あいうえお」と入れたいです。 232 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 13:48:32 ] vbaでやりたいなら、range("d9"),value & range("e9").value ワークシート関数でいいなら、concatenate 233 名前：デフォルトの名無しさん [2008/04/08(火) 14:08:14 ] >>232 ありがとうございます！出来ました！ 234 名前：デフォルトの名無しさん [2008/04/08(火) 15:05:42 ] プリンタのトレイを指定して印刷したいのですが どうすりゃいいのか惜しえてください 235 名前：226 mailto:sage [2008/04/08(火) 21:01:07 ] >>227 上手く選択することが出来ました！ これで作業に幅が出たと思います。 本当にありがとうございました。 236 名前：デフォルトの名無しさん mailto:sage [2008/04/08(火) 23:22:30 ] 2003 XP autofilter filtermode 等 「sheet2 range("A1")　に、オートフィルターがかかっている（又は、オートフィルターモード）なら、 オートフィルターを解除し、 オートフィルターがかかっていないなら、何もしない。」 どう書いたらいいですか？ 237 名前：２３６ mailto:ａｇｅ [2008/04/08(火) 23:24:46 ] 揚げ忘れたwww 238 名前：２３６ mailto:sａｇｅ [2008/04/08(火) 23:48:02 ] 次で解決しました。 Sub filter0() With Sheet2 If .AutoFilterMode = True Then .AutoFilterMode = False End If End With End Sub 239 名前：２３６ mailto:sａｇｅ [2008/04/08(火) 23:48:45 ] 次で解決しました。 Sub filter0() With Sheet2 If .AutoFilterMode = True Then .AutoFilterMode = False End If End With End Sub 240 名前：デフォルトの名無しさん [2008/04/09(水) 20:49:49 ] 質問なのですが、 Sub excel_access4() Dim dbs As New ADODB.Connection 'ADOコネクション Dim rcs As New ADODB.Recordset 'ADOレコードセット Dim mydbF As String 'アクセス ファイル Dim mydbT As String 'アクセス テーブル Dim mtr As Variant 'エクセル 全データ Dim rcd As Long 'アクセス 行指定 Dim fld As Long 'アクセス 列指定 '例として acctest2.mdb の テーブル4 に書き込む mydbF = "acctest2.mdb" 'アクセス ファイル指定 mydbT = "テーブル4" 'アクセス テーブル指定 'アクセスデータベースを指定 dbs.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & ThisWorkbook.Path & _ "\" & mydbF & ";" 'アクセスデータベースを開く rcs.Open Source:=mydbT, _ 'A ActiveConnection:=dbs, _　 'B CursorType:=adOpenKeyset, _ 'C LockType:=adLockOptimistic, _ 'D Options:=adCmdTableDirect 'E 241 名前：デフォルトの名無しさん [2008/04/09(水) 20:50:17 ] 'エクセルシート全データ範囲(２次元配列) With Worksheets("Sheet1").Range("A1").CurrentRegion Let mtr = .Resize(.Rows.Count - 1).Offset(1, 0).Value For rcd = LBound(mtr, 1) To UBound(mtr, 1) '1次行 rcs.AddNew 'LB:最小値(1) UB:最大値(5) For fld = LBound(mtr, 2) To UBound(mtr, 2) '2次列 'アクセスに行列で書き込み Let rcs.Fields(fld - 1).Value = mtr(rcd, fld) Next rcs.Update Next End With rcs.Close dbs.Close Set rcs = Nothing Set dbs = Nothing End Sub AとBはわかりますが、CDEは一体何をしているのかわかりません。 また実行すると実行時エラー3709がでます。 この実行時エラーの原因がさっぱりわかりません。 どなたか詳しい方お教え願えないないでしょうか？ 242 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 01:03:15 ] VBAでレコード操作したことないけど カーソルとロックタイプを指定してるだけでしょ。 SQLでレコード扱う場合の基本だからググると（ｒｙ 243 名前：デフォルトの名無しさん [2008/04/10(木) 15:16:58 ] Sheet1のB5~B35に曜日を入れていきたくて Sheets("Sheet1").Range("B5") = ("日") Selection.AutoFill Destination:=Range("B5:B35") 上のようにVBAで書いて実行したら、エラー"1004" RangeクラスのAutoFillメソッドが失敗しました。って出るんですがなんででしょ？ Excelのほうでオートフィルしたら普通にB35まで曜日が出るんですが、VBAでやりたいので困ってます。 244 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 15:27:39 ] Sheets("Sheet1").Range("B5").AutoFill Destination:=Sheets("Sheet1").Range("B5:B35") 245 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 15:29:24 ] >>244 ありがとございます、できました 246 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 15:38:17 ] マクロの記録で「Selectionは使わない」「Rangeをいつでも明示する」ってオプションがあって、 それがデフォルトでもいい気がする。 247 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 15:41:19 ] >>246 やってみます、ありがとう！ 248 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 15:45:53 ] あ、いやいや、そういうオプションがあったらいいな〜 もしあったら、デフォルトはこれがいいな〜 って妄想なので・・・ 249 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 15:47:20 ] >>248 なるほど、そういうことですか 250 名前：デフォルトの名無しさん [2008/04/10(木) 15:52:49 ] 質問させてください。 WinXP、Excel2007です。 すみません、ヒントだけでもご教授下さい。 データが入ってるシートを選択したときに「sheet3」というシートにアクティブになってるシートのセルの一部をコピーしたいのです。 データが入ってるシートはたくさん増えるので、一個ずつ指定することができません… 手探り手探りつくってみたのがコレです。動きません。 Private Sub Worksheet_Activate() Range("A3").Copy ActiveSheet.Paste Destination:=Worksheets("sheet3").Range("D7") Range("A8").Copy ActiveSheet.Paste Destination:=Worksheets("sheet3").Range("D4") Range("B7").Copy ActiveSheet.Paste Destination:=Worksheets("sheet3").Range("E3") End Sub おねがいします 251 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 15:54:27 ] もう一ついいでしょうか フォントの色を変える方法はセルを指定するしかないのでしょうか？ 表を作っていてさっき質問したB5~B35に入る曜日の土日だけ赤にしたいと思っています しかし月によって、どこに土日が入るかわからないのでセル指定ではなくて変数などを指定してやる方法はありますか？ ちなみにSelect文を使って変数の中身を替えています 252 名前：デフォルトの名無しさん mailto:sage [2008/04/10(木) 16:15:12 ] >>250 ThisWorkbookのマクロに Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "Sheet3" Then Exit Sub Worksheets("Sheet3").Range("D7").Value = Sh.Range("A3").Value '以下略 End Sub

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef