Excel VBA 質問スレ Part14
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2010/01/06(水) 12:34:5801 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
0524デフォルトの名無しさん
2010/03/09(火) 22:44:290525デフォルトの名無しさん
2010/03/09(火) 22:45:45頭のほうの if に不等号が入ってた
思い込みがあると目が見てても脳が見てないようだ
0526デフォルトの名無しさん
2010/03/10(水) 00:17:380527デフォルトの名無しさん
2010/03/10(水) 00:37:200528デフォルトの名無しさん
2010/03/10(水) 06:46:48タイプミスではありません
見のがしです
すいません、正確に言っておきたいもので(まげられないおんな風)
0529デフォルトの名無しさん
2010/03/10(水) 07:34:21そんな僕でもがんばればVBAは習得できるでしょうか?
0530デフォルトの名無しさん
2010/03/10(水) 10:13:26あとはセンスしだい
0531デフォルトの名無しさん
2010/03/10(水) 11:19:08超入門の本を読んでいるのですが、読み終わったらもう少し専門書を購入し読みながら、
他の人の書いたプログラムを解読しつつ勉強しようと思うのですが、
このやり方でいいのでしょうか?
0532デフォルトの名無しさん
2010/03/10(水) 11:49:53プログラム言語もそれと似たようなもんですよ
書籍のサンプル等をガシガシ打ち込んでけば、身についていきます
コピペではあんまり身につきません、コピペが早くなるだけです
手打ちでがんばってください
人の書いたプログラムの解析は自分で作るよりも大変ですから、
そこから入るのは無理があるように思います
0533デフォルトの名無しさん
2010/03/10(水) 18:49:45そういうやり方&他人のコード解読法で一回挫折したので、その後検定取りの為の勉強したな。(VBAエキスパートスタンダード)
アレは基本的に誰でも受かるように出来てるし、体系だって勉強出来るシステムになってるので基本は身に付くよ。
0534デフォルトの名無しさん
2010/03/12(金) 05:27:46可能でしょうか。
コピーする内容にセル結合や罫線が含まれています。
どうかご教授下さい。
0535デフォルトの名無しさん
2010/03/12(金) 07:59:090536デフォルトの名無しさん
2010/03/12(金) 12:00:19まず普通にコピペしたあと、同じ場所にもう一度形式を選択して貼り付け→列幅
0537デフォルトの名無しさん
2010/03/12(金) 20:03:47があるとき、C3、C4セルにA列の2つの文字列を比較して違う部分を赤色にしたい。文字列の長さは同じとする。
で、次のように作ったんだけど、最後しか赤くならない。なんで?
Sub 文字列比較()
' 文字列比較 Macro
' マクロ記録日 : 2010/3/12 ユーザー名 : xp
Dim str1 As String
Dim str2 As String
Dim buf1 As String
Dim buf2 As String
str1 = Range("B3")
str2 = Range("B4")
For i = 1 To Len(str1)
buf1 = Mid(str1, i, 1)
buf2 = Mid(str2, i, 1)
If StrComp(buf1, buf2, vbTextCompare) = 0 Then
Range("c3").Value = Range("c3").Value & buf1
Range("c4").Value = Range("c4").Value & buf2
Else
Range("c3").Value = Range("c3").Value & buf1
Range("c4").Value = Range("c4").Value & buf2
Range("c3").Characters(i, 1).Font.ColorIndex = 3
Range("c4").Characters(i, 1).Font.ColorIndex = 3
End If
Next
End Sub
0538デフォルトの名無しさん
2010/03/12(金) 20:32:35For
If xxx then
@の処理
Else
Aの処理
End If
Bの処理
Next
xxxの場合、@の処理をした場合には、Bの処理をせずに
次のfor文へ行きたいのですが、elseの中になにを書けばいいでしょうか?
0539デフォルトの名無しさん
2010/03/12(金) 20:42:58マクロの記録でやってそうだからわかりそうなもんだけど、
Range("c3").Characters(3, 1).Font.ColorIndex = 3 '花
Range("c3").Characters(4 1).Font.ColorIndex = 3 '子
Range("c3").Characters(7, 1).Font.ColorIndex = 3 'わ
は続けてやらないとダメだと思う。
j = 0
For i = 1 To Len(str1)
If StrComp(Mid(str1, i, 1), Mid(str2, i, 1)) <> 0 Then
j = j + 1
ReDim Preserve s(1 To j)
s(j) = i
End If
Next
こんな感じで位置を先に取得してみては?
0540デフォルトの名無しさん
2010/03/12(金) 20:46:19>>538
Aの処理の次にBを書いちゃダメなの?
For
If xxx then
@の処理
Else
Aの処理
Bの処理
End If
Next
それか、エスパーぎみに答えるとSelect caseを使うとか??
0541デフォルトの名無しさん
2010/03/12(金) 20:54:58これの意味を勘違いしているような
Range("c3").Value = Range("c3").Value & buf1
セルc3の文字列を取出してbuf1の内容と文字列結合 → セルc3に上書き
この処理をすると これ以前にあった色指定が無効となる
つー事で
>>537を修正すると
Sub 文字列比較()
Dim str1 As String
Dim str2 As String
Dim buf1 As String
Dim buf2 As String
str1 = Range("B3")
str2 = Range("B4")
Range("c3").Value = str1
Range("c4").Value = str2
For i = 1 To Len(str1)
buf1 = Mid(str1, i, 1)
buf2 = Mid(str2, i, 1)
If StrComp(buf1, buf2, vbTextCompare) <> 0 Then
Range("c3").Characters(i, 1).Font.ColorIndex = 3
Range("c4").Characters(i, 1).Font.ColorIndex = 3
End If
Next
End Sub
0543デフォルトの名無しさん
2010/03/12(金) 21:25:28If xxx then
@の処理
Else
Aの処理
Bの処理
End If
Next
0544デフォルトの名無しさん
2010/03/13(土) 05:44:13for x=1 to 100
if xxx _
then
@の処理
else
Aの処理
end if
Bの処理
Next
次のfor分の処理
こう書くと Bの処理をコメントアウトすればいいんじゃねということがわかるけど
Aの処理のあと”だけ”にBの処理をしたい、と言うこと?それとも
真ならば他の人のいうとおりだけど
Bの処理はAの処理の前にしたいのか、後にしたいのかが不明確ですよ
Bの処理がAの処理と独立ならば順不同だけど
0545デフォルトの名無しさん
2010/03/13(土) 06:06:190546デフォルトの名無しさん
2010/03/13(土) 11:50:59データの込みこみを待ってから次の工程へ行くようにするにはどうすればよいですか?
0547デフォルトの名無しさん
2010/03/13(土) 15:10:25Do While IEobject.Busy = True And IEobject.ReadyState <> 4
0548デフォルトの名無しさん
2010/03/13(土) 17:47:470549546
2010/03/13(土) 18:59:55WebクエリとIEObjectの関係が分からないので、
もう少し調べます
0550デフォルトの名無しさん
2010/03/13(土) 20:40:490から9までの全角数字を半角数字に変換したいのですが
上記を10回書くよりも
これをfor文で回したいのですが
全角でというのか実現できません
教えてください
0551デフォルトの名無しさん
2010/03/13(土) 21:28:58StrConv
0552デフォルトの名無しさん
2010/03/13(土) 22:07:45以下のような数字の置き換えをしたいのですがどのようにすればいいでしょうか?
<a name="1"> → <a href="hoge">
<a name="2"> → <a href="hoge">
<a name="3"> → <a href="hoge">
〜
<a name="9999"> → <a href="hoge">
0553デフォルトの名無しさん
2010/03/13(土) 22:21:59全角文字をループで扱うのはけっこう難しい。
文字コードを数値として扱う手もあるが、可読性が悪くなる。
プログラムの見栄えをすっきりさせたいなら、
配列に入れるか、置換のための関数を作るという手がある。
aryWhat = Array("0", "1", "2", ……
0554デフォルトの名無しさん
2010/03/13(土) 22:30:04そういう場合は正規表現を使います。桁数の決まっていない数字は[0-9]+と書きます。
<a name=""[0-9]+"">
とすれば、これ1行で1から9999までのすべてが検索の対象になるので、これをhogeに置換します。
0555デフォルトの名無しさん
2010/03/13(土) 22:33:35ヒント
Sub d()
For i = 0 To 9
Debug.Print i, StrConv(i, vbWide)
Next
End Sub
0556デフォルトの名無しさん
2010/03/13(土) 23:34:43ありがとうございます
すごく助かりました
0557デフォルトの名無しさん
2010/03/14(日) 11:41:57どうしたらいいでしょうか?
0558557
2010/03/14(日) 12:23:520559デフォルトの名無しさん
2010/03/14(日) 16:11:541 りんご 100 3 300
・・・
という連続したデータを
NO 1 ・・・
品名 りんご
産地
数量 3 ・・・・
というふうに転記させる方法を教えてください。
転記先のフィールドは、元のフィールド名のものがない場合もあり、
逆に元のフィールドに無いものが転記先にあったりします。
また、転記元や転記先のフィールドの順番は、入れ替わる場合があります。
うまいやり方がありましたら教えてください。
0560デフォルトの名無しさん
2010/03/14(日) 17:34:39どうかな。
1行目に作業用の空白行を追加する。
転記元の左端から1セルずつ値を読み、右に移動するループ(セルが空白になるまで)
転記先の上端から1セルずつ値を読み、下に移動するループ
if転記元の値と転記先の値が同じならば
作業用の行に転記先のセル位置を記入
(ここまでで転記先のセル位置を取得)
A1 A2 A4
NO 品名 価格 数量 金額
1 りんご 100 3 300
あとは転記元のデータを1行ずつ処理。
0561デフォルトの名無しさん
2010/03/14(日) 17:39:05新しいほうのデータの1レコード分の配列を用意する
古いほうのデーターから該当する配列の位置に読み込む
新しいデータへ配列から書き出す
以後レコード分繰り返し
0562デフォルトの名無しさん
2010/03/14(日) 18:22:140563デフォルトの名無しさん
2010/03/14(日) 18:48:010564480
2010/03/14(日) 22:45:100565デフォルトの名無しさん
2010/03/15(月) 14:15:40Workbooks.Add
で新規にワークブックを作成する際に
オプション→数式で自動になるように作成することってできませんか?
今の状態は手動になっています。
0566565
2010/03/15(月) 18:09:02元のプログラムが入っているブックのオプションが手動になっていたので自動に変えたら
新しくできたブックも自動になってました。
なんか、自分自身をコピーして作ってるみたいな?(よく判りませんが w
0567デフォルトの名無しさん
2010/03/16(火) 11:39:35Sub Input_Date(ByVal iDay As String)
ActiveCell.Value = CStr(iYear) _
& "/" & CStr(SpinButton1.Value) & "/" + iDay
ActiveCell.NumberFormatLocal = ComboBox1.Value
End Sub
いまのままだと何処のセルにも入力するようになっています。
指定したセルにのみ入力するよう変更したいのですが、どこを直せば良いでしょうか?
0568デフォルトの名無しさん
2010/03/16(火) 12:59:16ActiveCell
0569デフォルトの名無しさん
2010/03/16(火) 16:40:50例えばBook/Formのロード時のイベントプロシージャで、
btn_test_1
btn_test_2
…
btn_test_10
…って感じのボタン10個について、forで回してそれぞれのClickイベントに同一の処理を上書きさせる、とか。
それともクラスモジュール作って〜な やり方しか無いのだろうか?
わかり辛い書き方でごめん。
0570デフォルトの名無しさん
2010/03/16(火) 17:54:28株のシストレの計算をやらせるのに、ブック2枚を頻繁に行ったり来たりさせるようなモジュールはやはり相当遅くなるのでしょうか?
A:計算する元の四本値データだけ入ったブック。(シートが35枚あって、それだけで既に80MBのサイズ)
B:Aから計算結果だけを出力させるブック。
一枚に詰め込むべきか、複数枚に分けて管理すべきか・・・
0571デフォルトの名無しさん
2010/03/16(火) 18:11:19単にデータを読み書きするだけなら大して遅くはならない。
いちいちSelectとかActivateとかやっちゃうと遅くなるんで、そうしないように注意してプログラムを作ればいい。
あとは、オブジェクト型変数とかWith句をできるだけ活用すること。
計算中は余分なイベントを止めるのもそこそこ効果がある。
0572デフォルトの名無しさん
2010/03/16(火) 18:14:14質問の1行目だけ見ると答えはNO。
だけどたぶん、別の方法でできることをわかってないだけの気がする。
0573デフォルトの名無しさん
2010/03/16(火) 18:38:49やりたい事
・業者orヤフー等からのレート取得
・発注機能
こんな感じです
0574デフォルトの名無しさん
2010/03/16(火) 18:42:340575デフォルトの名無しさん
2010/03/16(火) 18:46:01もしくはどなたかに作成していただきたいです
MT4だと業者に対応していないので・・
0576デフォルトの名無しさん
2010/03/16(火) 19:00:54んで、誰がただでやるわけww?
0577デフォルトの名無しさん
2010/03/16(火) 20:13:48株価データの保存はDBに任せて、Excelは計算に専念させた方がスッキリすると思うけどね
0578デフォルトの名無しさん
2010/03/16(火) 20:17:59というマクロを作ったのですが、Cells(1,1)の文字数が多すぎると
#VALUE!
というエラーが出てしまいます。
Cells(1, 1)の値を他のセルにコピーするにはどうすればいいのでしょうか。
0579デフォルトの名無しさん
2010/03/16(火) 20:27:13そしたら見積もり出すから
0580デフォルトの名無しさん
2010/03/16(火) 20:28:36そのエラーは文字列の長さとは直接は関係ありません。
まずB列の幅を広げて、セルB1の書式を確認してください。
0581デフォルトの名無しさん
2010/03/16(火) 20:58:02当方の環境下では
Cells(1, 2) = Cells(1, 1)
だと 半角256文字以上で#VALUE! になるね
Cells(1, 2).Value = Cells(1, 1).Value
だと大丈夫みたい なぜかしらんけど
つか.Valueを付けるのが本来の使い方なんだけどね
0582デフォルトの名無しさん
2010/03/16(火) 21:29:59ADOつかてSQL書けよ
0583デフォルトの名無しさん
2010/03/16(火) 22:30:23XP、2003だけど下記コードでエラー出ない。
なんでだろ?
Sub test()
Cells(1, 1) = String(257, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub
↑どっかおかしい?
0584デフォルトの名無しさん
2010/03/17(水) 01:39:38これでやったら912文字のところでエラーになった
Sub test()
For r = 1 To 1000
Cells(r, 1) = String(r, "あ")
Cells(r, 2) = Cells(r, 1)
Next
End Sub
0585デフォルトの名無しさん
2010/03/17(水) 01:51:1750万くらい出す気あるなら話聞いても良いよ。
0586デフォルトの名無しさん
2010/03/17(水) 02:10:47Sub celltest()
Cells(1, 1) = String(910, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub
910文字まではOKってことだな。
>>578と>>581はどういう現象なんだろ?バージョンの問題かな?
0587デフォルトの名無しさん
2010/03/17(水) 03:01:12ていうか、みんなOSとExcelのバージョンぐらい書こうよ。
うちはXPと2003。
ちなみにVBAを使わずにセルに直接入力した場合は1セル32767文字まで入る。
ttp://office.microsoft.com/ja-jp/excel/HP051992911041.aspx
0588デフォルトの名無しさん
2010/03/17(水) 03:15:21ん?
>>584だと911行目でエラーが発生してるから
911文字はエラー、910文字まではOKってことじゃないの?
OSとバージョンが同じだから、やっぱりバージョンの問題なんだろうな。
0589デフォルトの名無しさん
2010/03/17(水) 03:22:490590デフォルトの名無しさん
2010/03/17(水) 12:25:45>>578と>>581の状況が再現できないと回答もできないし、
自分が同じトラブルに遭う可能性だってあるわけだから解決できないと気持ちが悪い。
0591デフォルトの名無しさん
2010/03/17(水) 12:47:26だんだん話しについていけなくなっちゃったんだろうなw
0592デフォルトの名無しさん
2010/03/17(水) 14:51:070593デフォルトの名無しさん
2010/03/17(水) 16:29:570594デフォルトの名無しさん
2010/03/17(水) 17:26:310595デフォルトの名無しさん
2010/03/17(水) 17:31:37>>581によれば、Value付ければいいんじゃないの?
0596デフォルトの名無しさん
2010/03/17(水) 17:47:44Cells(1, 2) = Cells(1, 1).Valueにすればいい。
Cells(1, 2) = Cells(1, 1)と何が違うのかは知らん。
0597デフォルトの名無しさん
2010/03/17(水) 17:53:15気持ちが悪いんじゃないの?
0598デフォルトの名無しさん
2010/03/17(水) 18:11:26セルに直接入力せずに三角形みたいなのをクリック(セルをクリックすると現れる三角形)すると
あらかじめ設定してた項目を取り出せるあの機能はなんて名前でしったけ?
またその設定はどこでやればいいですか?
お願いします。vista使いです
0599デフォルトの名無しさん
2010/03/17(水) 18:16:36ひょっとして、これのことか?
Excel講座 > セルをコンボボックスにする
http://www.serpress.co.jp/excel/no004.html
0600デフォルトの名無しさん
2010/03/17(水) 18:35:25どうして>>581は256文字でエラーになるの?
もうちょっと再現の条件とか手順をkwsk
0601デフォルトの名無しさん
2010/03/17(水) 18:45:27そうそうそれそれ
どうもすんません
0602デフォルトの名無しさん
2010/03/17(水) 19:41:37セルにコンボボックスを仕込むより入力フォームを作って
ボタンぼんでシートに値がコピーされるように作った方がいいと思うが。
0603デフォルトの名無しさん
2010/03/17(水) 20:40:450604デフォルトの名無しさん
2010/03/17(水) 22:04:36ブックを新たに作成するときにシートの枚数を3枚とか指定することは出来ないのでしょうか?
0605デフォルトの名無しさん
2010/03/17(水) 22:19:570606デフォルトの名無しさん
2010/03/17(水) 22:20:48Application.SheetsInNewWorkbook = 3
こういうこと?
0607デフォルトの名無しさん
2010/03/17(水) 22:23:332003だと
ツール→オプション→全般→新しいブックのシート数
で設定できる。2007はわからん。
0608デフォルトの名無しさん
2010/03/17(水) 22:28:37それです。ありがとう
テンプレートは?状態ですけどw
0609デフォルトの名無しさん
2010/03/17(水) 22:30:49とりあえずググれよ。(もう見てないだろうが・・・)
0610デフォルトの名無しさん
2010/03/18(木) 06:32:14どうしてExcelのバージョンすら明記しないのか不思議。馬鹿?
0611デフォルトの名無しさん
2010/03/18(木) 13:18:25話の流れからすると910文字までいけるのは、XPで2003だって二人が書いてるぞ。
バージョン明記してないのは質問者と>>581の解答者だ。
それはそうと、これだと10000行までいけるなw
Sub test()
For r = 1 To 10000
Cells(r, 1).Value = String(r, "あ")
Cells(r, 2).Value = Cells(r, 1).Value
Next
End Sub
0612611
2010/03/18(木) 13:44:40ちなみに、Win7の2007でも検証してみた。
・Valueあり→10000行までいけた
・Valueなし→8203行目でエラー
という結果。2007だとValueなしでもこんなにいけるんだなw
ってことは、質問者のバージョンは2002以前とエスパーしてみる。
それにしても、2007のVBEどっから起動するのかわからなくてビビったw
0613デフォルトの名無しさん
2010/03/18(木) 15:21:35>>600の「うち」の環境を書けと言ってるんだ、馬鹿。
じゃなければ、第三者が全体を把握できないだろ。
0614デフォルトの名無しさん
2010/03/18(木) 15:41:08Value付ければいいって結論が出てるのに、いつまで何やってんの?
0615デフォルトの名無しさん
2010/03/18(木) 16:06:15>>600は、910文字超えないとエラーにならないって書いてあるから
流れから2003だってわかると思うが?
流れを読まなくてもわかるように、レス内に明記するのがネチケット(笑)ということなら、
まぁ、そういうことなんだろうw
>>614
Valueは単純に“省略可能なもの”と認識してたんだが、
今回のケースで言うと、場合によっては省略してはいけないってことか?
すまん、素人にもわかるように説明してくれ。
0616デフォルトの名無しさん
2010/03/18(木) 16:13:20とことんアホだな。
仮にExcel 2003が911文字目からエラーになるということだとしても、
911文字からエラーになるからといってそれがExcel 2003とは限らないだろ。
高卒文系なのか?
何かを明らかにしたくてその話題に参加し、なおかつ相手に再現の手順を求めるのなら、
まず自分の情報を出せっつーこった。
> すまん、素人にもわかるように説明してくれ。
知るかアホ。
このスレは素人の好奇心を満足させるスレじゃねーよ。
0617デフォルトの名無しさん
2010/03/18(木) 16:19:38ド素人はこれだから困る。
セルに設定出来る最大文字数はヘルプにちゃんと書かれてる。
ヘルプ見ろ。
0618デフォルトの名無しさん
2010/03/18(木) 16:24:40http://yutori.2ch.net/test/read.cgi/morningcoffee/1268888151/
0619デフォルトの名無しさん
2010/03/18(木) 16:32:090620デフォルトの名無しさん
2010/03/18(木) 16:32:10論点がずれてますよ。
人のことを馬鹿とかアホとか高卒文系とかド素人とか言ってるけど、
話の内容を理解できていないのは、あなたの方ですね。
何かを明らかにしたくないなら、あなたはこの話題に参加しなくてもいいと思います。
0621デフォルトの名無しさん
2010/03/18(木) 16:37:10これになんかコメントしてみろ、アホ。
> 仮にExcel 2003が911文字目からエラーになるということだとしても、
> 911文字からエラーになるからといってそれがExcel 2003とは限らないだろ。
> 高卒文系なのか?
0622デフォルトの名無しさん
2010/03/18(木) 16:38:03ソース見てボタンの名前調べればいいんじゃないの?
そんな単純なことじゃなくて?
0623デフォルトの名無しさん
2010/03/18(木) 16:38:50・Excelの仕様上、何文字まで設定出来るかはヘルプに書かれている
これ以上、何を知りたいの?
■ このスレッドは過去ログ倉庫に格納されています