ExcelのVBAに関する質問スレです
>1,2 乙
おっつ
5 ：
デフォルトの名無しさん ：2011/05/19(木) 16:40:20.76
Cells(1+i, 1) = "=COUNT(B1:H1)"
Cells(1+i, 1) = "=COUNT(B" &1+i & ":H" & 1+i & ")"
そんなのに応えるなよｗ
8 ：
デフォルトの名無しさん ：2011/05/19(木) 18:39:40.63
vbaのコードをカラー印刷する方法ってある？
9 ：
初心者です ：2011/05/19(木) 20:32:24.73
質問させてください
10 ：
初心者です ：2011/05/19(木) 20:33:40.06
続きです。
11 ：
初心者です ：2011/05/19(木) 20:34:00.92
続きです
end IFの数を数えたことがあるか？
インデントとか適当なんだろうなあ
14 ：
デフォルトの名無しさん ：2011/05/19(木) 20:58:45.19
>>8 実は俺もコードをカラー印刷する方法を知りたい。
誰か教えて。
まず服を脱ぎます
ソースをVisualStudioにコピペして印刷
>>9 Ifが3つあるのにEnd Ifが1つしかない
変数gyouとretuの内容が下のSubに伝わっていない
18 ：
8=14 実は同一人物ですｗ ：2011/05/20(金) 09:59:30.88
>>16 うまくいきました。ありがとうございます。
16さんもやってますか？
しかし、XPS Document Writerは
いちいち上にパス名が表示されてうざいのですが、
これを全く表示しない方法ってある？
16さんのような使い手ならご存知かと。。。
【問題】以下は、コマンドボタンを押した時に選択されているセルの中央に横線を引くプロシージャである。①、②にあてはまるコードは何か書け。
①set～
なぁ、いつからここはVBAのドリルを解くスレになったんだ？なんて突っ込まないから、
ユーザーフォームのコマンドボタンの形を四角ではなく、矢印や丸などに変えたいのですが、どなたかやり方を教えて頂けないでしょうか？
>>24 Excelの機能でボタンの形を変えるのは無理
丸とか矢印の画像をボタンかイメージか何かのコントロールに貼り付ける
ある特定範囲内の列の文字をSplit関数で文字分割したいんだが
セルの文字数が０以上判定
>>29 ありがとう
ちなみに内部に"/"の判定だけでよくて、前後の文字は関係なかったです
31 ：
修行の身 ：2011/05/21(土) 20:31:24.67
誰かマクロを教えてくださいm(_ _)m
とりあえず
>>2 のテンプレ★５を読んでこい
やってみたなら
できたとこまででいいからコード晒しとけ
めっちゃ簡単だから､スレルール違反だろうと教えたがり君が喜々として語り出すかもw
34 ：
デフォルトの名無しさん ：2011/05/21(土) 21:20:34.80
英語のWeb辞書ページのHTMLからソースを抜き出して
>>36 ありがとうございます。できました。
発音記号に気づく前に改行が文字化けすることに気づいて、
削除したりいろいろしてましたが無駄でしたorz
今日はじめてVBA（というか組み込みC以外）のプログラムを触りましたが、
やれることも手段も多すぎて疲れました…面白いですがｗ
MSに文句言っとけ
>>34 ★1 OSとExcelのバージョンくらい書け
★2 VBA使わないExcelの質問禁止
★3 VBAでExcel本体を操作する用途以外はスレ違い
★4 同上
★5 丸投げお断り
★6 わからなければマクロの記録試せ
【問題】以下は、コマンドボタンを押した時に選択されているセルの中央に横線を引くプロシージャである。【①】【②】にあてはまるコードは何か書け。
①set～
～ とは何だよ？正しく書きましょう
①set 以下略
略したとこがどうしてもわかりません。教えてください。ずっとわかりません
つーかさ､この問題文だと
どうやったら早くプログラム組めるようになる？
47 ：
デフォルトの名無しさん ：2011/05/22(日) 04:03:36.57
以下はセルに円を描画するマクロ ？？？に入る式を答えよ
ヘボコード読むより､1から作った方が早くて速いんだが
49 ：
デフォルトの名無しさん ：2011/05/22(日) 09:03:41.76
エクセルのVBAでマクロを作ったのですが、2003で作って動作確認して、
まずはうp
51 ：
デフォルトの名無しさん ：2011/05/22(日) 09:15:54.87
問題がおきるブック
問3 一からコード書いてセルの塗りつぶしで楕円を表現しなさい
54 ：
デフォルトの名無しさん ：2011/05/22(日) 09:42:19.66
>>52 えーごめんなさい。会社のデータもちょっとかんでるのでうｐできないです。
55 ：
デフォルトの名無しさん ：2011/05/22(日) 12:30:57.35
>>47 問題がおかしいけど、たぶん出題者の意図としては
g = Abs(c ^ 2 + (b + e) ^ 2 - a)
>>53 そもそも提示されたソースだけでは
>>47 が楕円になるし、いくらなんでも26行は長杉
>>56 > g = Abs(c ^ 2 + (b + e) ^ 2 - a)
その解答は､既に
>>48 が書いてるじゃん
f = Abs(b ^ 2 + (c + d) ^ 2 - a)
g = Abs(c ^ 2 + (b + e) ^ 2 - a)
> bとc入れ替えてdをeに
>>46 お前は早く作ると不正確なコードになるのか？
だとしたら意味ねー。
>>58 残念ながらちょっと複雑なコードになってくると
雑になるんだな。
やっぱ正確さは前提だよな。
じっくりすることにするわ
>>59 動作の精査が取れた使い回しの効く部分は、
部品化しておいて、機能やカテゴリごとに標準モジュールやクラスに纏めておくと、
その部分は速く正確に作れるよ。
特に同じ様なものを複数作る時はフォーマットになるスケルトンを先に作ってからやると最終的には速く作れるわさ。
61 ：
16才♀ ：2011/05/23(月) 07:41:28.04
16才♀ですが・・僭越ながら問題出しますっ！！＞＜
ネコマタか……
面白いと思ってるのか？
そこまでしなくてもパソコンの電源OFFでいいじゃん
セルに「さだこ」と入力すると
>>61 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Target.Cells = "さやか") Then
Application.DisplayAlerts = False
Worksheets.Add after:=Worksheets(Worksheets.Count)
For i = 1 To Worksheets.Count - 1
Worksheets(1).Delete
Next
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub
>>68 シェアウェアの期限が切れたら自動的に消滅しますみたいなコードだよな
さらにパスつきで保存するとよい
>>60 おｋ
つまりは今までのコードを見直して整理して
使いまわしできそうなものはガンガン使いまわしていくのが
早道ってことだな
がんばるぜぃ！！
VBAの標準モジュールやクラスモジュールを
モジュール削除しようとしたらエクスポートするか聞いてくるだろ
いやつかわんだろエクスポートとインポート
>>73 VBA10年の彼がエクスポートを知らなかったとは書いてないよ
彼が『知らなかった』のはD&Dでのエクスポート､インポート
普通のエクスポート､インポートは『やったこと無い』だけで知ってはいたよ
>>75 エクスポート/インポートしたことないんなら D&D でできること知らなくても
当たり前だと思うが。
> VB6始め､一般の言語では超基本的なことなのにな
そもそも VBA 以外の言語は大抵わざわざエクスポート/インポートせずに普通
に管理できる。もちろん VB6 も。
>>72 何を持って一般的な言語と定義するか分からないから何とも言えないけど、
VisualStudio系のは標準モジュールやクラスモジュールは作成した時にすでにファイルとして存在するから、
取り込む時には「新しい項目の追加」で「既存の項目」を選択して取り込むので、
インポート、エクスポート機能はむしろVBA特有の機能だと思ったけど。
JAVAとかは知らない。何か言語の問題って言うよりフレームワークの問題って気もするし。
基本的だと言ってるのは独立したファイルとして管理して使い回すことじゃないの？
そこは
>>72 がすっ飛ばして書いているからその通りなのか他の言語でもエクスポートするもんだと思って書いたのかは
伝わらない。
しかしすでに二人エクスポートするもんだと思って書いたと判断した人が出たのは確か。
> VBAの標準モジュールやクラスモジュールを
一人
>>78 その通りです｡
>>79 確かに書き方に不備があったかもしれませんね｡
多くの言語で､逐一エクスポート的な操作をしなくてもファイルとして存在するのは周知の事実で
インポート的な操作手順や機能･項目名などの多少の違いくらい補完してくれるだろうと思って
端折りすぎてしまいました｡
？？？の部分を察して埋めなさい（7点）
Exit Sub
Redim b(d,c)って言いたいんだろうが変数fの宣言も抜けてる
え？正解は
いい加減､ウザいよ
嫌だなみんな
一行とは書いてない
途中でexitで抜ければいいだけ
return false
94 ：
デフォルトの名無しさん ：2011/05/25(水) 00:12:20.44
maxCell = Range("A1").End(xlDown).Row
countaで。
>>94 1行目の式と比較すればベターだけどベストじゃない
最大行数はExcelのバージョンによって違うから、最終行はいちいち求めた方が汎用性が高い
maxCell = Range("A" & Rows.Count).End(xlUp).Row
ただしこれでも完璧じゃない
× maxCell = Range("A" & Rows.Count).End(xlUp).Row
>>96 は俺じゃないが、どっちでも同じだよ。
アホかまったく。
前者はピリオド打った時入力候補が出るメリットがある。
かなり複雑な構成のブックで1億回ぐらい実行することを想定してるんだよ
後、End(xlUp).Rowを使うなら先に最終行に何も入っていない事を確認しないとね。
>>83 は
irekae = WorksheetFunction.Transpose(a):ExitFunctionとでも引っかけたつもりが、
>>85 にTransposeに言及されて黙ってしまったのか？
>>101 それもあるけど、それでもまだ完璧じゃない
完璧じゃない
㋙㋪ﾟ㋬ﾟ㋢ﾞ㋖㋤㋑
オートフィルターでも考慮してるんだろ？
1つもデータがない場合ってのもあるな
もっと簡単にできるけどなあ
>>108 先頭行にはタイトルがあるのが常識だからそれは考えなくていいだろ？
Findメソッドでもできるけど、一般的じゃねーな。
おおかた完璧じゃないって言ってるやつはFindメソッドのこと言ってるんだろうな。
>>112 は先頭行にタイトル書かないのか？
馬鹿じゃね？
112じゃないけど､人が見たり印刷したりするものには一番上にタイトル入れるけど
先頭行の見出しは普通だが、A2からA列最終行までのときA2にデータがあるかどうかのチェックが必要なケースはあるよな。
xlUpの話だろ馬鹿か？
↑意味不明
どうしたの？ボク
120 ：
デフォルトの名無しさん ：2011/05/25(水) 12:15:31.94
122 ：
デフォルトの名無しさん ：2011/05/25(水) 12:23:24.22
もしもしは死ねよ
ヴァカの相手は程々にしないとな。
>>115 はxlUpの話だよなぁ。
㋙㋪ﾟ㋬ﾟ㋢ﾞ㋖㋤㋑
セルに入ってるのがタイトルかデータかなんて自動判別するのは不可能
i=appliaation.rows.count
>>126 そういう話じゃないと思うなぁ。
A2以下にデータがないとき、Range("A65536")End(xlUp).Rowは1になるが
行番号1のA1が空白か空白じゃないかって話だろ？
見出し部分は別に無ければいけないもんじゃ無いし、
データ開始行より上の行をデータ最終行と見なしたりするのは
>>115 に出てるな。
この仕組みが何年たっても「大和の吊るし柿」でへたなりに固まってるやつ見るけどｗ
>>129 ＞最上部に1件データが有ったとしても0件と見なしてみたり、
＞データ開始行より上の行をデータ最終行と見なしたりする。
下は俺もやっとわかったが、上がどうも想像がつかない。
たとえばどういうとき？
～問題～
>>131 1行目からデータ部として使っている場合。
1行目にしかデータがない時、.End(xlUp).Rowで1が取得出来るけど、
全ての行に対してデータがなかった場合も1が取得される。
だからこのままではデータが0件なのか1件なのか見分けが付かない。
て言うか、散々前にそれ言ってる人がいるから今更こんな事言うと「だからそう言ってるじゃん！！」って
心の叫びが聞こえてくる様な気がするよ。
134 ：
131 ：2011/05/26(木) 08:43:26.93
>>133 そういうことなら
「最上部に1件データが有ったとしても0件と見なしてみたり」って言うより
「最上部にデータが無くても1件と見なしてみたり」じゃないの？
これなら俺でも分ったよ。
先頭行にタイトル入れないこともあるって人に聞きたいんだが、たとえばどういうものを作るときそのようになる？
バイナリのダンプリストをバイト単位でセルごとに取り込んだり、列が項目として意味をなさない場合と、
なるほどデータベース的に使わない場合ね。
ワークシートを単なるデータ置き場として使う場合
Excel本来の表計算ソフトとして使う場合はタイトルが必要ってことだな。
>>141 Excelの機能を使うにはほとんどタイトルいるぞ？
むしろExcelの機能を使わない人がタイトルをつけないんだと思う。
>>142 そう言われればそうだけど、ソートとかWorksheetFunctionならタイトル要らないな。
でもソートとかWorksheetFunctionレベルならほとんど自作できるよなぁ。
データ置き場にする人がExcelの何を使いたいのか分らなくなったわ。
タイトルがないと使えないエクセルの機能なんかあったっけ？
>>144 ピボットとかオートフィルターとかフィルタオプションとか統合とかいろいろあるんじゃね？
オートフィルターは別にタイトルいらないんじゃない？
>>143 わざわざDBに接続しなくても、ブックを閉じて開いても値を残せる一番手っ取り早い場所だからな。
ファイルを複数にする必要もないし。
>>146 やってみたらたしかにそうみたいだけど、先頭行を空白にするくらいなら普通タイトルを入れるんじゃない？
>>148 え？
オートフィルター設定する時に項目から設定するかデータから設定するか選べない？
バージョンによって違うのだろうか・・・
>>149 Excel2007にはそういうのはないみたいだな。
もしかしてソートと勘違いしてない？
Excelはピボットを使うための道具なんだからタイトル入れるのはjsk
ここはVBAスレだったか。まぁいいか。
153 ：
デフォルトの名無しさん ：2011/05/26(木) 23:55:15.21
すみません、教えて下さい。
>>153 ブック名とシート名を確認
一番多いのがシート名の間違い
155 ：
デフォルトの名無しさん ：2011/05/27(金) 01:48:06.59
>>154 ご指摘ありがとうございます。
たびたび申し訳ありませんが、
マクロ起動ファイルとは、別のブック内のデータをソートしたいのですが、
どうやっても起動元が並び変わってしまいます。
別ブックをActivateにしても、Withを使ってもうまく動きません・・・
一時間以上悩んでいるのですが、さっぱりです。。
156 ：
155 ：2011/05/27(金) 02:26:02.46
すみません自己解決しました。
～ボーナス問題～
158 ：
デフォルトの名無しさん ：2011/05/27(金) 09:53:19.54
ダイアログメッセージをループして各処理毎に変数の値を表示したいのですがどうすればいいのでしょうか？
159 ：
デフォルトの名無しさん ：2011/05/27(金) 09:58:36.32
同様に、シートも
>>157 IF s1 * s2 * s3 = 120 Then
'3つの出目をかけ合わせて120になるのは、4,5,6の組合せしか無い
>>158 それをそのままコピペして使ってみたが別にエラーにならなかったよ。
何かほかの部分でエラーが出てるのでは？
ちなみに、 MsgBox "mes", のダブルクォーテーションはいらんだろう。
>>159 こっちも別にエラーの起こる要素が無い。
別の理由でエラーが起こってるはずだ。
163 ：
デフォルトの名無しさん ：2011/05/27(金) 10:25:35.35
>>161-162 ごめんなさい、今までmesの部分でエラーが出ていたのですが、もしかしたらExcelのバージョン問題だったかもしれません
家のは95でして（苦笑）
ただ、シート部は出来ませんでした
shi = "月"
str = i & shi
Set ws1 = Worksheets(str)
ではインデックスが有効範囲にありませんと出てしまいます
164 ：
163 ：2011/05/27(金) 10:29:16.50
初心者です
宣言
>>166 俺宛でいいのかな
つまり基礎すら出来てないってことですか？
基礎がどうかは知らんけど、VBAではあんまり見掛けない構文だね
みんな優しいな…
ハッキリ言ってやれよ
おかしいのは
>>165 の知能だと！！
エキスパートのスタンダード終わったんだけど、これからプログラムを作成するにはどういう本がお勧めですか？
エンジニアなんとかとかスキルアップコレクションとかパフォーマンスなんちゃらとか
VBAの絵本
大きな本屋に行って自分で探せ、ヴォケ
>>最初からそう教えてくれればいいのに
>>170 実際にプログラムを作成しはじめれば、いいんじゃないか。
そうすれば、どういう勉強をすればいいか見えてくると思う。
とくに仕事で他の人が使うプログラムを作ると
ユーザーインターフェイスとか
いろいろな柔軟性とか
が大事だとよく分かる。
>>165 × If 70 <= ten And ten >= 79 Then seiseki: i = (2)
× If 60 <= ten And ten >= 69 Then seiseki: i (3)
○ If 70 <= ten And ten <= 79 Then seiseki: i = (2)
○ If 60 <= ten And ten <= 69 Then seiseki: i = (3)
テーブルの、ある行の適当なセルに文字をいれたら
>>177 A1～Z1の色を変えたいなら
条件付き書式
=COUNTA(A1:Z1)>0
をA1～Z1に設定すれば、どこかにデータを入れると書式が反映される
>177
～問題～
>>180 何で引数もランダムで作成する数もNなんだ？
引数意味ねーじゃん。
配列を返さないこともある、だろ。
引数が3なら要素数が3の配列を返すということだろ
おまいらファイト！ｗ
俺は意味は分ったけど
>>180 も「重複なしで」を追加すればもう少し分り易かったかもね。
ようするに配列から重複なしでランダムにN個取り出せって話だな。
検索すれば玉石混淆でそこらへんにいっぱい転がってるけど。
>>190 質問に明記されてないのに、「重複なし」と決めつけるのはいかがなものか
プログラマなら想定して答えるべきだな
193 ：
デフォルトの名無しさん ：2011/05/28(土) 13:32:21.57
一つは
プログラマなら想定とか察してとか通用するからいいが、
>>193 どうせ上から順番に見なければいけない処理ならデータの最終行までループしてやって空白の時だけ処理飛ばせばいいんじゃないの？
>>191 重複なしなら簡単すぎて問題にもならんよ。
SEとプログラマは違うのか？
構築・開発系とかなら、設計・仕様・コードレビューやQAとかするのがSEだろ
Range("A1:AR100")を選択してセルに入っている値が１よりも大きければ
当たり前だ
>>199 For Each c In Range("A1:AR100")
If c > 1 Then c.Interior.ColorIndex = 37
Next
>>200 答える気がないんなら
いちいちつまらん茶々を入れるな
>>202 答える気がないんなら
いちいちつまらん茶々を入れるな
205 ：
デフォルトの名無しさん ：2011/05/28(土) 22:04:29.40
206 ：
デフォルトの名無しさん ：2011/05/28(土) 22:09:05.40
>>205 ベスト？俺はベストなんて常にないと考えて作っているけど。
例えば今回のケースだと、ひょっとしたら配列数式とかを使えば空白を除いた表を
数式で隣に配置出来るかも知れないし、
それを使った方が効率いいかも知れない。そういった調べたり考えたりしてモアベターな方法を使って行くもんだと思ってるし、
どんな方法を使ってもそれよりいい方法がないとは言い切れない。
この方法がベストですなんておこがましい事は今までも言った事がないし、
これからも言うつもりもないよ。
とある編集用のシートを作っています、
>>208 ユーザーフォームで検索ダイアログ作りましょう
そうすれば自由自在です
>>209 返答ありがとうございます。
やはりフォーム作成が一番手っ取り早いですか。。
後出しになってしまいますが、制約があり可能であればフォームを作成せずに行いたいのです。
>>210 やっぱりこう言った場合はAPIでダイアログからコールバックでセンドメッセージだなと
適当な文字の羅列を書いてみるが気にするな。
>>210 最初に画面が多少チカチカしてもいいんなら、
SendKeysで検索ダイアログを必要な回数だけ開いてやるって手がある
ただしこの方法だと項目の追加はできるけど削除はできない
213 ：
問題マン ：2011/05/29(日) 16:09:00.99
～スペシャル問題～
214 ：
デフォルトの名無しさん ：2011/05/29(日) 16:50:18.59
ＪＫの宿題スレときいて
>>213 あのね､問題ってのは
「何を読ませるか」「何を考えさせるか」「どう解かせるか」
ってのを考察出来ない人には作れないものなのよ
君が毎度出してるのは､問題でもなんでもない
そもそも､自分より上手､目上の奴に問題出そうてのが間違いだ
>>215 まったくだ。
>>213 のはいつも面白くない。
見たくもないオナニーを無理矢理見せ付けられてる感じだ。
>>213 VBAの宿題スレでも立てて一人で問題だしてろ
答えないと､「おまえら､解らないから言い訳代わりに叩いてるだけだろ」とか言ってきそうだけど
219 ：
208 ：2011/05/29(日) 21:51:45.68
>>211 sendmessageでそんな使い方もいけるんですね、ちょっと調べてみます。
>>212 後だしばかりになってしまいすみません、
リストは何パターンかあるのでリフレッシュできるのが望ましかったです。
お手数掛けました、ありがとうございます！
220 ：
問題さん ：2011/05/30(月) 02:33:09.84
おまいらパーフェクトな反応ごちそうさまです
悪意はないんで少し弁解させてください・・・＞＜
>>215 >何を読ませるか どういう計算で二次ペジェ曲線を表現するプログラムか
>何を考えさせるか 曲線間を1024等分した時のx,yの最初の増減値
>どう解かせるか すでに分かっているg,hの式の形から
いや別に俺は下手で構わないんだが・・
なんでそんなに上手アピールしてんぢょｗｗぴょｗｗｗ
>>216 １レスで済むようなプロシージャがオナニーに見えるのかい？
>>218 そんなに答えないことに布石打たなくても大丈夫だぜｗｗ
数学知らなくてもプレゼンハムでググればお前でも分かるよ
くだらない問題に上のほうで嬉々として反応してたように見えるが・・
そんなに嫌なら誰か答えたら終わりにするぜ！
ってかこれはいろんな人に知ってほしい
俺は先週これ知った時感動したぜ
>>220 ＞ってかこれはいろんな人に知ってほしい
チェーンメールならぬチェーン書き込み乙
ブログでも立てて独りでやれ
掲示板でやるな
>>220 悪意が無くて弁解も終わったならとっとと消えるべきだな。
ここは質問スレであって出された問題に答えるスレではない。
自分で問題スレ作ってそこでやれば興味のある奴は来てくれるだろう。
もっともそんなオナニー問題出してる様ではすぐに過疎スレになってDat落ちするだろうけどな。
予想通りの反応過ぎてﾜﾛﾀw
頭が悪いん云々以前にいわゆる基地街
お前↑の馬頭には加わってなかったが、お前みたいな馬鹿相手に1回答えたことを反省。
名前見ても知性知能共に低いのが伺える
227 ：
デフォルトの名無しさん ：2011/05/30(月) 10:22:18.68
質問させてください
>>227 ユーザー定義関数
イベント
好きな方を使って下さい
> A1とA2の値が違った場合
はじめてここで質問させていただきます。
233 ：
デフォルトの名無しさん ：2011/05/31(火) 00:49:22.73
.Cells(n, 1) = sh.Cells(i, "A")
234 ：
233 ：2011/05/31(火) 00:54:20.85
誤 ".......AX欄まで続く"
235 ：
問題マン ：2011/05/31(火) 01:02:14.54
時間切れです＞＜
あれ？おまいらあからさまな間違いにつっこまないとかあれ？
>>222 消えてほしい理由がわからんな～
答えて楽しめばいいじゃない＾＾
それとわかる範囲の問題に嬉々として反応してくれる人がいるみたいだぜ～？
あと俺スレ立てできない＞＜
>>223 予想通りレスが予想通りｗｗｗイライラすんなよｗｗ
ただベジェ曲線レベルの段階でこうなったのは実は想定外だったぜ＞＜
>>226 つっこむとこそこかよｗｗ
>>230 遅いぜー 今言っても説得力が・・
～おまいらでもすぐわかるサービス問題～
？？？に入るできるだけ短い式を答えなさい
sub チンチロリン(s1,s2,s3)
if ？？？ then Msgbox "5です（ゾロ目じゃないぞ）"
End sub
>>233 sh.Range("A" & i & ":CQ" & i).Copy (.Cells(n, 1))
>>235 ＞消えてほしい理由がわからんな～
スレチな上にいつも問題が面白くない。
そっちこそVB6スレでもコマンドボックスとか_clicとかわけ分からない事かいて
フルボッコにされて追い出されたからって、
このスレに必死にしがみ付いている理由が分からないんだけども。
238 ：
233 ：2011/05/31(火) 06:59:54.24
〉〉２３６
問題マンコはなんでこんなにみんなから嫌われてるのに自殺しないの？
>>231 ほらよ。
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hParent As Long, ByVal hChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Sub hoge() 'Win7
Dim h As Long, i As Long, com As String
com = "c:\hoge\hogehoge"
Shell "rundll32 shell32.dll,#61"
h = FindWindowEx(0&, 0&, "#32770", "ファイル名を指定して実行")
h = FindWindowEx(h, 0&, "ComboBox", vbNullString)
h = FindWindowEx(h, 0&, "Edit", vbNullString)
For i = 1 To Len(com): SendMessage h, &H286, Asc(Mid$(com, i&, 1&)), 0&: Next
End Sub
でも何でShellとかShellExecuteでやらないの？
241 ：
大門さん ：2011/06/02(木) 00:30:18.23
1～9の4つの数字を四足演算で10にできるかどうか
242 ：
233 ：2011/06/02(木) 00:49:18.50
以下はフォルダ内のデータを転記するためのマクロの一部なのですが、wbには開くためのパスワード"password"が設定されています。
243 ：
問題マン ：2011/06/02(木) 03:21:24.09
おまいらテンション落ちすぎだぜ！
>>237 その人をよく知らないんだがたぶん
引数がランダムになるとか重複なし抽出のほうが速いとか言ってる人じゃね？
>>239 ありがとうございます＾＾
>>242 これはここの人は厳しいから教えてもらえないんじゃね？
答え見た悪意ある人がマクロから虱潰しでパス突破しようとするかも
>>242 Dim fn as String, myPath as String
Dim wb as Workbook
myPath = ThisWorkbook.Path & "\"
fn = Dir(myPath & "*.xls")
Set wb = Workbooks.Open(FileName:=myPath & fn, Password:="password")
245 ：
233 ：2011/06/02(木) 18:30:37.98
２４２
246 ：
デフォルトの名無しさん ：2011/06/02(木) 21:10:25.53
既存の検索機能では1種類の文字列での検索しか出来ない
a or b
課金アイテム購入するニダ
テキストボックスを文字列に格納して二種類に分割しれば良いだけでは
252 ：
問題マン ：2011/06/03(金) 09:10:26.52
うわー
ググったらパスつきマクロの破り方まで簡単に出てきたわ・・
>>249 煽ってる暇あったらスキルの高い回答を書くんだチンカス！
とゆーかつい最近だろ別ブックのパス制御の話
254 ：
246 ：2011/06/03(金) 13:33:56.75
答えてくださった皆さんありがとうございます。
255 ：
忍法帖【Lv=1,xxxP】 ：2011/06/03(金) 20:00:22.46
置換について質問です
>>255 Replacement:=Worksheets("Sheet2").Range("A1").Value
257 ：
ninja ：2011/06/03(金) 22:26:17.24
258 ：
デフォルトの名無しさん ：2011/06/04(土) 10:28:39.89
VBではbeep音の周波数を変えられるそうですが
VBでもWin32API使わないと周波数は変えられないし
260 ：
デフォルトの名無しさん ：2011/06/04(土) 22:26:44.82
セルの数字の最大値を記録していきたしのですが、
Worksheet_Changeで変化があるたびにどっか別のシートに記録しておいたものと
循環参照上等で組んだらこうなったわさ。
>>262 の続き
If IN_KeepValueCell.Count <> 1 Then
hoge = "複数セルは選んで欲しくないべさ"
Exit Function
End If
If Not bFirstFlg Then
vMaxValue = IN_KeepValueCell.Value
bFirstFlg = True
End If
If IN_vValue <> vbNullString Then
If IsNumeric(IN_vValue) And IN_vValue > vMaxValue Then vMaxValue = IN_vValue
Else
vMaxValue = 0
End If
hoge = vMaxValue
End Function
だれか循環参照対応コテ入れして・・・orz
test.xlsと同じ層にある n KB以下のファイルを削除するにはどうしたらいいでしょうか？
>>264 FileLenかFileSystemObjectの.Sizeプロパティでブックのサイズ取得してループで回す
指定のサイズ以下なら削除
「コメントが無いセルにはコメント挿入、ある行には削除」
300行くらいのデータ2列を
>>268 「など」じゃわからんよ
もっと具体的に、何と何をやりたいのか
シートから別のシートにコピーするだけならCopyメソッドの方が簡単だし
配列を介すと値しかコピーされないが
コピー以外のことは考え中です。。
フォーマットの違う他シート2、シート3に
それぞれシート1からコピーしようとしたときに
配列使った方が便利なのかな？と思いました。
300行2列程度なら
>>269 さんのやり方がベストなのでしょうか？
いまいち配列のいきる使い方がわからないです。
失礼
>>271 言ってることがよくわかんない。
何で無理して配列使わなきゃならんかな。
配列の使い方を勉強したくてその過程で出て来た問題なのか、
その問題に当たったから配列使えば解決出来そうと思ったのか、どっちなんだ？
>>271 まあ小学校卒業してから
また質問すればいいんじゃないか？
実際に使うわけじゃないだろ？
暇があるっていっても、
みんなお前よりは忙しいんだからさ
自重しろハゲ
>>268 基本思考はあってる。
でもそれ実装した奴はそんなもん当たり前のレベルで知ってる。
なので好きにしろ。
>>270 それって配列を介してるじゃん。
コピー元範囲.Valueは2次元配列だ。
配列じゃなくて配列変数の話だって文脈でわかれ
そのマクロを第3者が使うとして、、、その第3者にしてみたら要求を満たしていれば、
279 ：
問題マン ：2011/06/07(火) 08:11:30.11
ウン百回もコピーするならいったん配列に格納したほうがいちいち参照しないぶん無駄がないぜ
280 ：
デフォルトの名無しさん ：2011/06/07(火) 08:14:15.84
1,1～9,9のセル範囲の偶数列偶数行にランダムに10個●が配置されています。
>>279 嘘書くんじゃねーよ。
まさしく問題マンだなｗ
コピペだけならペをうん百回繰り返した方が良くね？
問題マンは無駄云々を語るにはまだ早い。
>>281 無駄なコードがないって意味では？
俺なら
配列 = 元範囲
配列を回して書式やデータちぇっく
新範囲=配列
ってするけど
287 ：
デフォルトの名無しさん ：2011/06/07(火) 15:02:14.43
宜しくお願いします。次のマクロを作りました。
>>287 Sub 色によって判別()
Dim 行 As Long
For 行 = 27 To 120
If Cells(行, "DR").Interior.ColorIndex = 47 Then 'これが赤色のとき
Cells(行, "IM").Value = 5
Else
If Cells(行, "DR").Interior.ColorIndex = 44 Then 'これが黄緑色のとき
Cells(行, "IM").Value = 1
Else
Cells(行, "IM").Value = 0
End If
End If
Next 行
End Sub
>>287 いくつも場合分けする時はSelectを使った方がいいよ
Sub 色によって判別()
For 行 = 27 To 120
Select Case Cells(行, "DR").Interior.ColorIndex
Case 47 'これが赤色のとき
Cells(行, "IM").Value = 5
Case 44 'これが黄緑色のとき
Cells(行, "IM").Value = 1
Case Else 'その他
Cells(行, "IM").Value = 0
End Select
Next 行
End Sub
>>287 です。
>>288 >>289 お二人とも本当に有難うございます！
問題解決しました！
わざわざコードまで教えていただき感激です。
]
>>289 そんなやり方があったとは知りませんでした。
重ねて有難うございます！活用します！
まともな質問には優しいお前ら
sub txtbox1_Change （）
295 ：
問題マン ：2011/06/07(火) 22:47:35.04
べろべろばー
>>287 IfでやるならInterior.ColorIndexを何度も参照しないように
いったん変数に入れたほうが無駄がないぜ！
>>293 新しくClass1を挿入
Public WithEvents mytx As MSForms.TextBox
Public Sub init(a)
Set mytx = a
End Sub
Private Sub mytx_Change()
処理
End Sub
グローバルにインスタンス作成
Dim myclass(10) As New Class1
以下を作動させる（名前違ったら適当に変えてね）
For a = 1 To 10
Call myclass(a).init(Sheet1.OLEObjects("TextBox" & a).Object)
Next
で試したら最初はうまくいったけどいじってたら効かなくなったぜ！
変数myclassを保持してる間だけ有効
テキストボックスごとに処理を変えるならMe.mytx.Nameを処理に渡して分岐させれ
>>295 やはりクラスモジュールを使用するのですか。
検索して勉強しても
いまいちクラスが理解できないんですよね。
.netならまだわかるけどVBAでのクラス構築がいまいちわからん
>>295 ヒントが出れば､答え探してきて､コピペ回答するくらいはできるんだな
今日から始めるんですけど、
中級
五段階の2
段階少なくね？
開発者より詳しい
このスレで他人の回答にいちいちケチを付けるのがレベル5
306 ：
デフォルトの名無しさん ：2011/06/08(水) 22:37:13.37
CSV出力をすると、書式が日付のセル（例：2011/06/08）が
>>306 直接CSV形式でやる方法はない
VBAでコンマ区切りの文字列を自分で作ってテキストファイルに出力するしかない
VBAの入門書はひと通り読んで、
309 ：
問題マン ：2011/06/09(木) 04:11:04.42
セル内の数値秒の間、1秒ごとに繰り返すプログラムを作ろうとしているのですが実行時エラーが出てしまいます.
事故解決しました
ホントだ。キチガイがいる
宜しくお願いします。
1行ずつ実行していって動作を調べろ
315 ：
313 ：2011/06/10(金) 23:09:21.10
事故解決しますた！
またお前か
大体、掲示板に質問してくるレベルでExcelのバグか！？なんて100年早いわ
318 ：
問題マン ：2011/06/11(土) 02:50:56.99
前田敦子のどこがいいんだぜ
>>310 他サイトだとどう解決したか書いてけ！って怒られたりするぜ
2chだからどーでもいいけど
>>312 後付けで問題禁止とかファビョり出した人のことかい？
触れないであげようぜ・・忘れたい過去みたいだからさ・・
>>317 俺なんか自動保存をバグだと思ってたぜ！
319 ：
デフォルトの名無しさん ：2011/06/11(土) 05:59:50.15
初心者です。変数の定義の質問です。
>>319 (1 to 10) なら以下のような入れ物を用意するということ
□□□□□□□□□□
(1 to 10, 1 to 10)ならこんな感じ
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
□□□□□□□□□□
そう言えば前スレでテーブルジャンプに付いて質問した者だけど、自己解決したから挙げさせて頂くわさ。
322 ：
デフォルトの名無しさん ：2011/06/11(土) 10:32:06.55
いれものじゃねーよ
値の領域だから入れ物でいいじゃん。
メモリ上の領域を分かり易く入れ物に例えたんじゃない？
>>322 >メモリ上にその値を確保すんだよ
その値ってどの値なんだよ (w
何言ってるんだよ
327 ：
デフォルトの名無しさん ：2011/06/11(土) 11:42:59.08
319です。
>>320 ありがとうございます。すごくわかりやすかったです。
ちなみに
>>321 の
Dim sJmpTbl(2) As String
（2）はどのようなことをさすのでしょうか？
stringが文字列型なので2文字分の入れ物を確保？ってことでいいのでしょうか。
328 ：
問題マソ ：2011/06/11(土) 12:05:25.87
330 ：
デフォルトの名無しさん ：2011/06/11(土) 12:15:56.07
327です。
>>328 ありがとうございます。
327 での2文字分の表示は As string * 2 と何か違う点がありますか？
ここで聞くよりググった方が早いだろうと思うんだが？
だな。あっさり騙されているみたいだし。
333 ：
デフォルトの名無しさん ：2011/06/11(土) 21:07:39.82
騙されてたのか。悲しいぜ。
334 ：
忍法帖【Lv=1,xxxP】 ：2011/06/11(土) 21:20:36.35
シート上にあるすべての埋め込みグラフを少し下に移動させたいのですが
書いてある通り
>>333 >頼みますだれか 327 の（2）について教えてください。
>>319-320 見てもわからないってこと？
あと option base でぐぐっておけば幸せになれるかもしれない。
>>333 まさか釣りや煽りの類じゃないだろうな？
_______ _＿
／／￣~`i ゝ `l |
/ / ,______ ,_____ ________ | | ____ TM
| | ＿__ //￣ヽヽ //￣ヽヽ （（￣）） | | //￣_>>
＼ヽ、 ｜l | | | | | | | | ``( (. .| | | | ~~
`､二===-' ` ===' ' ` ===' ' //￣ヽヽ |__ゝ ヽ二=''
ヽヽ___// 日本
＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ＿＿
|vba 配列 .| |検索|←をｸﾘｯｸ！！
￣￣￣￣￣￣￣￣￣￣￣￣￣￣ ￣￣
◎ウェブ全体 〇日本語のページ
338 ：
デフォルトの名無しさん ：2011/06/11(土) 22:38:09.49
WEBクエリでテーブルの一部分だけを抜き出すことってできますか？
すいません初心者で質問です。
>>341 ありがとうございます。
明日会社で試したいと思います。
もしわからなかったら、コードを記述させて頂きますので
どなたか宜しくお願いします・・・
>>340 setステートメントでワークブックを掴んだら、参照をきちんと解放しろ
どのオブジェクトでも同じだ
set myWorkbook As Workbook
(略)
set myWorkbook = Nothing
>>343 >set myWorkbook As Workbook
Dim じゃねーのか？
>>344 すまんCreateObjectのから消したからミスった
WorkbookやWorkSheetのオブジェクトは､わざわざNothing代入しなくても変数スコープが外れた時点で参照は解放されるよ
>>346 Excelに限定される話じゃないけど、暗黙で生成されたオブジェクトを掴んだ場合、
明示的に解放する手段なくない？
だからＶＢＡにDisposeはないって
円のオートシェイプ表示まではできたけど、表示した円に文字入力するのがわからないです
つ マクロの記録
以前プロシージャレベルでもNOTHING入れるのが礼儀とか怒られたぜ！
参照先をオブジェクトからnotingに入れ直すだけで、一度捕らえたオブジェクトはGC以外では解放されない仕様じゃなかったっけ
>>349 Shapes.Characters.Text
>>350 2007だとオートシェイプ関係は記録できないことがある
>>351 それが正解。
基本的にスコープが切れた所で開放されるけど、
場合によってゴミが残ってメモリリークが発生する事がある。
ない
無いと言うのと知らないと言うのは違う。
なんでもかんでも最後にNothingするのはプロが無駄に記述量を増やすために書くってのが多い。
すいません。
Sub 1回追加()
>>360 セルアドレスの中身見てみ
原因がわかるよ
>>358 なにか問題起こされると困るし
かといっていちいち細かく説明するのも面倒だから
とりあえずやっとけって言うやつが諸悪の根源
>>361 分かりました！有難うございます！
元々選択されているのに再度選択していました！
いや、その程度の知識しか持ち合わせていないなら
うむ
>>367 すいません。考えたのですが分からないのです。
教えてください。
>>368 Range("セルアドレス").Select
Range("セルアドレス).Select
>>369 Range("セルアドレス).Select
Range(セルアドレス).Select
>>365 まだ分からないのか。
開放されない事象が有るから言ってるんだ。
人に勉強とやかく言う前に本当にそういう事象が無いのか確認してから言ってくれ。
それが出来ないなら迂闊にないなんて言わない方がいいし、
人に勉強しろなんて言うのはもっての他だ。
>>371 まあまあ、そんなに怒ることでもないわさ。
私も一つ知ってるけど、言うと荒れそうだから黙ってるわさ。
＞本当にそういう事象が無いのか確認してから
まぁ、お前らそう興奮して反応するなって。
この不況下じゃその油断が野垂れ死にを招く
>>372 再現可能なら荒れないよ
今は「ある」「ない」の水掛け論だから荒れてんの
循環参照の例は常識だから不適
>>379 常識でも何でもないと思うが。
ならばNotingを付けるのも常識だろう。
>>380 Nothingつけただけじゃメモリリークする
馬鹿は黙ってろ
382 ：
デフォルトの名無しさん ：2011/06/13(月) 21:13:58.87
> 基本的にスコープが切れた所で開放されるけど、
すいません、やはりわからなかったので教えてください・・・
何だ、循環参照の話が出たから分かってるのかと思ったが全然分かって無かったみたいだな。
386 ：
デフォルトの名無しさん ：2011/06/13(月) 21:31:38.96
> 常識でも何でもないと思うが。
オブジェクトの参照って次の理解でいい？
>>383 >Set a_xls = New Excel.Application
新しいブックオープンするんじゃダメなん？
>>394 ＩＤも見れないのと思ったがここ出ないんだった
とりあえず内容みような、言ってること違うから、多分
？
やれやれだ。
ここまで
>>386-388 みたいに煮えくり返っている奴に説明するのも馬鹿馬鹿しいな。
人の話を聞かないで決めつける時点でプログラマとしての素質が無いと分かってる奴に説明するのも何だしな。
こう言う奴は結局自分で適当に調べて間違った事をずっとそのまま覚えているんだろうな。
お前みたいに失礼な奴に教えるとでも思っているのか？土下座して出直せ。
>>398 Nothingつけただけじゃメモリリークする
馬鹿は黙ってろ
>>391 前に質問していてその内容が340にあるんですが、
ブックだけを開いてテキストの読み込みは可能ですか。
どうもソートかけるてるところをコメントアウトすると
正常に終了するので、どうしたもんかと試行錯誤しているんですが
よくわからない状態です・・・
>>400 これでお前はまたひとつ勉強する機会を失った訳だ。
そうやって底辺PGとしてそのまま這いつくばっていればいいさw
>>402 Nothingつけただけじゃメモリリークする
馬鹿は黙ってろ
>>401 >ブックだけを開いてテキストの読み込みは可能ですか。
vbaだから、基本的になんでもありだと
ただ、この一文だけじゃなんのことだか？
クラスやフォームを使わなければ起きない。
>>405 そうだとすると、私が知ってるのと同じかも知れないわさ。
>>401 自分のWorkbooksのOpenTextを使えば済む話じゃないのか？
何か妙な勘違いをしている気がする。
まだ続いてたんか
>>404 ですね、すいません。
と言うか、なんで
ActiveSheet.Range("A2:W500") _
.Sort Key1:=Range("O2"), order1:=xlAscending, _
Key2:=Range("G2"), order2:=xlAscending
End With
ここだけで、プロセスが残ってしまうのが良くわからないんですよね・・・
>>410 sortは環境によっては、おかしくなることがあるみたい
知らないで書くけど、
最後のquitはcloseじゃダメなん。
そもそもメモリリークしたかどうかってどうやって調べるのよ
>>412 長年の経験と勘
単に外部プロセスやOSがキャッシュとして保持している場合があるから難しい
賢くない人の平凡でしょぼいな回答をありがとう
しょぼいなってどこの方言？
>>411 なるほど、どうなんだろう
今は家だからできないんだけど試してみるかな・・・
>>383 このコードみると
With は１個なのに
End With は２個あるけど
コピペミス？
>>418 はい、すいませんｺﾋﾟﾍﾟミスと言うか
今日色々やっててその残骸です。無視してください
省略の部分
例示もソースもコードも貼れないで脳内で完結してるだけなのになんでわざわざ恥をさらしにくるの？
ここの奴らはスルースキル低いなw
俺もUserFormでメモリリークする事例は知ってるが、Nothingとは無関係だしなぁ。
427 ：
スーパー問題マン ：2011/06/14(火) 03:52:05.88
つまりnothingでジェネレーションを下げないとVBAのガベージなんとかが解放してくんないし、
何がFA？
こんにちは、質問いいですか？
Nothing派は旗色悪いな
Nothing代入しないで起こる問題は
俺はnoting派じゃないがnotingは入れてる
コードの明示性を上げるために､自動型変換が働くところでも
Application.
>>430 何も例を挙げていないのに人の話を聞けとか言うやつしかいないよ
書いておいてあれだが日本語がひどすぎだわ俺
同じくnothing は基本的に入れない派なんだが、createobject やnewでインスタンスを新たに生成した場合は最後にnothing をいれるようにしてる。
メモリリークってどうやって調べるの？
無意味がどの意味で使われてるかいまいち
>>438 タスクマネージャで大体分るんじゃない？
エクセル終了させたら全部解放される程度のことを問題にするな
質問です
443 ：
442 ：2011/06/14(火) 23:46:50.21
書いたソースは下記のような感じです(1/2)
444 ：
442 ：2011/06/14(火) 23:52:56.15
続きです(2/2)
>>442 Do While nCheckColumn < 3
...
nCheckColumn = nCheckColumn - 1
Loop
無限ループしてないか？
446 ：
442 ：2011/06/15(水) 01:26:49.22
>>445 そこは実際のソースだと分かりづらい部分があったんで何箇所か修正したときに直し忘れてました
nCheckColumn = nCheckColumn +1ですね
ご指摘ありがとうございます
あと
>>442 の4行目「対象者のシートには～」は「コピー元のシートには～」でした。
間違いが多くてすみません
447 ：
問題マソ ：2011/06/15(水) 07:44:30.67
ググったらnothingは7年前から議論して結論でてないみたいだぜ
>>446 ちょっとブックうｐしてみて
結論は出てるよ
最近は礼儀とか作法とか書く馬鹿が減っただけでも少しは向上したのかもね。
450 ：
デフォルトの名無しさん ：2011/06/15(水) 18:11:04.35
ユーザーフォームを作成してて、
ブックあるいは再現する最小のコード､デザインをうp
452 ：
デフォルトの名無しさん ：2011/06/15(水) 18:54:35.56
>>451 特定のBOOKではなく、いくつかのファイルで発生します。
エクセル、OSともに再インストールしたけど、再発しました。
内容は複雑なものではなく、
with構文
Application.ScreenUpdating
txt1.Value = Val(txt2.Value) - Val(ｔｘｔ3.Value)
if Else構文
を使い、
フォームのコンボボックスや
テキストボックスに入力したものを
シートに転記する、といったようなものです。
エクセル2007
Celeron 2.53
MEM 1024M です。
ユーザーフォームを何度か実行(Show)すると問題が起きるのか
>>448 Nohitng付けとけ派は
事実と推論できるものが証明できるかどうかを問題にしてるんじゃない
事実として良いかを問題にしてるんだ
VBAの実行環境に対する信頼性の問題だよ
今日初めてユーザーフォームの存在を知ったが、
>>452 似たような症状になったことある。
どういう基準でなるかわからなかったけど、
ユーザーフォームをデバッグしてると、急に
パスが見つかりません、みたいなエラーがでる。
ツリーでひらいても、同じでひらけない。
ぐぐっても、ユーザーフォームがなにか悪さしてる、
程度しかわからなかった。
「時間指定によるマクロの実行のご質問お願いします（エクセル2003）」
Workbook_Openに無限ループで書くか
>>458 Application.OnTime TimeValue(Range("A1")), "時間ですコピーです"
じゃね？
実用性で考えたらタスクだろうね。
>>459 の人が言ってる様にタスクで立ち上げて
Workbook_Openに処理を書き込む様にすれば大丈夫。
最後にブックを保存して閉じることを忘れずに。
＞＞459 462
ありがとうございます タスクの意味があまり分かっていませんで
一度くぐってやってみます
質問させてください。
>>464 エスケープシーケンス
文字コード
おすきにどうぞ
>>465 はい やってみました
タスクと言うところクリックして タスクの追加とか・・・ありますね
初めて開きました お昼休みに一度やってみます
何度もありがとう
>>464 testしてないけど
Replace(Cells(n, n), Chr(34), "")とかは？
Chr(34)は半角 "
>>464 Cells.Replace What:="""", Replacement:=""
470 ：
デフォルトの名無しさん ：2011/06/16(木) 15:33:22.65
フォームのコンボボックスのオブジェクト名を
全部ならeach
>>466 >>468 >>469 返信ありがとうございます。
しかし、何度やってもダメでした。
VBのバージョンが6.5なのですが、古くてダメなのでしょうか。
>>472 バージョンに限らず駄目でしょう。
あれの扱いは文字列ではありません。
ごめん、頭のシングルクォートと間違えた
フォームって言っても
476 ：
デフォルトの名無しさん ：2011/06/16(木) 16:16:15.85
Call Cells.Replace("""","")
でも駄目？
>>469 の人の書き方ちょっと変えただけだけど。
VBなんちゃらとかchr使うとかなかったっけ
479 ：
デフォルトの名無しさん ：2011/06/16(木) 17:00:19.20
タブオーダーってすごく使いにくいですね。
>>477 やはりダメなようです。
他の文字ではちゃんと処理してくれるのでプログラムは合っているのですが
ダブルクォーテーションだけが処理してもらえません。
481 ：
デフォルトの名無しさん ：2011/06/16(木) 17:33:33.40
ダメだって単に言われてもな。
482 ：
デフォルトの名無しさん ：2011/06/16(木) 17:52:33.77
宜しくお願いします。
if false then
>>483 ＞次の行のプログラムをEnd subまで読み込まない。
どう使いたいのかがよく分からないけど、フラグ設けて再帰するとか？
＞指定した行のプログラムまで読み込まずにジャンプする。
GOTO文があるけど、これの多用はお勧め出来ない。
If文のネスト加減で難しいならこれもやっぱりフラグ設けてその分岐で目的の行に
飛ばした方がいいと思うよ。
>>481 すみません、言葉が足りないようでした。
例えば、
>>477 さんのプログラムを実行すると、何も変更されないままプログラムが終了するのです。
ダブルクォーテーション以外の文字を指定するとちゃんと置換されてプログラムが終了します。
Call Cells.Replace(""","")だろ低脳共
怨エラーなんちゃら
Excel2007/2010 で、vba側から条件付き書式を４つ作ると
Call Cells.Replace("""","")
>>493 さんが成功していて
>>486 が失敗してんだから
>>486 の書き方に間違いがあるんでしょ。
ごちゃごちゃ言わずにさ、その部分どういうふうに書いているのかサンプルのデータと一緒にここに書いてみたら？
あれこれ言ってるよりその方がよっぽど早いでしょ。
>>494 失礼しました。
以下のデータになります。
エクセルのシートは「”あ”」のようにダブルコーテーションでくくってある文字の集合です
試しにシートのダブルコーテーションを全角から半角に書き直し、
Macro2の「Chr(&H8168)」を""とすると、消すことが出来ました。
しかし全角の”を消すことができません。
Sub Macro1()
'
' Macro1 Macro
'
'
Cells.Select
Call Cells.Replace("chr$(&H8168)", "")
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
Cells.Select
Selection.Replace What:="Chr(&H8168)", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
ぜｗｗｗんｗｗｗかｗｗｗｗくｗｗｗｗｗ
498 ：
デフォルトの名無しさん ：2011/06/17(金) 00:31:14.20
全角のダブルクォーテーション…
システム作るときならまあ、ユーザー入力だから想定はするけど・・・
>>464 > マクロでシートの中の「"」を一度に消したいのですが
久しぶりによくで来た釣りだったな
503 ：
442 ：2011/06/17(金) 03:41:09.22
Copyではなく
505 ：
エスパーマン ：2011/06/17(金) 04:49:53.92
同レベルなので初見でエスパー余裕でした
マクロを実行した時に指定したセルの中身が、
これは流石にどう見ても釣り
If Worksheets("sheet1").Cells(1, 1).Value = "あ" Then
Exit Sub
Else
～
End If
これで満足したか？
>>508 誤字に突っ込めよ
>>506 「あ」じゃないときだけ実行すれば、「あ」のとき終了と同じことになる。
>>512 506レベルなら「では"あ"ではないってどうやって(ry」になるんじゃね
514 ：
442 ：2011/06/17(金) 20:55:52.08
>>504 出来ました、ありがとうございます
しかし原因がよく分からなかったのですが、今回のようにフィルターかけて可視領域だけを
コピーするような連続領域でないコピーみたいな特殊な処理はCopyは使わないほうがよいということですか？
て言うか
>>508 みたいな反応に驚いたw
マジだったんだ。すまんかったな。
ユーザーフォームに
押し間違えさせない為に
Ｍｅをフォーム名にしてみても動かない？
520 ：
デフォルトの名無しさん ：2011/06/17(金) 23:49:59.23
とグルボタンで
>>520 UserForm1.ToggleButton1.Value = True
UserForm1.show
かな？かな？
522 ：
デフォルトの名無しさん ：2011/06/18(土) 00:24:01.87
>>521 フォームを使わず、
Sheet1にActiveXコントロールのToggleButtonをつかった場合です。
したがって、Sheet1にコードを書いた場合です。
523 ：
520 ：2011/06/18(土) 00:27:21.90
訂正
>>514 原因は「可視領域のコピー」にある
例えば､300件のデータがあって､そのうちフィルタを抜けて表示されたセル(行)が10件あったとしよう
あのコードでコピーされる行数は何行？
おそらく君は10行がコピーされると思ってるのだろう
しかしそれは間違いで､正しくは2003以前なら「65536-300+10 = ６５２４６行」だ
だって､データが入ってない301～65536行目も「可視領域」だろ
六万数千行もの膨大な範囲のコピーを数百回繰り返せば､流石にリソース不足にもなるさ
こんなのは､予備知識が無くてもデバッグ出来る奴ならすぐに気付くこと
だって､各処理の戻り値や変数の変化や内容を確認するという､一番初歩的なデバッグで気付けるから
「可視領域のコピー」ではなく「可視領域『かつデータが入っている領域』のコピー」あるいは
空セルを非表示にした上での「可視領域のコピー」なら､コピー処理でもエラーにはならないはず
まあ書式不要なら､Value = Valueの方が良いとは思うけどね
とりあえず､まともにデバッグが出来ないうちは､どんなに複雑なコードが書けても
「プログラムが組める」「VBAが使える」うちには入らないので､デバッグの仕方はきちんと身につけましょう
このくらいの単純で短い処理ならいいけど､もっと複雑で長い処理になると､
こういうスレで金を貰える訳でもない赤の他人らは､面倒がって相手にしてくれなくなるよ
>>518 ググったんだけど
ClickイベントをMouseUpイベントにしたらできたよ
例えば、リストボックスのValueが"-----"ならListIndex=-1
とか
527 ：
丸投げ請負マン ：2011/06/18(土) 06:27:00.34
丸投げこいや！！
こいと言っても､君のレベルじゃまともなもの作れないでしょ
529 ：
デフォルトの名無しさん ：2011/06/18(土) 08:27:29.63
>>523 右クリック→プロパティでTrueにしたら出来たけどさ
(excel2007)
530 ：
デフォルトの名無しさん ：2011/06/18(土) 10:12:21.87
OS:Windows2000
あるjpeg画像をサイズ変更して新しいファイルに出力しなおす、ってexcel vbaでできますか？
できる
534 ：
デフォルトの名無しさん ：2011/06/18(土) 20:07:18.88
>>483 です。
遅レスすいません。
>>484 >>485 有難うございます。
if false then
と
GOTO文を組み合わせることで解決できました。
感謝です。
>>534 それは駄目だ
GOTO文を使わなくていいように考え直せ
536 ：
デフォルトの名無しさん ：2011/06/18(土) 21:40:29.90
エクセルのVBA初心者が見る参考書でお勧めはなんでしょうか？
>>536 Excel VBAデバッグ編 実践のツボ（九天社）
もう会社なくて絶版だけどまだ十分見つかると思う
自称初心者は是非買っとけ
エクセルのVBA以外は使える…
vbaで2chに書き込むことってできる？
おおちょっと勉強してみます
>>540 出来る､
>>541 の言うようにXMLHTTP使えばVBSですら出来る｡
但し､単純にSendすれば良いだけのところに書き込むよりちょっと難しい｡
とりあえずCookieが解ってないと無理｡まぁ､それ以前に､単純にSendすれば良いだけの
ところへの書き込み方すら解らないとかなら問題外だけどねw
でもCookie含めたHTTPの基礎知識があれば､CookieにしてもSendするデータにしても
仕様は公開されているから簡単に出来るだろう｡
スレ違いなので､具体的な解説はここではできないけどね｡
544 ：
丸投げスルーマン ：2011/06/19(日) 02:26:39.56
やっぱり丸投げはスルーします・・＞＜
>>531 できるぜ！、
変更したいサイズにフォームをセット→GetOpenFilename→LoadPicture→SavePicture
でいけると思う
駄目だったらapiのGetObjectとGetBitmapBitsでフォームの画像データの二次元配列がとれるから、後は気合で
>>536 すげーな
俺なんてなんとかテーブルもワークシート関数もろくに知らないぜ！
>>540 エクセルをブラウザがわりって昔誰かが作ってたぜ！
>>543 Cookieは仕組みがおかしいよなｗ
俺はFunction CookieWriteとかでググってどっかからコピペしたぜ！
545 ：
デフォルトの名無しさん ：2011/06/19(日) 12:59:18.76
ＶＢＡ初心者です。
アドインも自分で作ってこそ漢!!
548 ：
デフォルトの名無しさん ：2011/06/19(日) 15:17:59.11
１ １
EclipseとかのIDEにVBA開発用ﾌﾟﾗｸﾞｲﾝとかないのかな？
>>548 そのワークシートに
押されたキーがエンターキーならば、セルを挿入する(縦にずらす)
というコードを書けば？
551 ：
デフォルトの名無しさん ：2011/06/19(日) 19:23:20.55
>>550 マクロを利用して作ってみたんですが、エンターキーは無理そうなので、ctrlとｘで空欄を作ることができました。
ですが、一つのセルだけにしか効果がないようなので、オートフィルする必要がありそうです。
そして、その方法が分かりません・・・・。
>>551 は現時点のマクロです。
訂正よろしくお願いします。
552 ：
デフォルトの名無しさん ：2011/06/19(日) 19:28:34.24
Sub Macro7()
553 ：
550 ：2011/06/19(日) 19:58:37.33
>>551 キー押下げのイベントがないみたいですね。
なので
>>550 のようにはできませんでした。すみません。
ショートカット登録でよければ、
Selection.Insert
の一文だけでいいと思います。
登録キーはCTRL+xみたいによく使うのはやめた方がいいです。
例えばCTRL+Shift+Iとかにすればいいと思います。
押入れにしまってたはず
>>551 >>553 の人が言ってるのをパクってEnterキーでやるやつに挑戦してみたわさ。
VBEで
シート側に記述
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call hoge
End Sub
標準モジュール側に記述
Option Explicit
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Sub hoge()
On Error GoTo Err_Handler
If GetAsyncKeyState(vbKeyReturn) Then
ActiveCell.Insert
End If
Exit Sub
Err_Handler:
Call MsgBox("もう入れられません＞＜")
End Sub
結構適当だから何か起こるかも知れないわさ・・・
ユーザーフォームを見やすく作るのには
559 ：
デフォルトの名無しさん ：2011/06/21(火) 00:21:22.76
設定ファイルから読み取るようにして
とりあえず文字をでかくして、容赦なくボタンに色をつける。
>>560 フォーム自体の色（背景色）って
グレー系のほうがいいのか迷う俺はどうしたらいいですかね？
どれが視認性いいんだろ。
突き詰めるとカラーコーディネーターとかになるんだろうけど。
テキストボックスは、昔ながらのへっこんだ感じがいいのか、（Falseのときは透過にする）
時代は、フラットな感じなのかわからない。
何のツールかによるな。
>>562 営業・売上日報や請求明細書関連です。
自分でつくって、せいぜい3人程度でしか使わないなら、シート使ったほうがいいのかな。
必死に勉強してフォームとかクラスとかできるようになってきたんだが。
シート駆使ってどんな感じなのですか？
>>562 入力フォームを処理をシートで済ませるってことですか？
たしかにフォームで、テキストボックスを表状に並べたりしましたが
見にくいなって思ってました。
複数行ある上記のテキストボックスの表の各行の合計を自動で計算するのに
クラス勉強したり。
やればやるほどフォームの利点がわからなくなってきました。
エクセルVBAのユーザーフォームの利点ってなにかあるんでしょうか？
>>564 フォームを使うことで他のフレームワークで作ったものと、統一性を図ることが出来る。
例えばアドインファイルにしておいて、立ち上がり時にEXCELのアプリケーションを非表示にしてフォームを表示すれば
見た目VBやC#で作ったのと体して変わらない様なものが作れる。
後はフォーム特有のイベントが有った様な無かった様な・・・
まぁ今までEXCELでフォーム使わないで困ったこと無かったけどね。
逆にファイルを閉じた場合、フォーム中心に考えていたら変数にファイルが閉じる前の値を
継続して使わせたい時、結局シートや外部ファイルに値を残したりそれなりの仕組みを作らなければならないことを考えると、
最初からシートでいいじゃんて事になったり、INIファイルもコントロール用のシートを作ることで
外部ファイルにしなくてもまかなえたりする。
まぁでもあくまで自分だったらということであまり拘らないでいいと思うよ。
ああ、別にアドインファイルにしなくてもEXCELのアプリケーション非表示にすればいけるかな？
セルに入力されている数値分だけ、その行すべてコピーして下に数値分挿入ってどんな構文書けばいいでしょうか。
>567
Valueプロパティって、エクセルのシートへの文字入力、値の取得以外にも
>>569 value省略してたら、数字が文字列として転記されたりする。
as移行を省略したら、宣言する意味がない。
>>569 その辺、その参考書には書いてないのか。
なんちゅう参考書だ。
まずValueは値。シートに限らず、また、文字列に関わらず値を司るプロパティ。
変数の型は省略すると、Variantと言う型が割り当てられるけど、これがメモリを16バイト以上食う。
例えばInteger型などは2バイトしか使わないが、この型で済む様な値しか扱わない様な場合、
型を設定しなければしない分だけ無駄なメモリ領域を消費し圧迫して処理速度にも影響を与える事もある。
とりあえずコードを書く際、先頭行にOption Explicitと書いて、使う変数は例えVariantであってもそれを
明示的に型指定する様に記述する事をお勧めする。
特に型の指定は後々Object指向言語を使う事になった場合、VBAとは比較にならないくらい
色々な制限や使い方があるので、そちら方面に進みたいならせめて型の宣言は常に行う癖を付けておいた方がいいと思う。
572 ：
デフォルトの名無しさん ：2011/06/22(水) 23:43:36.89
環境 OS WinXP Excel2003
>>572 APIでフォームのハンドル探せばいいんじゃないの？
WinAPIやハンドルなんて解らないとか言い出しそうだが
575 ：
デフォルトの名無しさん ：2011/06/23(木) 07:23:46.36
>>573 ご返答ありがとうございます。フォームのハンドル関連からググッてみます。
>>574 たしかにWinAPI等詳しいと呼べるちしきはないですね。
ただ、Excelの機能で待ち受け状態が擬似的にできればよいので、
そのような方法がないかさがしておりました。
どちらにしろ、お二方ご返答ありがとうございました。
576 ：
デフォルトの名無しさん ：2011/06/23(木) 09:53:12.59
できるよ
577 ：
デフォルトの名無しさん ：2011/06/23(木) 12:04:53.33
VBAで組み込み関数と同じ名前の変数を作ってしまったんだ。(先頭の文字が小文字になっている変数)
>>578 消してあります。
なのにちゃんと機能してくれません…
クリーンがあればよかったとつくづく思います
>>579 再度宣言し直す
例えばmsgboxと、変数を作ってしまったら
Dim MsgBoxと、VBEに書いてから
このDim～を消す
581 ：
デフォルトの名無しさん ：2011/06/23(木) 18:58:24.32
エクスポートしてインポートするといいんだな
印刷時の印字濃度を制御するコーディングは可能でしょうか？
>582
できるよ
それを実現するための、メソッドとプロパティを教えていただけませんか？
>>580 ,581
できたっ…本当にありがとう…！
印字濃度が変更できるプリンタってそんなにないでしょ
やっぱり無料なんですかね。どうしてやりたかったというと、社内のインク代節約を実現したかったからです。
589 ：
デフォルトの名無しさん ：2011/06/24(金) 11:18:06.47
ドラッグ&ドロップを常に切り取りにする方法ってある？
590 ：
デフォルトの名無しさん ：2011/06/24(金) 11:24:48.25
× ドラッグ&ドロップを常に切り取りにする方法
592 ：
デフォルトの名無しさん ：2011/06/24(金) 11:29:25.34
Shiftを押すのは邪魔くさいので、
お前らそろそろEXCEL-DNAに移行しろよ。
なんたよDNAって
On Error Gotoについて質問です。（EXCEL 2003）
>>597 です。
説明不足失礼しました。
キー値はEXCELに手入力で打ち、EXCELからマクロ実行するとDBのようなファイルへアクセスし、
データひっぱってくるよにしています。
ラベルを2つに分ける
>>596 なん……だと……
エクセルをdotnetで動かせるわけじゃないよな？
>>599 ラベル効果を無効にしてしまうような機能があればと思いましたが、
やっぱりラベル複数用意しないと回避はできないのですね・・・
ありがとうございました。
On Error GoTo 0を入れれば
自分でチェックしてGotoするなら、On Errorいらないと思うんだが．．．
605 ：
デフォルトの名無しさん ：2011/06/24(金) 23:40:03.96
VBAでシストレしてる人
散布図に最初は目盛りの最大値を自動で合わせる状態にして計算をして
事故解決しました
608 ：
デフォルトの名無しさん ：2011/06/25(土) 11:00:02.63
VBAでindirectするにはどうしたらいいですか?
609 ：
デフォルトの名無しさん ：2011/06/25(土) 11:02:58.48
前スレにありました
>>603 EXCELのVBE上で入力補完付きで編集出来る様になるなら期待するけど、
そうじゃなきゃVS上で作ってdllにして参照した方が早いからｲﾗﾈ
611 ：
デフォルトの名無しさん ：2011/06/25(土) 12:50:21.80
Xについての４次方程式を解きたいのですが
UserForm1を二つ表示することは可能でしょうか？
不可能なはず
コピペして終わりだろ・・・
615 ：
デフォルトの名無しさん ：2011/06/25(土) 21:57:41.25
他のブックに現在開いているブックから
>615
617 ：
デフォルトの名無しさん ：2011/06/25(土) 22:51:51.08
Month関数を使いたいのですが
618 ：
デフォルトの名無しさん ：2011/06/25(土) 22:56:24.22
定義されてないんだろ
month という 変数 を宣言してない？
620 ：
615 ：2011/06/25(土) 23:32:36.09
>>616 答えてくれてありがとうございます。
助かります。
A1にaaa.xls
できる
624 ：
忍法帖【Lv=1,xxxP】 ：2011/06/26(日) 00:26:36.65
IF文について質問です
なんか同じ奴がつまらん質問を繰り返しているようだが
ヒント：ゴッゴル先生
>>614 ユーザーフォームの内容によってはエクスポートして､ユーザーフォーム名だけ変えてインポートした方が早い
>>624 論理演算かループで
628 ：
デフォルトの名無しさん ：2011/06/27(月) 01:22:08.21
（ブック名）は既に開いています。 二重に開くとこれまでの変更内容が失われます。
といったエラーが出ることについて質問があります。
Dim thisBook As Workbook
Set thisBook = ThisWorkbook
Set Workbook = Workbooks.Open(thisBook.Path & "\test.xlsx")
ThisWorkbook.Activate
中略
Workbook.Worksheets("Sheet1").Cells(1, 1).Value = ID
というようにこれだと１回目の書き込みは上手く行きますが
２回目以降が上記のエラーが出て上手くいきません。
http://www.excel.studio-kazu.jp/kw/20071007202040.html ここを参考に
If flg = False Then の下にブックが開いていない場合の処理として開くように
Set Workbook = Workbooks.Open(thisBook.Path & "\test.xlsx")
と書いてみたのですが駄目でした。
どこが悪いのか教えて頂けると非常に助かります。よろしくお願いします。
1回処理が終わる毎にちゃんと閉じてるの？
質問させてください
Application.Version
632 ：
631 ：2011/06/27(月) 11:46:34.09
Application.Versionでぐぐってこういうのがあった
質問する前にちょっとはググれよ。
ありがとうございます！
非表示シートを再表示するのに Worksheet.Visible = True とすると
対象が間違っている
それだとFalseの方も動かないと思うんですよ
>>637 Excel2000だと、自動計算か何かの設定によってVisibleが失敗するってバグがあった気がする
2003はどうかなあ
変数wsがどっかで変更されてない？
とりあえずテスト用のプロシージャを作って最小限のコードで試してみ
Sub 表示テスト()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("aaa")
ws.Visible = False
ws.Visible = True
End Sub
>>638 XP、Excel2000ではエラー出なかったです
今Excel触れないので後日テスト用コードを試してみようと思います
640 ：
デフォルトの名無しさん ：2011/06/27(月) 22:09:04.34
Range("A1").Formula = "=SUM(A2:A3)"
>>640 Cells(1, 1).Formula = "=SUM(" & Cells(1, 2).Address(0, 0) & ":" & Cells(1, 3).Address(0, 0) & ")"
>>640 訂正。
>>641 だとSUM(B1:C1)になる
Cells(1, 1).Formula = "=SUM(" & Cells(2, 1).Address(0, 0) & ":" & Cells(3, 1).Address(0, 0) & ")"
643 ：
640 ：2011/06/28(火) 00:20:40.00
>>642 ありがとうございます。
Address(0, 0)と書くとは全くしりませんでした。
勉強しておきます。
ありがとうございました。
644 ：
デフォルトの名無しさん ：2011/07/02(土) 09:12:51.83
VBAで再帰使うとすぐスタックオーバーフローとか出るね
まぁ「すぐに」って言うのもどれぐらいを指してすぐなのかと言うのはあるけど、俺も再帰処理はキライ。
646 ：
デフォルトの名無しさん ：2011/07/02(土) 12:16:24.74
Rangeのデフォルトプロパティについて質問です。
For Each r In Range("A1")
Rangeの既定のプロパティはValueではない
C#とかだとデフォルトプロパティが禁止されたから、意識するべきではあるな
いいねぇ.Net。
>>651 だからファイルが分かれるなら余りうま味が無いって。
VSからdllファイル作った方が早い。入力補完も効くし。
むしろデータとアルゴリズムの分離って意味ではファイルが分かれた方が良くね？
>>653 ＞むしろデータとアルゴリズムの分離って意味ではファイルが分かれた方が良くね？
それはどんなシステムとして使うかによりけりだけど、
ファイルを分割して各機能を分けるくらい大掛かりなものなら
データはAccessやSqlServer、Olacleなどで持って、ロジック部は.NetFrameworkやJavaとかで作成して、
出力物としてExcelを使う様にした方がそれぞれの長所を活かせる。
そうなると、基本ロジック部は.NetFrameWorkやJavaとかで扱うことになるから、
益々Excel-DNAとやらの出番は無くなることになると思うよ。
VB.netちょっとやってて
プロパティ設定
>>654 >益々Excel-DNAとやらの出番は無くなることになると思うよ。
試しもしないで必死に避難してるの？
まあ、それはさておき、
VSが使える ＞ ファイルが分割される
.NETが使える ＞ ファイルが分割される
って言う人もいるだろうよ。
俺はVBA資産が多いのでいきなりは移れないけど、面白い
アイデアだと思うよ。
ファイル分割ってのがいまいちわからんな
>>657 避難してどうする。
ファイルが分かれるってメリット大じゃん。
あの糞使いにくいVisual Basic Editorわなくて済むんだから。
一旦Visualstudio使い始めるとVisual Basic Editorは苦痛でしかないよ。
あのIDE使いにくいところもあるんだが
Excel2007
>>657 だからそうなるんなら、最初からVS使えって話。
VS上で.NetFrameWorkの言語から
EXCELを操作すればいい。
>>662 もう一回だけ言うけど、試してから文句言ったら？
VisualstudioからEXCEL使おうとすると、普通はあのめんどくさいCOM経由で
アクセスする必要があるだろ？EXCEL-DNAなら.NETの機能を使用しつつ、
COM経由のアクセスの面倒さを回避できるんだよ。
豊富な.NETの機能もつまみ食いできるしな。
試してから気にくわなければ、使わなければ良いだけだと思うけど。
C とか C++ ならいざ知らず、VB.NET とか C# ならたいして面倒じゃないだろ。
>>664 C#はデフォルトプロパティの省略ができないだけでなく、パラメタの規定値の設定ができない
ExcelをCOMオブジェクト経由で呼び出すのは非常に面倒、というか冗長
Type.Missingの嵐になる
分からないなら、お前さんのExcelVBA上で、パラメタの省略を一切せずに全てカンマを入れてみろ
俺もどこの馬の骨が作ったか分からない
>>665 4.0以降ならそんなこともないんじゃなかったっけ？
668 ：
665 ：2011/07/06(水) 07:56:59.76
>>667 RCWのこと？4.x系で書いたことないからよく知らんのだけど
確かにオプションで引数、名前付き引数が追加されたようだね
COM資産は未だに影響が大きいようだ
でも大体Excelのバージョンは決めうちできないから遅延バインディングで
書くことになるだろうし、リフレクションを通さなくちゃいけなかったりと割と面倒
VBだともうちょい楽に書けるようだけど
>>665 この御仁たぶんC#もまともに使ったこと無いでしょ。
相手するだけ無駄だと思うよ。
671 ：
661 ：2011/07/06(水) 14:59:21.71
回答してくれそうな雰囲気なしなんでこの質問は閉じます
672 ：
デフォルトの名無しさん ：2011/07/06(水) 15:45:34.74
ボタンを押したらオートシェイプを出すっていうプログラムが書けたのですが、
>>671 質問ならならあげとけよ
Sheet1.Shapes("Button 1").ControlFormat.Enabled = False
Sheet1.CommandButton1.Enabled = False
とか
>>672 ボタンの判定をifの条件式に入れるってどういう意味だ？
普通はボタンを押してからコードで判定すると思うんだが
>>673 ボタンを押すたびに座標に数値をプラスしていく感じかとおもって
if ボタンが押される then 座標に値を足す
みたいにできないかと思いまして
ひょっとしてボタンってキーのこと？
>>674 ボタンを押したら、シェイプを（ずらして）表示させるんだろ？
つまり、ボタンを押した処理の中で判断すればいいのでは
イベントとかよくわかってないレベルの人か？
VBAでウィルスって作れるの？
678 ：
デフォルトの名無しさん ：2011/07/06(水) 23:46:03.09
ファイルの特定の二列の入力値の組み合わせは4種類しかありえなくて、その4種類の組み合わせに応じて
>>678 いまひとつ何がしたいのか分からないんだけど
普通にこんな感じで駄目ですか？
ファイルを開いて
フラグをOFFに
(行について繰り返し開始)
もしこの行が空白なら行についての繰り返しを抜ける
もしこの行のA列が○ かつ B列が×ならフラグをONにする
行をひとつ進める
(ここまで行についての繰り返し)
もしフラグがONならコピー処理をする
ファイルを閉じる
>>678 '指定範囲で○×の行を探す あればTrue なければFalse
Function checkOX(CheckRange As Range) As Boolean
Dim i As Long
checkOX = False
If CheckRange.Columns.Count <> 2 Then
MsgBox "２列を指定してください"
Exit Function
End If
For i = 1 To CheckRange.Rows.Count
If CheckRange.Cells(i, 1).Value = "○" And CheckRange.Cells(i, 2).Value = "×" Then
checkOX = True
Exit Function
End If
Next
End Function
>>681 長いことBASIC使ってるけど、そんな演算子初めて知ったわ
一つ勉強になった
ただ、.NETで廃止されてるらしいし、この先使うことない知識だろうけど
Excel2007のマクロが遅いことで質問させてください
セルをバリアント型に入れて計算していて
>>684 ホントにセルがバリアント型変数に入ってるなら、その変数はすでにRange型だが?
Rangeに対してオフセットとりたいならRange.OffsetプロパティとかRange.Rangeプロパティ使え
Set c1 = Range("B2:C11")
Set c2 = c1.Range("B1:B10")
これでc2はC2:C10のRange型だぞ
だがまあ多分そういうことじゃないんだろうけど
バリアントの変数に入ってるのが値の配列なら
実際のセル(Range)に代入するしかないんじゃね
VBAで配列の特定範囲を切り出すスマートな方法はしらね
先頭からならReDim Preserveってのもなくはないが、もともと配列は
途中でサイズ変更するような用途向けではない
まあ必要なら関数１個つくっとけば良いだけだし
>>685 Set c1 = Range("B2:C11")
Set c2 = c1.Range("C2:C10")
↑これやってみましたけど出来ませんでした。
Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Sheet1")
Dim cB As Variant
cB = sh.Range(sh.Cells(1, 1), sh.Cells(10000, 20))
Dim rng As Range
Set rng = cB.Range(cB.Cells(1, 10), cB.Cells(10000, 10)) ←イメージとしては、こんな風にRange型に入れたいです
>>685 すいません出来ましたSetが付いてないだけでした
ありがとうございました！
>>684 VBAを使わない。
全部Excel側でやる。
689 ：
678 ：2011/07/07(木) 07:22:58.09
ありがとうございました！
>>665 > C#はデフォルトプロパティの省略ができないだけでなく、
> パラメタの規定値の設定ができない
C# 4.0 も知らない情弱か...、かわいそうになってきたよ。
>>668 よく知らないなら、ROM って１人で Excel-DNA とやらを使ってろよ。
また恥かくだけだぞ。
>>669 流石にこれは恥ずかしすぎ。
誰からも相手されてないんだろうな (w
またキモいExcel-DNA儲が湧いてきたな
どこをどう読んだら儲に見えるんだ？
A1からD10まで0を入れたいんだけど
A1:B10 と D1:D10 じゃだめなのかい
cellsでfor2つにネストしてC以外の時に処理させるとか
そんな感じで
セル選択
c列をどっかにコピー
Sheet1.Range("A1:B10").Select
>>699 693よりコード悪化してるぞ
まだ
Range("A1:B10").Value = 0
Range("D1:D10").Value = 0
のほうがマシ
しかし汎用性のないコードだな
>>692 そういうことにしないと否定できないんだろ。察してやれ。
>>700 本当だ、こっちの方が早い
実際のプログラムは4列x60行で
最初のループだと置換が終わる処理まで約6秒かかっていたのが
>>699 で約2秒
そのコードにしたら約1秒で終わった。
そんなに違いあるのか
PCの性能もあるだろうけど
VBAでももちろんだけど、
オートシェイプに文字を書くのが調べてもわかりません
>>708 よく見かけるのはこんな感じ
Dim Shape1 As Object
Set Shape1 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 100)
Shape1.Select (True)
Selection.Characters.Text = "hello"
入力されている文字の左から1文字が1か2かで色をつけて他は空白にしたいのですがどうしたらいいですか
すみませんメモ帳でやったらうまくインデントできませんでした
>>710 Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("B2:Y35")) Is Nothing Then Exit Sub
With Target.Interior
Select Case Left(Target.Value, 1)
Case "1"
.ColorIndex = 3
Case "2"
.ColorIndex = 5
Case Else
.ColorIndex = xlNone
End Select
End With
End Sub
x = cells(a,b).c
事故解決しました
>>702 701じゃないけど､汎用性持たせるとこんな感じか？
Sub Test()
Call NumericalInitialize([A1:B10,D1:D10])
End Sub
Sub NumericalInitialize(IniRange As Range)
IniRange.Value = 0
End Sub
あるいは
Sub Test()
Call InputValue([A1:B10,D1:D10], 0)
End Sub
Sub InputValue(InputRange As Range, Optional Value As Variant = Empty)
InputRange.Value = Value
End Sub
とか｡
でも､
[A1:B10,D1:D10].Value = 0
で良い気がする｡
Range("A1:B10").Value = 0
Range("D1:D10").Value = 0
みたいに2行で書かざるを得ないものを､ParamArray使った自作関数で､
1行書き出来るようにするとかならまだしも､元から1行書き出来る上に､
関数化しない方が処理の明示性が高いくらいなので､関数化の旨味も少ない｡
一般の仕事で使えるマクロってどんなものがあると思う？
>>717 帳票作成は？
昔さんざんやらされたけど w
>>718 スレ違い
学校の課題であるというのもスレ違い要素の一つだが､何よりExcelVBAとは関係ない質問だ
単に言語選択としてたまたまVBA使ってるだけで､C#でもVB6でも出来るような類の処理は
全てスレ違いなのでそこんところよろしく
ここはVBAでExcelのブックやシート､標準オブジェクト類を操作する話以外はスレ違いだから(
>>2 参照)
>>721 御指摘ありがとうございます。
すみませんでした。
XP Excel2007です。
725 ：
724 ：2011/07/11(月) 07:44:21.18
HttpSendRuqestやHttpAddRequestHeadersで検索したけど、
>>727 館長の基地外発言が話をヤヤこしくしたあれか
パスワードかなんかが暗号化せずに鯖においてあったなんて話もあるんだっけ、あそこ
逮捕されたけど結果は無罪だったじゃん
>>730 楽観的だなぁ・・・日本という国は技術がある者ほど割を食うIT後進国なのに・・・
Winny作ったやつは逮捕されても当然としてもその罪状が幇助罪だったから、開発者はみんな明日は事故的に火の粉をかぶると怯えたもんだ
あれは怯えている設定にして無罪を勝ち取ろうとした戦術だろ。
>>732 職業プログラマやってる友人やその仲間の話なんだけど
案外、皆Winny系統のアプリ使いまくっていて、
735 ：
724 ：2011/07/13(水) 08:50:40.24
>>727 そんな事件あったって知りませんでした。やっぱ相手サーバが拒否してる事はやっちゃダメか・・・
春ごろまではOKだったのに、リニューアルされたら急にアクセス規制がきつくなりました。
ソニーエンタメの影響かなあ
とりあえず串とwait関数で気長にやります。
736 ：
デフォルトの名無しさん ：2011/07/13(水) 22:23:06.60
きちんとしたデータを作ればVBAで工場の予定表も作れるし、
>>734 だーかーらー
プログラマとして物作りを阻害する警察の動きに不安を感じたんだってば
>>727 のリンク先読んでから出直せよ
そんなことじゃ見せかけの民主主義かつ、中国共産党による言論統制、政府を守るためなら国民は死んでもいいって社会が日本でも永遠に続く
原子力発電のためなら国民やその子供が死んでもお構いなし、旧ソ連以下の日本のまんまだ
何か剥がれてきたｗ
初心者なので上手く伝わるかどうかわからないのですが
はい､出来ます
グループ化させた状態で作成？
開始
指定したテキストファイルの行数を返してくれる1行のステキ関数ってない？
自作
745 ：
デフォルトの名無しさん ：2011/07/15(金) 23:10:53.46
エクセルで十字カーソルが表示できない？
最近の質問者は丸投げが多いな。
教えたがりが多いので問題ナッシン
748 ：
デフォルトの名無しさん ：2011/07/16(土) 07:52:38.71
Excel2007
749 ：
デフォルトの名無しさん ：2011/07/16(土) 08:46:05.63
>>743 > 指定したテキストファイルの行数を返してくれる1行のステキ関数ってない？
split まあ帰ってくるのは数字ではないが・・・
>>748 res に何も入ってないんでは？
以下サンプル
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If vbNo = MsgBox("閉じる？", vbYesNo) Then
Cancel = True
End If
End Sub
>>750 あっ～そうだ！w
すんませんでしたぁm(_ _)m
>>743 ステキ関数はないけど1行で書くのは可能
Debug.Print CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\test.txt", 8).Line - 1
ただしファイルの末尾が改行コードじゃなかった場合は1行少ない数値が取得されるんで、
そのあたりをちゃんと処理するには面倒なコードが必要
何を調べればよいか解らないんだよたぶん
754 ：
初心者 ：2011/07/17(日) 08:09:27.83
初心者質問です。
756 ：
初心者 ：2011/07/17(日) 09:34:21.06
>>755 resize(1,3)とおなじ意味だったのですか。ありがとうございます。
もう1つ聞きたいことがあるのですがすみません、よろしくおねがいします。
さっきの
a=range("A1").CurrentRegion.resize(,3).select
の下に、
for z= 1 to ubound(a,1)-1
とあるのですが ubound(a,1)-1 の意味がわかりません。
下記サイトでuboundを調べたのですが、、、よくわかりません。
http://msdn.microsoft.com/ja-jp/library/cc437658 (v=vs.71).aspx
すみませんが少し教えてください。お願いします。
757 ：
755 ：2011/07/17(日) 10:03:01.80
>754,756
>756
759 ：
デフォルトの名無しさん ：2011/07/17(日) 10:37:52.96
はじめまして
761 ：
デフォルトの名無しさん ：2011/07/17(日) 10:54:21.90
760
762 ：
760 ：2011/07/17(日) 11:01:38.11
>761
763 ：
760 ：2011/07/17(日) 11:04:29.42
762の自己レス
764 ：
初心者 ：2011/07/17(日) 11:36:32.72
>>758 すみません、a=range("A1").CurrentRegion.resize(,3).select ではなく
a=range("A1").CurrentRegion.resize(,3).value でした。 ほんとうにすみません。
msgboxをつかってこんな確認もできるのですね。勉強になりました。
765 ：
デフォルトの名無しさん ：2011/07/17(日) 11:55:49.30
おしえていただきたいです
>>759 "金額は、"でSplit、For ～ Uboundで回してVal
Forは1からにすること
>>765 教科書通りに書けば戻りません
むしろ最初に戻す方が手間がかかる
下手くそなとこを教えない方がいい。
100列300,000行のデータがあります
771 ：
デフォルトの名無しさん ：2011/07/18(月) 08:26:58.63
おしえて下さい
>>770 一列取り込んで一行出力を繰り返すだけ。
>>771 RegExp使うのが一番手っ取り早い。でなければ、一文字ずつ走査していくしかないな。
数字以外の文字を空白に変換→Splitで分割→数字の入っている要素のみ取り出す、とか
773 ：
デフォルトの名無しさん ：2011/07/18(月) 09:39:32.71
772
Mid$でちまちま置換していく。
>>53 $がつくのとつかないのでは意味はどう変わるのでしょうか？
Mid/Mid$関数の話なら、$が付く方の返り値はString、付かない方はVariant。
777 ：
デフォルトの名無しさん ：2011/07/18(月) 14:23:51.57
Like "#" の意味 御教示を。
779 ：
778 ：2011/07/18(月) 14:42:17.11
なので、小数の場合は都合が悪いことになるはず。
そこまでいくと、
>>771 の意図している数字の定義を確認する必要があるな。
指数表記は流石に無いとしても、コンマ表記や符号等も考えられるし。
>771は ひょっとして>759ですか？
782 ：
775 ：2011/07/18(月) 15:11:58.04
>>776 Midステートメントで$を付けるのは無意味。
エクセルにcsv等のテキストファイルをドラッグアンドドロップすると新たにワークブックとして開かれますが、
785 ：
デフォルトの名無しさん ：2011/07/18(月) 15:24:28.86
はい771=759です。
>785 元データが１列なら、少数やマイナス値を含む数字で区切る処理はこんな風になります。
For i = 1 To Len(str_i)
str_o = wk: flg_sv = flg
789 ：
786 ：2011/07/18(月) 17:11:38.07
数字部分だけの抽出ではなく、文字列部分もsheet2に出力したいのであれば、
お手数おかけいたしますが、、、、知恵を拝借いたしたく
http://www.dotup.org/uploda/www.dotup.org1802759.zip.html 解凍パス Excel 中身 testtest.xls
テキストボックスに入っている文字列に対して検索する処理を考えています
sample1では複数の検索対象文字列があっても選択されるのは見つかった最初の
語句のみなんで続けて次の対象文字列も選択させたいの(sample2)、ですが、、
ここで行き詰っています。
---------------------------------------------------------------------
検索用のボタンを押すことによって続けて検索させたいのですが、
Instr関数の部分でエラーになっています。
findpos = 1にすればエラーにはならないものの当たり前のことながらsample1
と変わらない動作になってしまいますし。
sample2においてどうすればいいか教えてください。m(_ _)m
791 ：
デフォルトの名無しさん ：2011/07/18(月) 17:36:01.39
>>786 771です。ありがとうございました。
いただいたプログラムをサブルーチンに組込み、試してみようと思います。
文字列はどの変数に割り当てるのでしょうか。
結果はどの変数になるのでしょうか
792 ：
786 ：2011/07/18(月) 17:50:15.73
>791
793 ：
786 ：2011/07/18(月) 18:12:26.12
自己レス
>>792 790です。もう少し考えてみます
後でまたするかもしれませんが、よろしくです。
795 ：
デフォルトの名無しさん ：2011/07/19(火) 12:33:37.91
792
少しは自分で考えようぜ
>>2 > ★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み
> コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
> ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
>
そもそもCELL(1.10)ってなんだ？
とりあえず何を聞きたいのか処理ごとにまとめてくれるＥＳＰいないかね
CELL(1.10)はCells(1, 10)の書き間違いだってエスパーじゃなくてもわかるだろ
Cells(1, 10)をCELL(1.10)を書き間違えることに寛容なおまいらｗｗ
幼稚園児に怒っても仕方ないだろ
>>799 そこじゃねえよ
>>771 から続いてる流れが、結局どこを目指してるのかを聞かせてくれ
何をしたがっててどういう状況で果たしてどのような処理をしたいのだろうか
この程度のことがわからない役立たずはレス付けるな
CELL(1,10)をコンパイル時にCells(1,10)にできないやつはレスつけるな
>>802 ＿＿＿_
／ ＼
／ ⌒ ⌒ ＼ 何言ってんだこいつ
／ （●） （●） ＼
| ､" ﾞ)（__人__）" ） _＿＿＿＿＿＿＿＿＿_
＼ ｡｀ ⌒ﾟ:j´ ,／ml jﾞ~~| | | |
＿＿／ ＼ |_＿| | | |
| | / , ＼ｎ|| | | |
| | / / r. （ こ） | | |
| | | ⌒ ーnｎｎ |＼ (⊆ｿ .|_|_＿＿＿＿_＿＿＿＿_|
￣ ＼＿_､("二）￣￣￣￣￣ｌ二二ｌ二二 ＿|_|＿_|＿
何がやりたくてどこに向かってるかよくわからんのは確かだが
とりあえず
>>795 は正規表現覚えたほうがいいんじゃね
CELL(1.1)はCells(1,1)だとして、マイナス記号と小数点も考慮すると
（俺も正規表現あんまり自信ないんだが）
Sub test()
Dim regEx, Matches, Match
Dim col As Integer
Set regEx = CreateObject("VBScript.RegExp")
regEx.Pattern = "-?\d*\.?\d+"
regEx.Global = True
Set Matches = regEx.Execute(Cells(1, 1).Text)
For Each Match In Matches
Cells(1, 10 + col).Value = Match.Value
col = col + 1
Next
End Sub
でいけるんじゃね
とりあえずこれ理解するまで勉強してくれ
806 ：
デフォルトの名無しさん ：2011/07/20(水) 09:54:25.54
仮にエクセルのB列にURLの一覧があるとします。
771か？
お礼とかいらないから
回答とかいらないから
質問とかいらないから
夢とか
812 ：
デフォルトの名無しさん ：2011/07/20(水) 14:52:57.70
いらないシリーズごくろうさん
ねぎらいとかいらないから
814 ：
デフォルトの名無しさん ：2011/07/20(水) 20:45:13.30
>>786 771です。プログラム実行しました。
たいへん役に立ちそうです。ありがとうございました。
一つだけ気になった点。sheet1に、もし空白行があったらそこで
アウトプットがとまってしまうようです。この辺も改善できればお願いします。
815 ：
デフォルトの名無しさん ：2011/07/20(水) 20:49:10.63
VBAは初めてです。回答よろしくお願いします。
816 ：
デフォルトの名無しさん ：2011/07/20(水) 20:55:12.00
>>807 771です
見る暇もなく返信遅れたようです。
>>806 ひとつの方法として
1. IEオブジェクトを生成し B列にあるURLでページを開く
2. ページを開いたIEオブジェクトからメタタグの情報を取得する
って感じかな？
>>815 コピー、ペーストってのは、基本的にはクリップボードに対する情報のやりとりなので
①コピー処理でクリップボードに値をセットしてあげれば、②貼り付けは普通に行える
クリップボードに対する処理はググれば出てくる。簡単なサンプル書いてみた
Sub rownumberCopy()
Dim r, c
Dim s As String
Dim cb As New DataObject
Set r = Selection
If TypeName(r) <> "Range" Then
Exit Sub
End If
For Each c In r
s = s & CStr(c.Row) & vbCrLf
Next
cb.SetText s
cb.PutInClipboard
End Sub
選択範囲が複数列だったらどうするとかは考慮してない
VBA初心者なら、サイトよりなんか入門書を買う方がいいと思うが
ある程度使えるようになれば後はググれば大概なんとかなる
ググったことしかないから俺はいつまでたっても底辺なのか…
820 ：
デフォルトの名無しさん ：2011/07/21(木) 13:56:52.70
806です。
>>817 さん、そのやり方だと、ちょっと時間が掛りすぎてしまいませんか？
できれば、スマートに出来ればありがたいのですが・・・。
どなたか教えてください！お願いします！
822 ：
817 ：2011/07/21(木) 15:15:50.64
>>820 スマートにですか.....ふむ
スマートかどうか？だけど
実際自分が過去にやった事がある方法を紹介してみる
該当URLのHTMLファイルをダウンロード(APIの"URLDownload"なんかで)した後
VBAでテキストファイルとして読み込ませてしまう
あとは文字列検索(InStr関数とかMid関数とかとか駆使して)目的の情報をさがす
・HTMLファイルがShiftJIS以外で書かれていたら文字コード変換しないとダメだったりする
・実行時の見た目はスッキリするけど コードは複雑になるかも
823 ：
817 ：2011/07/21(木) 15:24:32.28
誤 APIの"URLDownload"なんかで
>>820 スマートと言うなら、Excelではなく、javascript使ったら？
コード変換もいらない
で、その結果Tableにでも出力してExcelに張り付ける
jquery メタタグ で検索かければ参考にはなると思う
板違いはゴメンだけど
825 ：
817 ：2011/07/21(木) 18:29:49.12
>>820 この種のWebページの情報取得 自動化は
相手サーパに負担をかける恐れがある事を承知しておいてね
実際
>>822 の開発時 コードがループしてしまい
相手サーバーから IPブロックされた事があるんで
(そん時は、たしか1週間ぐらいアクセスできなかった)
岡崎市図書館事件の中の人ですか？
827 ：
817 ：2011/07/21(木) 19:23:41.93
ちがうよ
828 ：
デフォルトの名無しさん ：2011/07/21(木) 22:10:24.79
すいません
丸投げしといてもっとスマートなやり方とかどんだけ高貴なお方だよｗｗ
>>829 ちょっとくぐったら
件のお方 他質問サイトへも投稿してるみたいね
ttp://okwave.jp/qa/q6890739.html これ自体 悪い事とは思わないけど
CreateObject("MSXML2.XMLHTTP")を使った
タイトルを抽出するコードは、教えてもらった事あるみたいだから
それの応用だけなんだけどなー
自分でなんとかしようとする気ナッシングだね
832 ：
デフォルトの名無しさん ：2011/07/22(金) 15:12:38.29
すいません。ぐぐっても原因がわからないので質問をば…
833 ：
デフォルトの名無しさん ：2011/07/22(金) 16:54:05.66
806です。
>>832 NumberFormatはセルの表示形式を指定するものなのに
条件が2個、3個って一体何の話なんだ？
正負以外に任意の条件書けるとはしらなかった
IE使わずにhtmlソースを取得するのってどうやるの？
XMLHTTPでも使えば？
「板のURL」を「板のスレッド一覧のURL」に変換して
そいつを取得して解析して､解析結果をセルに代入すれば良いだけだよ
でも､URLの変換やsubject.txtの解析は
Excelとはなんら関係のないスレ違いな話なので詳細は省くが
とにかく､
>>2 ★3,★4に該当するスレ違い､ルール違反な質問なので
もうこの件ではここで質問しないでね
わかる人だけ解答してください
わかるけどスレチだから回答しない
わからないんですね
VBAでやりたいならスレチじゃないと思うけど
>844
excelのVBAでRange("A1")にある複数行のテキストをA列に1行ずつ分けたいのですがどうしたらいいですか
>846 配列からセル範囲に一度に転記ってできたっけ？
848 ：
847 ：2011/07/23(土) 14:38:51.25
847はテストのためにＢ列に出力するようにしましたが B1 を A1 にしたらいいです。
おお！ありがとうございます！
>>847 やってみた
Sub Sample()
a = Split(Range("A1").Value, Chr(10))
Cells(1, 1).Resize(UBound(a), 1).Value = WorksheetFunction.Transpose(a)
End Sub
ここは微積分もC#もできない僕チンが
嫌味のつもりなのかもしれないが､全然効果が無い件について
853 ：
847 ：2011/07/24(日) 09:20:59.93
>850
854 ：
デフォルトの名無しさん ：2011/07/24(日) 23:05:54.80
A1=0.6 B1=A
ネズミ－RND
>>854 A1～A3を配列にいれる(仮に変数AA)
100倍する
AA(1):60、AA(2):30、AA(3):10
AA(1)にはそのまま、AA(2)にはA1-A2の合計、AA(3)にはA1-A3の合計のように数字を足しこんだ値とする
AA(1):60、AA(2):90、AA(3):100
合計を求める(この場合は100)
ここまでが準備
値の選択では、RND関数を使ってまず合計値まで(0から99まで)の乱数 N を生成し、
N <AA(1) (0から59までの値) なら1番目
AA(1)<= N <AA(2) (60から89まで) なら2番目
AA((2)<= N (90以上) なら3番目
が選択されたとみなす
もっとうまいやり方がありそうだけど、ぱっと思いつくのはこんな感じ
…考えたら整数にする必要もないし、配列AAを用意する必要すらないかもしれんが
857 ：
デフォルトの名無しさん ：2011/07/24(日) 23:57:37.00
>>854 Sub aaa()
r = Rnd(1) '乱数を発生
s = 0
i = 1
Do
s = s + Cells(i, 1)
If r < s Then b = Cells(i, 2) '確率に従ってB列のデータを選ぶ
i = i + 1
Loop Until b <> "" Or i > 3 'ここにデータの個数を書く
Debug.Print b '結果の表示
End Sub
スレチだがそのパターンだけだとして
=IF(RAND()<A1,B1,IF(RAND()<(A2/(1-A1)),B2,B3))
その並び順なら
なんだここはVBAスレか
863 ：
デフォルトの名無しさん ：2011/07/25(月) 09:26:24.70
>>835 832です。
ご回答ありがとうございました。やっぱり2つまでしか設定できないんですね。
もうちょっと試行錯誤してみます。
ありがとうございました。
>>862 答えは合うよ？
条件が多いとLOOKUPの方が簡単だと思うが。
866 ：
質問させてください① ：2011/07/25(月) 12:15:03.97
セルに数式を直接入力したいと思い、ＶＢＡで以下のような記述を行っていますが、セルに設定したい変数が
※
>>866 の続きです。
①：入力したい数式を別に用意
Dim CalcStr As String
CalcStr = "=IF(ISERROR(SetSh & ""!"" & ""CN"" & HikGyo),"""",IF(SetSh & ""!"" & ""CN"" & HikGyo = """","""",SetSh & ""!"" & ""CN"" & HikGyo))"
（ＥＸＣＥＬ上では、上記式の右辺の内容がそのまま出力されてしまう。変数SetSh、HikGyoはその名前のまま、『＆』もそのまま）
②：設定した数式を、任意のセルに設定
ActiveSheet.Range("DD" & MyGyo).Formula = CalcStr
セルにセットした数式みると、セルを指定してないね
>>867 CalcStr = "=IF(ISERROR(" & SetSh & "!" & CN & HikGyo & "),"""",IF(" & SetSh & "!" & CN & HikGyo "="""",""""," & SetSh & "!" & CN & HikGyo & "))"
>>868 セットしたい数式は、まさにおっしゃる通りのものです。
SetShがシート名（String型配列から取り出す）、ＣＮは列指定のための文字列（固定）、SetShは行数（処理の進行に応じて加算）です。
②の式だけだと、セルに数式を設定したことにはならないのでしょうか。
というよりも、①の段階でセルを設定する必要がある、という解釈が正しいのでしょうか。
>>869 修正版の提示、ありがとうございます！
①：ISERRORの後の括弧も文字であるため、&で連結する必要があった
②：変数の部分に関しては""で括る必要がない（＝文字列のみ２重のダブルクォートで囲めばよい）と考えていた
であるということでしょうか。
ひとまず、家の環境で試してみます。
※スレのルールを無視して申し訳ありませんでした。
この問題で悩んでいる環境は、WindowsXP・Excel2003という環境です。
これから試してみる環境は、Windows7・Excel2010です。
こういう低レベルな処理で訳解らなくなってる奴って､
> CalcStr = "=IF(ISERROR(" & CellPath & "),"""",IF(" & CellPath & "="""",""""," & CellPath & "))"
VBAのベテランつうのも何かな
妥協点としては悪くないよ。
>>873 それが最良の正解って事ではなく､方法論の一つとして
CalcStr = "=IF(ISERROR(SetSh & ""!"" & ""CN"" & HikGyo),"""",IF(SetSh & ""!"" & ""CN"" & HikGyo = """","""",SetSh & ""!"" & ""CN"" & HikGyo))
よりは
CellAddress = "CN" & HikGyo
CellPath = SetSh & "!" & CellAddress
CalcStr = "=IF(ISERROR(" & CellPath & "),"""",IF(" & CellPath & "="""",""""," & CellPath & "))"
の方が良いだろってだけの話じゃねーの？
まー一人で触るもんなら最終的に文字数が短くなるのがジャスティス
>>865 俺は859じゃなく860なんだが、お前がワークシート関数に詳しいとは思えんなぁ。
>>860 の補足だが
0.6 A 0
0.3 B 0.6 ←=C1+A1
0.1 C 0.9 ←=C2+A2
こんな表作って=LOOKUP(RAND(),C1:C3,B1:B3)でもよかったな。
INDEXとMATCHを使うまでもなかったわ
>>859 の式って40%の確率でサイコロを2回振ることになるけど、それで正確な確率が求まるの？
1つの式の中ではRAND()は1回にしないとまずいんじゃない？
>>880 求まる。
10万個くらい式を入力して数えたら？
=IF(RAND()<A$1,B$1,IF(RAND()<(A$2/(1-A$1)),B$2,B$3))
別にさいころを二度振っても答えは出る。
883 ：
デフォルトの名無しさん ：2011/07/26(火) 21:04:50.59
大学の情報科学の課題です、まったくてがつけられていないです・・・
質問スレではあるがお前が思っているような場所ではない
ただいま
ただいマンボウ
>>883 そういうのは大学で聞けよ
何のために大学行ってるんだよ？
自分の知らないことを教えて貰うためだろ
今､大学以外で教えを乞うて､大学では自力で課題をこなしたかのように見栄を張ってもなんにもならない
解らないことは解らないと正直に言って､きちんと教わってこい
ユーザーフォームでもシートでも場所はどこでもいいので何かファイルをD&Dしたら
>>889 おぉありがとうございました
調べてから質問するようにします
これってユーザーフォームでも同様にできるんですか？
859ですが一瞬でもラウンドを２回まわすような式は避けるのがジャスティス
本人がそう言うなら仕方ないが、俺にワークシート関数を一から勉強しなおせって言ったやつどこ行った？
Openoffice使ってVBA勉強したくなったんだが、正直何から手つけて良いのかわからん
>894
>894
>>894 OpenOfficeはいい参考書が少ない
素直に本物のExcelの期間限定版を無料ダウンロードした方がいい
あと、本を買うときはちゃんと2010に対応したやつを選ぶこと
バージョンが違うとメニューのデザインなんかが変わるから、初心者はそこでつまづく
898 ：
デフォルトの名無しさん ：2011/07/27(水) 15:43:46.71
仕事で使っているファイルの印刷範囲指定を楽にするため、マクロ記録を使いながら
まずはエラー箇所の特定を。
ちょっと教えて下さい。
底の部分のコード晒しなさいよ
>>900 ですが解決しました。ありがとうございました。
903 ：
デフォルトの名無しさん ：2011/07/28(木) 23:20:45.41
コマンドボックスの内容が変わったら別のプロシージャを呼び出し
前も見たような気がしなくもない
>>903 testの引数のaはどうする予定なんだ？
多分こんな感じだろ
Sub ComboBox1_change()
Call make_combo2(ComboBox1.Text)
End Sub
Sub make_combo2(s As String)
ComboBox2.Clear
Select Case s
Case "果物"
ComboBox2.AddItem "いちご"
ComboBox2.AddItem "みかん"
End Select
End Sub
他の方法として 選択肢が少ないなら
ユーザーフォームの実行1回に対して､ComboBox1の選択は基本的に1回しか行わないなら
>>899 返信遅れました、すみません
メッセージボックスの表示は「はい」か「いいえ」しか表示されていません……
範囲指定～印刷までの式か、アドイン登録の方法か、どちらかが間違っているんでしょうか？
909 ：
903 ：2011/07/29(金) 14:28:59.51
>>905-907 答えてくださってありがとうございます。
一つのプログラムに対してもいくつも方法があるんですね。
ホントありがとうです。
>>908 実行時エラーのでたコードを特定しないと前に進まないと思うよ
EXCELのバージョンによるかもだけど
エラーメッセージが出たとき「デバック」が選べるはず
実行時エラーのでたコードが特定されてないので
違ってるかもだけど ちょっと気になった点を
アドインは開いていないと 通常使えないハズだけど開いている？
(Excel本体では見えないけど VBEからだと確認できる)
あと
アドイン・ファイル名は 印刷アドイン.xla とかじゃない？
Application.run macro:="印刷アドイン.xla!印刷マクロ"
だと思うんだけど
>>910 アドバイスありがとうございます。
仰る通り、アドイン名.マクロ名で打ち込んだらファイル名を変えても問題なく動作しました。
無知な質問にお答え頂き本当にありがとうございました。
912 ：
デフォルトの名無しさん ：2011/07/30(土) 01:36:12.16
複乳さんに質問なのじゃが
vbaでクローラ作るのって無謀っていうか馬鹿ですか？
>>913 クロールする範囲にもよるけどVBAじゃ効率悪いと思う
2chの指定した板の中を延々と特定の文字列が含まれたレスを見つけるまでクロールする奴です
>>915 たしか連続で読み込みを続けるとアクセス規制されるんじゃなかったっけ？
>>913 VBで作ってからvbaで実現する方法考えたほうが絶対に早い
読み込みだけなら割とすぐに作れる。書き込みはかなり面倒だけど
vbaはクラス作るのもややこしい上、面倒
>>913 馬鹿かどうかは判らんが友達にはなりたくないタイプ
919 ：
デフォルトの名無しさん ：2011/07/31(日) 13:37:59.87
本では標準モジュールにコードを書くよう指導されてますが
長所や短所なんてのは､特性に対して個々が勝手に判断するものだ
921 ：
919 ：2011/07/31(日) 14:06:01.39
アホが釣れてる(藁)
VBAは結構やってるけどクラスは1回もやったことない
>>922 真っ当に使うならラップして似非オーバーロードするくらいしか思いつかん
一人で作る分にはあまり恩恵に預かれない
複数人が関わって、標準モジュールだと問題ありの場合に出番だと思う
今時そんな事してるところがあるのかは知らんけど(メンテ除く)
924 ：
デフォルトの名無しさん ：2011/07/31(日) 16:01:23.27
ある程度VBAは使いこなせてますが
925 ：
デフォルトの名無しさん ：2011/07/31(日) 16:17:25.96
load
>>922 エクセルのセルが優秀すぎて、VBAだとほとんど出番が無い
>>921 真っ当な意見に､論で言い返せない故の悔し紛れ？
優秀過ぎてというか
929 ：
デフォルトの名無しさん ：2011/07/31(日) 22:35:48.28
いろんなbookやsheetを扱ってるとき
1.activebook.activesheet
>>929 ええとね、まずアプリケーションが一番上にいて、
その中にActiveなBookがいて、更にその中にActiveなSheet、SelectされたSheetがいて、
更にその中にSelectされたRangeやActiveなCellがいるんじゃない？
だから何も考えずに複数のBookを扱って対象のBookを選ばずにActiveなBookに対して処理を行うと、
本当は違うBookに処理を行いたかったのに、最後に開いたBookを処理しちゃったり
する様なことが起きるんだと思うよ。
932 ：
デフォルトの名無しさん ：2011/07/31(日) 23:06:23.23
実数を扱うとき
>>929 標準モジュールの場合はアクティブなブックのアクティブなシート､
シートモジュールの場合は､そのモジュールの属するシート､
ブックモジュールの場合､Cellsは標準モジュールと同じでアクティブなブックのアクティブなシートだが､
Worksheetsは､アクティブなブックのものではなくモジュールの属するブックのものになる｡
activeとselectは､単一のセルやシートに対して有効な操作の対象となっているものがactive､
複数のセルやシートに対して有効な操作の対象となっているものがselect､因みにbookにselectは無い｡
文字入力はCtrlキーを押しながら確定しない限り､基本的に単一セルが対象だが､Deleteキーによる消去は複数セルに有効｡
シートでも削除や移動は複数シートに対して行えるが､名前の変更は複数選択していても表示状態の単一のシートに対してしか行えない｡
このように､セルやシートでは複数に対して有効な操作と､単一のもののみに有効な操作があるのでactiveとselectが存在している｡
934 ：
デフォルトの名無しさん ：2011/07/31(日) 23:14:03.26
>>931 例えばですよ、CTRLを押しながらSHEETをクリックすれば
たくさんsheetが選べますよね
これがたぶん複数のsheetがselectされた状態だと思うんですよ
で、目の前に見えてるsheetがactiveなシート。
複数のsheetを選んでたら[作業グループ]と出るので分かります。
この状態で、「あ」と入力すると、なんとすべてのシートで「あ」が入力されるんです。
ということは、その状態ではactiveセルは各シートごとに複数存在するってこと？
>>934 Select＞Activeってだけだろ
もしかして四則演算ができない人？優先順位って概念は分かる？
936 ：
デフォルトの名無しさん ：2011/07/31(日) 23:20:57.88
例えばsheetを3つ作って、
937 ：
デフォルトの名無しさん ：2011/07/31(日) 23:23:50.65
性器のダイハツ券をしました。
938 ：
デフォルトの名無しさん ：2011/07/31(日) 23:32:54.70
また発見。
939 ：
デフォルトの名無しさん ：2011/07/31(日) 23:35:53.18
知っとるけのけ？
いやぁ、そりゃ複数選択して処理を行っているんだから同じ処理が走ると思うよ。
941 ：
デフォルトの名無しさん ：2011/07/31(日) 23:39:47.30
>>940 あなたの回答は(1)ですね
残念、はずれ
政界は(2)でした
>>941 一つと言うよりActiveなシートの方に反映されるでしょ？
SelectとActiveはその辺ちょっと違うし。
944 ：
デフォルトの名無しさん ：2011/07/31(日) 23:44:31.34
次の問題。
>>944 へぇ、両方のシートに反映されるんだ。
これは意外。内部的に一つ目とどう違う処理が走ってるの？
946 ：
デフォルトの名無しさん ：2011/07/31(日) 23:54:23.80
変数で実数を扱うとき
ユーザフォームのイベントを一時的に禁止する方法はないでしょうか？
948 ：
947 ：2011/07/31(日) 23:55:20.74
続きです
949 ：
デフォルトの名無しさん ：2011/07/31(日) 23:55:33.89
>>945 それは複乳さんが答えてくれるよ。
お～い、いるかな？
950 ：
デフォルトの名無しさん ：2011/08/01(月) 00:02:04.04
サブルーチンを呼ぶとき、
>>950 戻りが欲しいとかでない限り、明示的にcallで呼んだ方が
第三者から見ても後から自分で見てもいいと思うぞ
>>950 Callを使わないなら括弧で括らない。
何かそんな話をこのスレでずっと前に言ってた様な・・・
まぁ
>>951 の通りでいいと思う
自分は引数が無いSubプロシージャを呼び出す時に
迷ったらDouble
Single=計算スピードが速い、メモリ節約、有効桁数が少ない
いきなり伸びてるが産業
959 ：
デフォルトの名無しさん ：2011/08/01(月) 19:41:56.46
わたしはむか～しBASICという言語で、それこそ「マイコンBASICマガジン」に投稿するほど、BASICの達人でした。
>>959 今は本ではなくネットで勉強する時代に変わりました
本は物理的に大きさが限られているため、現代の複雑なプログラムをすべて説明するのは
場所が足りなくて不可能だからです
「VBA スコープ」などのキーワードで検索してください
>>959 時代が経過して、今では構造化言語、オブジェクト指向型言語、関数型言語とどんどん様変わりし、
貴方の時代のPGとは考え方も組み方もまるで変わっています。
その中でもVBAは構造化言語とオブジェクト指向言語の中間に位置する、
今の貴方の立場としては比較的覚え易い言語と言えますが、
今後の事を考えると最新のVBやC#などを最初から全て覚え直すつもりで勉強した方が、
周り道の様ですが結局速くいろんな言語に対応出来る様に思います。
特にC#などは、今までやっていたであろうBASICの知識と混合する事なく覚える事が出来るでしょう。
一つの世代が変わった言語でPGを組むと言うのは、それ程までに容易では無いと言えます。
でも「いつかはCを覚えたい」と思ってるなら先にやっといた方がいいよね
Dim x as String
"tes2"じゃなくてtes2で変数でした
Val(Mid$(x, InStr(x, "abc") + 3))
せいきひょうげん!
967 ：
デフォルトの名無しさん ：2011/08/02(火) 08:43:33.73
性器表現とは？
つかそれqrそのものじゃないのか？
969 ：
デフォルトの名無しさん ：2011/08/02(火) 09:28:41.23
Quality of Rifeですか？
970 ：
デフォルトの名無しさん ：2011/08/02(火) 09:33:04.34
VBではRnd
971 ：
デフォルトの名無しさん ：2011/08/02(火) 09:37:11.15
あれっ
972 ：
デフォルトの名無しさん ：2011/08/02(火) 09:48:42.84
おろどきました。
何がおどろきなのか判らん
VBAから他のソフトのボタンとか操作できる？
975 ：
デフォルトの名無しさん ：2011/08/02(火) 10:22:45.23
Excel 2003 , Win7 で、
976 ：
デフォルトの名無しさん ：2011/08/02(火) 10:57:39.30
>>974 できるけどSendMessageとかAPI使うしボタンのハンドル取得するまでが大変
UWSとか他アプリを操作するソフトをShellで起動した方が簡単
977 ：
デフォルトの名無しさん ：2011/08/02(火) 11:13:10.62
Form_InitializeとForm_Loadの違いとは？
979 ：
デフォルトの名無しさん ：2011/08/02(火) 13:28:48.97
>>979 VBAにはRandは無いと思うぞ
Randはワークシート関数
そしてVBAにもRndはあるんだが
981 ：
979 ：2011/08/02(火) 20:08:59.88
釣れた(ﾜﾗ
恥ずかしい勘違いをしてしまったことに気付いたときに
983 ：
979 ：2011/08/02(火) 20:32:55.48
(爆)
（核爆）
985 ：
979 ：2011/08/02(火) 20:45:58.42
藁
986 ：
デフォルトの名無しさん ：2011/08/02(火) 21:20:07.88
A1:E50の中で一番下に要素がある行を返すのと一番右に要素がある列を返す方法を教えてください
>>986 1つもなかったら0を返す
Sub aaa()
r = 50
Do While r >= 1 And cat1(r) = 0
r = r - 1
Loop
c = 5
Do While c >= 1 And cat2(c) = 0
c = c - 1
Loop
Debug.Print r, c
End Sub
Function cat1(r)
If r >= 1 Then s = WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 5)))
cat1 = s
End Function
Function cat2(c)
If c >= 1 Then s = WorksheetFunction.CountA(Range(Cells(1, c), Cells(50, c)))
cat2 = s
End Function
989 ：
977 ：2011/08/02(火) 21:52:00.99
>>987 I'm afraid I do not speak English, nor do I read it.
It would be really, truly, absolutely helpful, if you could provide me with some information regarding 'Form methods' in Japanese.
990 ：
デフォルトの名無しさん ：2011/08/02(火) 22:10:45.94
>>987 とても役立ちました
ありがとうございます！
"<"から">"まで(下のでいう<koko>,<kokomo>)を見つけ出してそれを改行コードのvbCrLfに置換したいのですがどうしたらいいでしょうか？
ユーザーフォームのラベルの文字の書式について
994 ：
デフォルトの名無しさん ：2011/08/03(水) 00:02:15.55
一つのラベルじゃ無理
>>992 Sub AAA()
Dim A As String
A = "abc<koko>def<kokomo>ghi"
A = Replace(Replace(A, "<koko>", vbCrLf), "<kokomo>", vbCrLf)
MsgBox A
End Sub
For i = 1 To r
すみませんstep -1を付けたらうまくいきました
998 ：
デフォルトの名無しさん ：2011/08/03(水) 20:14:45.49
age
＿＿＿＿＿＿ ＿＿＿＿＿＿＿＿＿＿＿
うんこチンチン
1001 ：
１００１ ：
Over 1000 Thread このスレッドは１０００を超えました。
