cistronezk の回答履歴

アクセスの素人です。 アクセスからエクセルのシートを作るコードなのですが、保存方法を追記する方法は、どうすれば良いか教えてください。 Private Sub btnTEST001_Click() Dim rs As New ADODB.Recordset 'ADOのレコードセット Dim objEXCEL As Object 'Excel参照用 Dim nYLINE As Long 'セット位置 'Excelを起動する、オブジェクトの作成 Set objEXCEL = CreateObject("Excel.Application") 'オブジェクトの作成 objEXCEL.Visible = True 'Excelを見えるようにする '新規のブックを追加する objEXCEL.Workbooks.Add 'Excelのブックを作成 'Excelのシートを追加、シート名を変更する objEXCEL.Sheets.Add 'シートを追加する objEXCEL.ActiveSheet.Name = "DATA" 'シート名をDATAにする 'レコードセットを開く(Q_YUBIN_7) rs.Open "Q_YUBIN_7", CurrentProject.Connection, _ adOpenKeyset, adLockOptimistic '見出しの代入とカウンタの初期化 objEXCEL.Cells(1, "A") = "郵便番号" objEXCEL.Cells(1, "B") = "件数" nYLINE = 2 '２行目からデータをセットする 'レコードセットからExcelへデータをセットする 'ループ処理 While rs.EOF = False 'いつものEOFが偽の間 'データをセットする(Accessから転記) objEXCEL.Cells(nYLINE, "A") = rs("郵便番号").Value objEXCEL.Cells(nYLINE, "B") = rs("郵便番号のカウント").Value '次を読む And カウンタを移動する rs.MoveNext '次のレコードに移動しないと、とんでもないことに(笑) nYLINE = nYLINE + 1 'カウンタも忘れずに＋１する Wend '通常は、ここでExcelを保存するんだけど、今回は開きっぱなしの手抜き rs.Close '開いたら閉じろ、ドアを開けたら閉めるってしつけられたでしょ(笑) Set rs = Nothing '変数も後始末しますか。使った器はキレイにしろって? End Sub

以下のコードを実行すると、UBoundに配列がありませんというエラーがでます。 どこが間違っているのか教えてください。 よろしくお願いします。 strLine(i)には以下のような漢字でデータが入っています。 strLine(i) = "θinj = ゜BTDC,λ=2.0,KS=20%,TIM= ゜BTDC,DUR= ゜CA,dPg= MPa,Pme= MPa,ne= rpm,Pex= MPa" 'データシートに系列はきだし strKeiretu = Split(strLine(i), ",") For j = 0 To UBound(strKeiretu) If j <= 3 Then Workbooks("matome.xls").Sheets(strSN).Cells(j + 1, 22) = strKeiretu(j) If j >= 4 And j <= 7 Then Workbooks("matome.xls").Sheets(strSN).Cells(j - 3, 24) = strKeiretu(j) If j >= 8 Then Workbooks("matome.xls").Sheets(strSN).Cells(j - 7, 26) = strKeiretu(j) 'Pexのはりつけ If "Pex" = Left(strKeiretu(j), 3) Then Workbooks("matome.xls").Sheets(strSN).Cells(4, 14) = Mid(strKeiretu(j), 5, Len(strKeiretu(j)) - 6) End If Next j

n個の要素をもった配列で、２番目に大きい要素を見つけるコードを書きたいのですが、合っているのか不安になって、質問させてもらいます。 アルゴリズムとしては、まず、n-1回の比較をしてその中でmaxを見つけ、残りのn-1個の要素のなかでn-2回の比較をしてそのn-1個の配列のmaxを見つければ、２番目に大きい要素を見つけられると考えました。 int main(void) { int E[n]; int i, j, temp; for(i=0;i<N;i++){ for(j=1;j<N-i;j++){ if(E[j-1]>E[j]){ temp=E[j-1]; E[j-1]=E[j]; E[j]=temp; } } } return E[j]; } これであっていますでしょうか？ よろしくお願いいたします。

　　　　A B 1｜　日本　一郎　｜　東京　｜　 2｜　日本　一郎　｜　東京　｜ 3｜　日本　二郎　｜　静岡　｜ 4｜　日本　二郎　｜　大阪　｜ 5｜　日本　三郎　｜　奈良　｜ 6｜　日本　四郎　｜　兵庫　｜ 7｜　日本　四郎　｜　兵庫　｜ 上記のようなデータがある場合に 1｜　日本　二郎　｜　静岡　｜ 2｜　日本　二郎　｜　大阪　｜ 3｜　日本　三郎　｜　奈良　｜ のように、重複したレコードを削除したいのですが、 どのようにすればいいのでしょうか？ エクセルはちょっと古く2000です できれば、簡単な方法でお願いします。

当社ではある報告のExcel雛型があり、各社員が雛型に入力したExcelそのものを社内メールに添付させて受け取っていますが、今回集約のためのAccessを作ってそのExcelの各セル番地を一覧で別のExcelに集約したいと考えています（一括して処理したいExcelの数は500件程度）。 Excel雛型には、各社員には余計な操作をさせたくないということで、メニューバー等々をVBAで非表示にしてあり、×ボタンも使用不可にしています（「保存して閉じる」ボタンを別に用意）。 ところが、以下のコードを雛型のExcelのThisWorkbookに入れているばっかりに、集約用のAccessからExcelを操作する際に、自分で仕込んだメッセージ（「×ボタン使用不可」）が表示されてしまい、最初のExcelをうまく閉じることができず、繰り返し複数のExcelを処理することができません。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub Workbook_BeforeClose(Cancel As Boolean) If CloseMode = False Then Cancel = True MsgBox "×ボタン使用不可" End If End Sub （※標準モジュールに Public CloseMode As Boolean を宣言して、別に用意した「保存して閉じる」ボタンをクリックしたときにCloseMode = Trueとしている。） ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ そもそもExcelを開く際にマクロを無効にして開くことができれば閉じるときにこんなことにならずに済むと思うのですが。。。 Application.AutomationSecurity = msoAutomationSecurityForceDisable　も試してみましたが、うまくいかないようです。 また、変数「CloseMode」に対して、集約用のAccessからExcelを開いたときに値を入れることができればいいとも思うのですが、スコープについて調べたところでは難しいかなと感じています。 （※Excel雛型のコードはさわれないので「参照設定」を変更するのもできないと思われます。） そんな小細工を施したExcelを何事もなく開いて中身のセル番地をコピーして閉じる方法をご存じでしたらご教授願います。 質問の内容もわかりにくくてすみません。。。 よろしくお願いいたします。<m(__)m>

例えば次の様なフォルダーとファイルがあるとき \abc\a.txt \abc\b.doc \abc\def\b.doc \abc\ghi\a.txt \abc\ghi\b.doc 次の様な結果を得たいのですが、どうすれば良いでしょうか？ $dir[/abc/a.txt] = "/abc/a.txt" $dir[/abc/b.doc] = "/abc/b.doc" $dir[/abc/def/b.doc] = "/abc/def/b.doc" $dir[/abc/ghi/a.txt] = "/abc/ghi/a.txt" $dir[/abc/ghi/b.doc] = "/abc/ghi/b.doc" 再帰関数でできそうに思うのですが、いくら考えても分かりません。 $path = "\abc"; function getfiles($path) {} print_r(getfiles($path)); みたいにして取り出せると助かります。 すみませんが教えてください。

php超初心者です。 よろしくお願いします。 同階層にあるphpフォルダから 1行だけ選択する方法は <?php $data = file("./php/random.txt"); srand((double)microtime()*1000000); shuffle($data); echo $data[0]; ?> でできたのですが、 これを同じphpフォルダのrandom.txtから ランダムに３～４つ抽出するには どのように書けばいいのでしょうか？ （抽出したテキストはダブらないようにしたいと思います。） ＊random.txtには１０行ほどのテキストが記述されています。 以上、ご回答よろしくお願いします。

お世話になっております。 エクセル上のＡ列に下記のような文字列があったとします。 　　　　　　Ａ １　00001-black-free ２　00002-white-black-L ３　　　　・ ４　　　　・ ５　　　　・ 上記は品番・カラー・サイズという並びなのですが、カラーの部分に上記「white-black」のように間にハイフンが入った物が存在するとします。 これを区切り位置でハイフンで区切りをつけると下記のようになります。 　　　Ａ　　　　　　　　Ｂ　　　　　　Ｃ　　　　　　 Ｄ １　　00001　　　　black　　　　　free ２　　00002　　　　white　　　　　black　　　　　L ３　　　・　　　　　 ・　　　　　　 ・　　　　　 ・ ４　　　・　　　　　 ・　　　　　　 ・　　　　　 ・ ５　　　・　　　　　 ・　　　　　　 ・　　　　　 ・ これを本当は下記の形式にしたいのです。 　　　Ａ　　　　　　　　Ｂ　　　　　 　Ｃ　　　　　　Ｄ １　　00001　　　　black　　　　　 free ２　　00002　　　　white-black　　　 L ３　　　・　　　　　 ・　　　　　　 ・　　　　　 ４　　　・　　　　　 ・　　　　　　 ・　　　　　 ５　　　・　　　　　 ・　　　　　　 ・　　　　　 何か方法がございましたらお教え頂けますでしょうか。 何卒よろしくお願い申し上げます。

MySQLでひとつのテーブルの複数フィールドに値を設定してレコードを参照したい。 例えば、key-field-1 >= ??? と key-field-2 >= ???で　key-field-1は主キーでkey-field-2は従属キーとし、key-field-1の条件に合うレコードで、次にkey-field-2の条件に合うレコードを見つけ、それ以降の全てのレコードを抽出したい。 select * from table-1 where key-field-1 >= ??? and key-field-2 >= ??? で検索すると 両方の条件を満たすレコードのみ検索される。 アドバイスを待っています。

以下のプログラムをコンパイル・実行しようとすると、コンパイルはエラーなくできますが、実行すると「プログラムは動作を停止しました」という表示が出て、エラーになってしまいます。 たぶんatoi()が原因だと思うのですが、何が問題なのでしょうか？ それとも環境の問題でしょうか？ どなたかご存知の方がいらしたら教えてもらえないでしょうか。 <環境> VISTA、VC++ //------ここから---------- #include <stdio.h> #include <stdlib.h> #define AAA atoi(argv[1]) #define BBB atoi(argv[2]) #define CCC atoi(argv[3]) #define DDD atoi(argv[4]) #define EEE atoi(argv[5]) #define FFF atoi(argv[6]) #define GGG atoi(argv[7]) int main(int argc, char **argv) { FILE *fo; int i, j, k, l, m, v, cnt1; int v_tmp = CCC; int x_cnt; int y_cnt = 0; int cnt = 0; int arr[8190]; if(argc != 9){ printf("引数の数が違います。\n"); printf("使用法：<プログラム名><AAA><BBB><CCC>\n"); printf(" <DDD><EEE><FFF><GGG><出力ファイル名>"); exit(1); } if((fo = fopen(argv[8], "w"))==NULL){ printf("can not open file\n"); exit(1); } v = v_tmp; for(l=0; l<AAA; l++){ arr[l] = v; cnt++; if(cnt == FFF){ v += DDD; cnt = 0; } } for(i=0; i<BBB; i++){ m = 1; cnt1 = 0; x_cnt = 0; while(x_cnt < AAA){ fprintf(fo, "%04x", arr[m]); x_cnt++; if(!(x_cnt%2)) fprintf(fo, "\n"); cnt1++; if(cnt1%2){ }else{ m += 3; } m -= 1; } y_cnt++; if(y_cnt == GGG){ v_tmp += EEE; y_cnt = 0; v = v_tmp; cnt = 0; for(l=0; l<AAA; l++){ arr[l] = v; cnt++; if(cnt == FFF){ v += DDD; cnt = 0; } } } } fclose(fo); return 0; }

php超初心者です。 よろしくお願いします。 同階層にあるphpフォルダから 1行だけ選択する方法は <?php $data = file("./php/random.txt"); srand((double)microtime()*1000000); shuffle($data); echo $data[0]; ?> でできたのですが、 これを同じphpフォルダのrandom.txtから ランダムに３～４つ抽出するには どのように書けばいいのでしょうか？ （抽出したテキストはダブらないようにしたいと思います。） ＊random.txtには１０行ほどのテキストが記述されています。 以上、ご回答よろしくお願いします。

またお世話になりますm( __ __ )m PEAR の BlowFish を用いての暗号化、復号化についての質問です。 例えば、"hello" という文字列を暗号化します。 そして、 $_str = $_blowfish->decrypt($_crypt_str); と復号した時に、 取得した文字列 $_str は 8byte に満たない部分が \0 で埋まってきます。すなわち "hello\0\0\0" となります。 ちなみに "hello_World" を暗号化して復号すると "hello_World\0\0\0\0\0" となります。 私が調べた限りでは、8byte で割り算した余りの部分が \0 で埋められてくるという仕様？なのかバグなのからしいです。 とりあえずそのままでは使い物にならないので、 $_trim_str = rtrim($_str); として、一応期待通りの動きをしていますが、こういう安易な使い方でよろしいのでしょうか？ そもそも復号文字列が 8 byte 余り部分を \0 で埋めてくるなどと言うのは私の使い方が間違っているかと疑わざるをえません。 どなたかご存知の方いましたらこの辺のモヤモヤをスッキリさせていただけませんでしょうか？ ちなみに暗号化モードは CBC で、初期化ベクトルは 8 byte です。

C# 2008 Expressを使っています。 ある配列があり、特定の位置例えば２番目の値が変わった場合(もしくは0になった)場合、 ブレーク（中断）させる方法はありますか？ ary[2] = 3; ary[2] = 0; <--- 0になった　ここのソースでブレーク(中断) ある配列で値を設定している位置が沢山あり、ifとかでプログラムを書くのは面倒なので デバッグで出来る方法が知りたいです。 昔VC4かBC2.0か忘れましたが、ウォッチ？で出来たような記憶がありますが・・・ 私は安直にプログラムを組んでいますが、 皆さんはクラスのメソッドなど使って、代入値の監視などしているのでしょうか？ かなりパフォーマンスが落ちるので無意識に避けていましたが、 どんなプログラムの作りが現在標準なのでしょうか。

またお世話になりますm( __ __ )m PEAR の BlowFish を用いての暗号化、復号化についての質問です。 例えば、"hello" という文字列を暗号化します。 そして、 $_str = $_blowfish->decrypt($_crypt_str); と復号した時に、 取得した文字列 $_str は 8byte に満たない部分が \0 で埋まってきます。すなわち "hello\0\0\0" となります。 ちなみに "hello_World" を暗号化して復号すると "hello_World\0\0\0\0\0" となります。 私が調べた限りでは、8byte で割り算した余りの部分が \0 で埋められてくるという仕様？なのかバグなのからしいです。 とりあえずそのままでは使い物にならないので、 $_trim_str = rtrim($_str); として、一応期待通りの動きをしていますが、こういう安易な使い方でよろしいのでしょうか？ そもそも復号文字列が 8 byte 余り部分を \0 で埋めてくるなどと言うのは私の使い方が間違っているかと疑わざるをえません。 どなたかご存知の方いましたらこの辺のモヤモヤをスッキリさせていただけませんでしょうか？ ちなみに暗号化モードは CBC で、初期化ベクトルは 8 byte です。

はじめまして。 VBSの初心者です。 VBSで、あるアプリケーションのsetup.exeを実行し、そのsetup.exeのプロセスが終了したあと、特定のメッセージダイアログを出力したいと思いますが、記述方法が分かりません。。。 どなたか、サンプルの記述方法を教えていただけますでしょうか？

C# 2008 Expressを使っています。 ある配列があり、特定の位置例えば２番目の値が変わった場合(もしくは0になった)場合、 ブレーク（中断）させる方法はありますか？ ary[2] = 3; ary[2] = 0; <--- 0になった　ここのソースでブレーク(中断) ある配列で値を設定している位置が沢山あり、ifとかでプログラムを書くのは面倒なので デバッグで出来る方法が知りたいです。 昔VC4かBC2.0か忘れましたが、ウォッチ？で出来たような記憶がありますが・・・ 私は安直にプログラムを組んでいますが、 皆さんはクラスのメソッドなど使って、代入値の監視などしているのでしょうか？ かなりパフォーマンスが落ちるので無意識に避けていましたが、 どんなプログラムの作りが現在標準なのでしょうか。

EXCELVBAの参考書を読んでいて分からないところがあります。 以下は参考書に書いてある内容。 『 1:Sub Position() 2: '選択セル範囲の位置を代入するための変数を宣言する 3: Dim R1 As Long, R2 As Long, C1 As Long, C2 As Long 4: '選択セル範囲の左上の行番号/列番号を求める 5: R1 = Selection.Row 6: C1 = Selection.Column 7: '選択セル範囲の右下の行番号/列番号を求める 8: R2 = Selection.Row + Selection.Row.Count - 1 9: C2 = Selecton.Columns + Selecton.Columns.Count - 1 10: '選択セル範囲の1行下に、各列の最小値を求めるMIN関数の式を代入する 11: Range(Cells(R2 + 1, C1),Cells(R2 + 1,C2)).FormulaR1C1 = "MIN(R" & R1 & "C:R" & R2 "C)" 』 と書いてあり 11行目の説明は、 『"MIN(R" & R1 & "C:R" & R2 "C)"　は、「MIN(R」 & R1 & 「C:R」 & R2 「C)」になり、最終的にセルに置きたい式は次のような式です。式の中の「□」と「○」は、変数R1とR2の値、つまり選択セル範囲の上端/下端の行番号です。 =MIN(R□:CR○C) 』とあります。 なぜ=MIN(R□:CR○C)になるのでしょうか？？ CRとは行の先頭という意味ですか？？ 初心者ですので分かりやすく教えてください。

EXCELVBAの参考書を読んでいて分からないところがあります。 以下は参考書に書いてある内容。 『 1:Sub Position() 2: '選択セル範囲の位置を代入するための変数を宣言する 3: Dim R1 As Long, R2 As Long, C1 As Long, C2 As Long 4: '選択セル範囲の左上の行番号/列番号を求める 5: R1 = Selection.Row 6: C1 = Selection.Column 7: '選択セル範囲の右下の行番号/列番号を求める 8: R2 = Selection.Row + Selection.Row.Count - 1 9: C2 = Selecton.Columns + Selecton.Columns.Count - 1 10: '選択セル範囲の1行下に、各列の最小値を求めるMIN関数の式を代入する 11: Range(Cells(R2 + 1, C1),Cells(R2 + 1,C2)).FormulaR1C1 = "MIN(R" & R1 & "C:R" & R2 "C)" 』 と書いてあり 11行目の説明は、 『"MIN(R" & R1 & "C:R" & R2 "C)"　は、「MIN(R」 & R1 & 「C:R」 & R2 「C)」になり、最終的にセルに置きたい式は次のような式です。式の中の「□」と「○」は、変数R1とR2の値、つまり選択セル範囲の上端/下端の行番号です。 =MIN(R□:CR○C) 』とあります。 なぜ=MIN(R□:CR○C)になるのでしょうか？？ CRとは行の先頭という意味ですか？？ 初心者ですので分かりやすく教えてください。

php超初心者です。 よろしくお願いします。 同階層にあるphpフォルダから 1行だけ選択する方法は <?php $data = file("./php/random.txt"); srand((double)microtime()*1000000); shuffle($data); echo $data[0]; ?> でできたのですが、 これを同じphpフォルダのrandom.txtから ランダムに３～４つ抽出するには どのように書けばいいのでしょうか？ （抽出したテキストはダブらないようにしたいと思います。） ＊random.txtには１０行ほどのテキストが記述されています。 以上、ご回答よろしくお願いします。

MySQLでひとつのテーブルの複数フィールドに値を設定してレコードを参照したい。 例えば、key-field-1 >= ??? と key-field-2 >= ???で　key-field-1は主キーでkey-field-2は従属キーとし、key-field-1の条件に合うレコードで、次にkey-field-2の条件に合うレコードを見つけ、それ以降の全てのレコードを抽出したい。 select * from table-1 where key-field-1 >= ??? and key-field-2 >= ??? で検索すると 両方の条件を満たすレコードのみ検索される。 アドバイスを待っています。