●EXCEL・VBA質問スレ Part2●

1 名前：デフォルトの名無しさん [2007/05/27(日) 00:06:58 ] ・まじめにExcelの機能を追及してみようと思う奇特なひと ・スキルがないのに無理やりVBAの仕事を押し付けられた普通のひと ・VBAなんていまさらやりたくないのに業務で仕方なく使っているひと ・とにかく漏れにこんな仕事まわすなと怒っているひと そんなM$大好きなひとからアンチM$なひとたちまで幅広くカバーするスレです 前スレ pc11.2ch.net/test/read.cgi/tech/1168308855/ 477 名前：デフォルトの名無しさん mailto:sage [2007/07/29(日) 23:01:37 0] ０〜１１までの数字をランダムに、かつかぶらないように代入したいんですが 以下のコードだと数字が代入されない場合があるんです。何が原因なんでしょう・・ ___＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ n1k = Int(Rnd * 12) Do n2 = Int(Rnd * 12) Select Case n2 Case n1k Case Else n2k = n2 End Select Loop Until n2k = n2 Do n3 = Int(Rnd * 12) Select Case n3 Case n1k Case n2k Case Else n3k = n3 End Select Loop Until n3k = n3 478 名前：デフォルトの名無しさん [2007/07/29(日) 23:09:29 0] 書ききれないので・・実際はn8kまであります。 479 名前：デフォルトの名無しさん mailto:sage [2007/07/29(日) 23:29:12 0] Empty = 0がTrueになるから。 その冗長的なコーディングにはやむを得ない事情があるの？ あと抜粋でもせめて宣言部は書こうよ。 480 名前：デフォルトの名無しさん mailto:sage [2007/07/29(日) 23:37:30 0] n*kが数値型変数やVariant型変数の場合 Int(Rnd * 12)の結果が0ならCase Elseでの代入を行わなくても｢n*k = n*｣がTrueになるからでは？ そういうのは配列に順に数値を代入してからランダムソートするといいよ というか､そうするのが普通だろ 481 名前：デフォルトの名無しさん mailto:sage [2007/07/29(日) 23:51:51 0] {0,1,2,3,4,5,6,7,8,9,10,11} {0,1,2,3,4,5,7,8,9,10,11} {0,2,3,4,5,7,8,9,10,11} {0,2,3,4,5,7,8,9,11} こういうイメージで配列を操作せよ 482 名前：デフォルトの名無しさん mailto:sage [2007/07/29(日) 23:51:52 0] >>480 >>477に便乗で悪いんだけど、 ０〜１１までの数字をランダムに、かつかぶらないように代入したい て時に俺は Dim RndNum As Long Dim NumCnt As Integer '抜き出す数字の個数 NumCnt = 3 Set Dic = CreateObject("Scripting.Dictionary") RndNum = Int(Rnd * 12) Dic.Add RndNum, RndNum Do While Dic.Count < NumCnt RndNum = Int(Rnd * 12) If Not Dic.Exists(RndNum) Then Dic.Add RndNum, RndNum End If Loop みたいなやりかたするんだけどダメ？ 483 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 00:40:48 ] ダメではないけどDictionaryなんて使う必要ない 484 名前：482 [2007/07/30(月) 01:43:37 ] >>483 そか。 ちとランダムソートについて調べてみるよ レスさんくす 485 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 02:31:58 ] 全然詳しくないので質問させてください。 いつも仕事中にWebばかり見てる派遣クンが 「VBAがプログラムどおりに動かない原因を調べるのは僕の仕事ではありません。」 と言っています。 彼のVBAプログラムが動かないのを調べるのは誰の仕事でしょうか？ 486 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 02:39:18 ] プログラムが失敗作と確定してるのだったら そういうやつは辞めてもらえ 487 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 03:17:02 ] >>485 契約内容に因る 派遣ではなく業務請負なら間違いなくそれも彼の仕事のうちだけどね 一般的にはその派遣クンが悪いように見る人が多いかも知れないけど 契約内容によっては正しいことを言ってるかも知れない それとこの質問において｢Webばかり見てる｣なんて情報は全く持って不要 彼の印象をなるべく悪くしようとしているようで浅ましい限りだ 488 名前：デフォルトの名無しさん [2007/07/30(月) 10:34:02 ] vba　おすすめ参考書は？ 489 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 19:54:34 ] 参考書とは言えないかもしれんが 「Excel VBA 実用サンプルコレクション」 異常にオブジェクト偏重なサンプル集だけどこの考え方は持っておくべきだと思う。 完全な入門ならちょっと敷居が高すぎるだろうけどね。 >>485って日本語の問題？動く物を作れで終了なんじゃw 490 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 19:59:21 ] セル範囲を画像化して保存する方法はありますでしょうか？ 491 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 20:29:53 ] あるよ 492 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 22:57:49 ] 素人な聞き方でｽﾏｿ たとえば、 セルD1に「=A1&B1&C1」と入力したら「あいう」と表示されるとします。 （A1, B1, C1 にそれぞれ、あ、い、う が入っている） セルD1 をセルD2に、paste spacial → values（＊英語エクセルです）で コピペしたら、セルD2には「あいう」というテキストが入ります。 このpaste spacial → values の作業を省略できるような関数があったら教えてください。 例えば、A1の値を「わ」に変えるだけで、自動的に 「わいう」というテキストの入ったセルを ゲットできるようにしたいのです。 493 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:07:07 ] 質問させてください。 UserForm上にComboBoxを配置して Initializeで初期値とRowsourseによってリストを与えるようにしています。 ComboBoxのリストを開くと最初は一番上のリストの値から順に表示され、 一度リストから値を選択してComboBoxに入れ、 再度リストを開くとその値があらかじめ選択されており、 その値の前後が表示されるようになってます。 （ 1 〜12月がリストにあり、5月を選び再度リストを開くと 5月が選択された状態で リストをスクロールせずとも 3〜 7月の値が選択可能な範囲にある 　ような状態です。） 最初からComboBoxの初期値の付近のリストを表示させるようにしたいのですが、 方法はありますでしょうか？ 説明が不十分で分かりにくいかと思いますが、宜しくお願いします。 494 名前：492 mailto:sage [2007/07/30(月) 23:19:05 ] 自己解決しそうです。 PASTE.SPECIAL 関数っていうのがあるみたいですね。 でも手元にある 2003 のエクセルにはないみたいですが・・・ 調べてみます。 495 名前：492 mailto:sage [2007/07/30(月) 23:27:31 ] やっぱり分からなかった。 たぶんマクロでやるんですかね。素人レベルには難しいことならば諦めます。 496 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:28:20 ] Private Sub UserForm_Initialize() ComboBox1.Value = "5月" End Sub 497 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:30:30 ] >>496 ただ単にValueで値を持たせてもできないのですが・・ 498 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:31:24 ] >>492 d2に=d1じゃだめなん？ 499 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:34:48 ] >>497 五月になってない？ 500 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:43:09 ] >>499 正確には1〜12の値のみで初期値に5を入れて ComboBoxの値は5になっている状態でリストを見ても 1(リストの一番上の値)から5くらいまでが表示された状態になってます。 要は値は入っていてもリスト上は何も選択されていない状態です 501 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:45:30 ] >>500 それは値は入っていても値は入っていない状態だからお手上げだな 502 名前：デフォルトの名無しさん mailto:sage [2007/07/30(月) 23:55:44 ] >>501 お手上げですか なにか手はないものでしょうか・・ 503 名前：デフォルトの名無しさん mailto:sage [2007/07/31(火) 00:03:14 ] >>498 はい。 家計簿を作ってるんですが、 1〜12月までの費目別合計の推移を DSUM 関数で出しています。 =DSUM('1'!A:H,'1'!F1,分類!A1:A2) ←１月 =DSUM('2'!A:H,'2'!F1,分類!A1:A2) ←2月 =DSUM('3'!A:H,'3'!F1,分類!A1:A2) ←3月 （以下12月までつづく） >>492 の例に当てはめると、セルD1に =DSUM('1'!A:H,'1'!F1,分類!A1:A2) と表示されています。 この数式を使えるようにするために、paste spacial → values の作業をしています。 「A1:A2」の部分だけを何度も変更できるように、 セルD1は複数のセルを＆でつないでおり、「A1:A2」の位置には特定のセルを指定し、 そのセルに好きなセル範囲を書くだけでいいようにしています。 504 名前：デフォルトの名無しさん mailto:sage [2007/07/31(火) 00:16:55 ] >>502 Private Sub UserForm_Activate() Me.ComboBox1.DropDown Me.ComboBox1.Value = 5 End Sub こうゆうこと？ 505 名前：503 mailto:sage [2007/07/31(火) 00:51:56 ] 当初考えていたやり方じゃないけど解決しました。 有難う御座いました。 506 名前：デフォルトの名無しさん [2007/08/01(水) 13:38:16 ] Excelからメールを送ろうとCDOで組んだのですが宛先があっていれば普通に送れるのですが、アドレスが間違っていて存在しないアドレスに送っていてもエラーが帰ってきません。 このエラーを得る方法はありますか？ 507 名前：デフォルトの名無しさん mailto:sage [2007/08/01(水) 18:43:08 ] あります でもExcelの話じゃないので､ここでは聞かないでね 508 名前：デフォルトの名無しさん [2007/08/01(水) 19:06:24 ] CSVをADOの「Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=〜」で扱うのは office2000以上だと標準で利用できますか？ 参照設定の設定も不要でいいんでしょうか？ 509 名前：デフォルトの名無しさん mailto:sage [2007/08/01(水) 19:07:12 ] 当然参照設定は必要 510 名前：デフォルトの名無しさん [2007/08/01(水) 19:15:24 ] >>509 マジ？なんも設定しなくても使えたんだけど・・・ ちなみに何を設定すればいいんですか？ 511 名前：デフォルトの名無しさん mailto:sage [2007/08/01(水) 19:18:37 ] もしかしてCreateObjectで参照してる？ 512 名前：デフォルトの名無しさん [2007/08/01(水) 19:28:25 ] Private Sub CommandButton1_Click() Set rs = CreateObject("ADODB.Recordset") Con = "" Con = Con & "Driver={Microsoft Text Driver (*.txt; *.csv)};" Con = Con & "DBQ=C:\Documents and Settings\Administrator\デスクトップ\新しいフォルダ;" strSQL = "select * from test.csv" rs.Open strSQL, Con, 0 '0=adOpenForwardOnly cols = rs.Fields.Count Do Until rs.EOF Line = "" For i = 0 To cols - 1 Line = Line & rs(i) & vbTab Next Debug.Print Line rs.MoveNext Loop End Sub 513 名前：デフォルトの名無しさん [2007/08/01(水) 19:29:32 ] こんなん書いて　今家でも試したけど出来た CreateObjectだね CreateObjectだと参照設定しなくても出来るということでおｋ？ 514 名前：デフォルトの名無しさん mailto:sage [2007/08/01(水) 20:05:43 ] >>506 www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_080.html ググったら見つけました 515 名前：デフォルトの名無しさん [2007/08/01(水) 22:14:09 ] エクセルを開こうとするといきなりインストールしだしてエラー表示がでました。 プロパティを開いてプログラムを見ると不明なアプリケーションとなっております。 これは何故でしょう？ またこれを解決する方法はどうすればいいのでしょうか？ 516 名前：デフォルトの名無しさん mailto:sage [2007/08/01(水) 22:17:30 ] >>513 そうだよ。それが遅延バインディング。 欠点として、参照設定してきちんと型を指定して使う早期バインディングより 速度が遅いと、確かヘルプに書かれているはず。 517 名前：デフォルトの名無しさん [2007/08/01(水) 22:18:02 ] 初心者です。 if,do,for等の分岐式や繰り返しコードを使うと必ずバグが出ます。 バグが出ないように皆さん何か心がけている事ってありますか？ 518 名前：デフォルトの名無しさん mailto:sage [2007/08/01(水) 22:21:59 ] 参照設定しないと遅いのもあるけど、コーディングしにくくない？ 519 名前：デフォルトの名無しさん [2007/08/01(水) 22:55:03 ] 参照設定ってexcelファイルにするの？ ｅｘｃｅｌ環境にするの？ 520 名前：デフォルトの名無しさん mailto:sage [2007/08/01(水) 23:05:13 ] ブック単位だな。 ちなみに、普通のVBだとプロジェクト単位。 521 名前：デフォルトの名無しさん [2007/08/01(水) 23:47:31 ] >>515 VBA関係ねえ 522 名前：デフォルトの名無しさん [2007/08/01(水) 23:53:15 ] >>520 �d 523 名前：デフォルトの名無しさん [2007/08/02(木) 07:40:47 ] ADOで csvテーブル（Microsoft Text Driver接続）と Excelシートテーブル（Microsoft Excel Drive？接続）の SQLでの連結ってできる？ 524 名前：デフォルトの名無しさん mailto:sage [2007/08/02(木) 18:21:00 ] VBAでListViewとかTreeViewを組み込んで OLEDragDropとか使うのは、 VBがある環境じゃないとライセンス違反とか聞いたんだけど、ほんと？ なんかMSのページ見に行ってもどこに情報があるのか良くわからん。。 使えるのに使っちゃダメとかなんだったらひどい話だよなあ。 525 名前：デフォルトの名無しさん [2007/08/02(木) 18:24:58 ] vbaでSQLite使う方法ある？ 526 名前：デフォルトの名無しさん mailto:sage [2007/08/02(木) 18:28:46 ] あるよ 527 名前：デフォルトの名無しさん [2007/08/02(木) 18:33:07 ] どうやるのか教えて 528 名前：デフォルトの名無しさん mailto:sage [2007/08/02(木) 21:21:54 ] >>524 > ライセンス違反とか聞いたんだけど、ほんと？ うん､ライセンス違反だよ ListViewとかTreeViewはVB6ランタイムを入れるとVBAからも使えるようになるが､本来VB6ランタイムというのは有料ソフトの付属品 VB6で作ったソフトを動かす為に必要なので､特定条件下で無料再配布が許可されているが､当然､使用はライセンスに縛られた範囲になる で､使用して良い範囲が､VB6を持ってない人(VB6ランタイムを借りてる人)ではVB6で作られたソフトからの利用のみで VB6を持ってる人(VB6ランタイムを購入した人)は自分の環境内で好きなように使って良くて VB6Proなどを持ってる人(VB6ランタイムとその再配布権を購入した人)は自環境内で好きなように使って良いのに加えて 自作ソフトに同梱して配布することも出来る 無料で配布されているとは言え､VB6を持ってない人には有料ソフトの一部を条件付きで貸してるだけということをお忘れなく > 使えるのに使っちゃダメとかなんだったらひどい話だよなあ。 世の中､出来るけどやっちゃいけないことで溢れかえっているけど､こんな事にも気付いてないほどお子ちゃまなの？ おそらくピッキングが出来れば君の家にある君が所有権を持つ物品類を盗むことも｢出来ること｣だが この｢出来ること｣をやっちゃダメだと法的に定めるのはひどい話なのかな？ 君の所有物に対して､所有権において他者の使用を制止･制限出来るのと同じで MSの著作物に対しても､著作権において他者の使用を制止･制限してるだけのことなんだけど 529 名前：デフォルトの名無しさん mailto:sage [2007/08/02(木) 21:47:51 ] >>528 > 特定条件下で無料再配布が許可されているが､ おー、そういうからくりなのか。ぜんぜん知らなかった。 勉強になるなあ。ありがとう。 > 世の中､出来るけどやっちゃいけないことで溢れかえっているけど､ > こんな事にも気付いてないほどお子ちゃまなの？ お子ちゃまレベルなのは認めるよ。 趣味でスクリプト組んでいるんであって、 プロで開発やってるわけじゃないもん。 もうちょっと「だめであること」がわかりやすくなっていても いいんじゃないか？と思ったよ。だめならだめでさ。 530 名前：デフォルトの名無しさん mailto:sage [2007/08/02(木) 21:56:24 ] それを言うなら鍵あいてた家のトイレでウンコしていいかとかそんな所だろ。 どっちもどっちだし窃盗みたいにものすごく悪いって程ではないけど、一応ダメ。 見つかって話がこじれたり目に余るような有様だと裁判沙汰にもなるわなw 531 名前：デフォルトの名無しさん mailto:sage [2007/08/02(木) 23:37:16 ] >>529 技術や知識レベルとかプロ意識の問題じゃなかろう 約束やルールを守れないのは子どもだってこと ただまあ524がそこまで言われるようなことかと言うと 「そういうもんなんだから諦めな」で済むような気もする 532 名前：デフォルトの名無しさん mailto:sage [2007/08/03(金) 00:20:16 ] そんなことよりvbaからSQLite使う方法教えろ 533 名前：デフォルトの名無しさん mailto:sage [2007/08/03(金) 04:43:19 ] ググれカス！ 534 名前：デフォルトの名無しさん mailto:sage [2007/08/03(金) 21:25:19 ] vba sqlite odbc でぐぐって判らんかったら諦めれ 535 名前：デフォルトの名無しさん mailto:sage [2007/08/03(金) 21:26:25 ] ブレークポイントでプログラム中断した時、変数にマウスポインタあてると 内容が表示されるのが表示されなくなりました 設定とかいじってないのに何ででしょう？ 536 名前：デフォルトの名無しさん mailto:sage [2007/08/03(金) 22:14:43 ] VBAを記述中にカーソルが勝手に戻ったり、コメントを記入中に勝手に変換確定されるのですが どうすれば回避する事が出来るのでしょうか？ 例えば Sub　｜　←このような時に　Sub｜　←このようにカーソルが戻ってしまうんです。 わーくしー　←このように入力中に勝手に確定されるのです。 よろしくお願いします。 537 名前：デフォルトの名無しさん mailto:sage [2007/08/03(金) 22:29:04 ] スペースが全角だから自動で半角になってるんじゃないか 538 名前：106 mailto:sage [2007/08/04(土) 07:49:36 ] 'Sub　｜ 539 名前：デフォルトの名無しさん mailto:age [2007/08/04(土) 10:42:33 ] 助けてください。２列目以降をソートしたいのですが、 Range("A1").Sort _ Key1:=Columns("B") _ , Order1:=xlAscending _ , Header:=xlGuess _ , Orientation:=xlTopToBottom だと、 実行時エラー'1004' RangeクラスのAutoFilterメゾットが失敗しました｡ Range("A1:L100").Sort _ Key1:=Columns("B") _ , Order1:=xlAscending _ , Header:=xlGuess _ , Orientation:=xlTopToBottom だと、 エラーはでませんが、まったくソートがされません。 F8を叩くと、セルはA1を指しています。 同じファイルをマクロで実行したソースを貼っても駄目でした…。 よろしくお願いします。 540 名前：539 mailto:age [2007/08/04(土) 10:45:32 ] ↑すいません。 ○RangeクラスのSortメゾットが失敗しました｡ ×RangeクラスのAutoFilterメゾットが失敗しました｡ です。 541 名前：デフォルトの名無しさん [2007/08/04(土) 15:47:25 ] 決められた範囲内(セル内)のデータをcsvファイル形式でセーブしたいのですが… どんなプログラムになるでしょうか？ 542 名前：デフォルトの名無しさん mailto:sage [2007/08/04(土) 16:10:48 ] >>542 マクロ記録でSaveAs...してみれば判ると思う。 543 名前：542 mailto:sage [2007/08/04(土) 16:11:49 ] >542は>>541ね。 544 名前：536 mailto:sage [2007/08/04(土) 19:19:49 ] 最初にOption Explicitを入れたので、原因はそれっぽいのかな。 まだ、検証してませんが 545 名前：デフォルトの名無しさん mailto:sage [2007/08/04(土) 19:51:05 ] >Option Explicitを入れたので、原因はそれっぽいのかな。 Option Explicitは常に入れているが、そんな話聞いた事が無い。 546 名前：デフォルトの名無しさん [2007/08/04(土) 23:56:25 ] Sheet1 □ りんご □ みかん □ いちご □ ぶどう Sheet2 ┌─────┐ │りんご　　　 │ │みかん　　　│ └─────┘ 図のようにシート1にあらかじめ入力されているデータを選択し シート2にあらかじめ作成しておいた表の特定のセルに自動転記され 表が完成する。　という動作を行いいたいのですが まずシート1でチェックボックスで選ばれた項目だけを 表に反映させるというのがわからないです。。 547 名前：デフォルトの名無しさん [2007/08/05(日) 00:43:42 ] くそ天皇　くそ天皇　くそ天皇　くそ天皇 いい加減死ねっつってんだろ屑ニートくそ天皇が 相変わらず病的な粘着っぷりだな屑ニートくそ天皇が 毎日毎日毎日粘着出来て良いでちゅねくそ天皇 くそ天皇さっさと死にやがれゴミが 東京に在住している精神病珍米糞ニートくそ天皇君の末路 さっさと精神病院逝くか首吊って逝くか選べや糞天皇が 早く死ねよ糞ニート天皇が 粘着精神病屑ニート天皇君は自らニートくそ天皇であると公言しました さっさと死ねやくそ天皇が 早く死ねっつってんだろ屑ニートくそ天皇が お前みたいなゴミクズ天皇は息してるだけで空気が汚れるからさっさと死ねや とっと死に晒せや糞ニート天皇が 548 名前：デフォルトの名無しさん mailto:sage [2007/08/05(日) 01:09:41 ] >>546 Sheet1.CheckBox1でプロパティ値にアクセスできるし changeイベントもあるからお好きなように 549 名前：デフォルトの名無しさん mailto:sage [2007/08/05(日) 16:42:45 ] タスクみたいなタイマーで2時間に1回プログラムを実行させるにはどーすればいいの？ 550 名前：デフォルトの名無しさん mailto:sage [2007/08/05(日) 20:56:56 ] タスクを使えばいいんじゃね? 551 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 03:44:01 ] OSはVistaです。 エクセルで完成させた表を印刷しようとするとエラーになります。 通常のインターネットなどのページを印刷するのは可能なのですがエクセル・ワードだけはエラーがでてしまいます。 パソコンでプリンターの状態を見たら「アイドル」になったままで何をしても変わりません。 だれか助けてください。 552 名前：551 mailto:sage [2007/08/06(月) 03:45:26 ] ｽﾏｿ。 板違いだった。 総合相談所スレにいってきます。 553 名前：デフォルトの名無しさん [2007/08/06(月) 15:13:05 ] お世話になります。 accessからodbcを利用してプロシージャを実行させようとしているのですがエラーになって実行できません。 --ソースの一部---------------------------------- 　Dim tmp_qd As QueryDef 　SQL = "exec プロシージャ_hoge" 　tmp_qd.SQL = SQL 　Set tmp_rs = tmp_qd.OpenRecordset() ------------------------------------ vbは良く分からない（初めて３日くらいです）のでこれでソースが足りるか分かりませんが、 上記の「tmp_qd.OpenRecordset()」でエラーが発生しています。 内容は 　「　ODBC--呼び出しは失敗しました。　」 とダイアログに表示されます。 エラーの原因がなんだかわかりません。 お手数ですが、お願いいたします。 554 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 15:28:04 ] 動いたら奇跡 555 名前：デフォルトの名無しさん [2007/08/06(月) 15:53:57 ] >>554 他のコードです。 Dim db As Database Dim qd As QueryDef Dim rs As Recordset Set db = CurrentDb() qd.Connect = glcnst_ODBCConnect qd.ReturnsRecords = True qd.ODBCTimeout = 0 SQL = "exec pro_hoge" qd.SQL = SQL Set rs = qd.OpenRecordset() 何か文法等間違っている箇所があるのでしょうか？ お願いします。 556 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 17:39:57 ] currentdbはaccessでしか使えないし sqlが何かわかってないし どこが間違ってるかとかいうよりも ちょっとずつしっかり勉強したほうがいいよ 557 名前：デフォルトの名無しさん [2007/08/06(月) 18:58:04 ] >>556 了解しました 558 名前：デフォルトの名無しさん [2007/08/06(月) 19:44:23 ] 初めてカキコします。 スキルもないのに仕事を押し付けられた入社1年目の者です。 日報なのですが、日付を入力したら、その日の売上、仕入を表示できるようなプログラムはあるのでしょうか？ ご教授お願い致します 559 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 19:47:29 ] 作ろうと思えば作れる。 ここは、そういうものを作る側のスレッド、板。 560 名前：558 [2007/08/06(月) 20:37:56 ] >>559 期限はないので勉強して作ってみます。 ありがとうございます 561 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 20:49:01 ] そんなん関数でやればいいじゃない 562 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 21:56:57 ] >>561 >日付を入力したら、その日の売上、仕入を表示できるようなプログラム を関数で出来んのか？ 563 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 22:20:15 ] >>562 横からだけど 関数で引っかかるのはどこだろう？ セルに日付を入れると別のシートにある売り上げと仕入れ VLOOKUPでは駄目なのだろうか？ 564 名前：デフォルトの名無しさん [2007/08/06(月) 22:54:58 ] VBAを使って自分自身にジェクトのロック・アンロックをかけたいのですが 可能ならば教えてください 565 名前：デフォルトの名無しさん [2007/08/06(月) 22:55:40 ] >>564 プロジェクトのロック・アンロックでした 566 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 09:43:03 ] >>564 可能だけど､それを自分で調べられないレベルの奴は プロジェクト自体やモジュールをコードで弄るのはやめた方がいい あと､やるならプロジェクトへのアクセス許可出さないとだめだからね 567 名前：558 [2007/08/07(火) 19:02:10 ] VLOOKUP関数で出来ました！ 検索値を日報の日付の部分にしたら解決しました。 568 名前：デフォルトの名無しさん [2007/08/07(火) 19:12:56 ] 初めて質問させていただきます。 XML文書の妥当性チェックをXMLスキーマで行うため、以下のようにXMLSchemaCacheにaddしようとしたところ、�Aの段階でエラーが発生します。 �@スキーマキャッシュオブジェクトの生成 Dim objScm As New MSXML2.XMLSchemaCache �Aスキーマをキャッシュに追加 objScm.add "urn:bookList","C:\book.xsd" 実行時エラー　スキーマのルート要素に対する定義が無効です。 どのようにすれば＠ITの記事を参考にしてやっているのですが、どのようにして回避できるのかわかりません。環境はExcel2000, MSXML2.6を使用しています。よろしくお願いします。 569 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 20:55:54 ] MSXML2使うなら､これはExcelとは関係ないものなのでスレ違い 570 名前：デフォルトの名無しさん [2007/08/07(火) 21:22:30 ] >>569 小さい野郎だな、静かにしろ 571 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 21:47:36 ] 何でも斜に構えて､規律なんて糞食らえ､俺は大きな人間さ というスタンスで居るのがカッコイイと思ってる年頃ってあるよねw 572 名前：デフォルトの名無しさん [2007/08/07(火) 22:00:20 ] ゆとりはもう一度文章を読み返してから書き込もうぜ 573 名前：568 [2007/08/07(火) 22:01:44 ] >>569 XML総合と迷ったのですが、Excelマクロを用いてのXML操作ということで、ここはひとつお目こぼしを。 >>570 わたしのほうもスレ違いと言われて当たらずとも遠からずかもしれません。原因の一端は確実にわたしにありますので、あまりお責めにならないよう。 >>571 そういう時期は確かにありました。実際にカッコイイことはないと思うのですが、根拠レスに自分で自分をカッコイイと思える平和な時期だったのだと思います。 574 名前：デフォルトの名無しさん [2007/08/07(火) 22:18:13 ] >>566 そー言わずになんかヒントちょうだい 575 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 22:25:08 ] >>573 だまってろカスブタ 576 名前：デフォルトの名無しさん [2007/08/07(火) 23:25:53 ] Dim a, b dim r as range a = Split(Replace(r.Value, "＠", " "), " ") b = Split(Replace(r.Value, "a(0)", "*"), "*") bはaで分割した最初の文字列を＊に変換、＊で分割といった感じにしたいのですが、 素人でよく分りません。よろしくお願いします。 577 名前：デフォルトの名無しさん [2007/08/07(火) 23:30:25 ] "a(0)"　-＞　a(0) じゃだめか？

---

---

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

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