1read 100read
Excel VBA 質問スレ Part32 (377)
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▼
プログラミングを勉強したいのだが (141)
Windowsストアアプリ開発について語れ (114)
静的型付け言語の潜在開発生産性は今の100倍 ×3 (561)
音声合成プログラムを作りる (326)
ゲームプログラムなら俺に聞け29 (289)
MVVMについて語ろう (678)
Excel VBA 質問スレ Part32
1 :2013/10/07 〜 最終レス :2013/10/27 ExcelのVBAに関する質問スレです ___ ___ /____ヽ ____ /____\ | |´・ω・`| | /___ヽ .l |´・ω・`| ニX二 . ̄ ̄ ̄ 二X二 |´・ω・`| l 俺たちに任せろ !、 ̄ ̄ ̄ ヽ | | /  ̄ ̄ ̄/ ヽ_/ヽ、 ヽ__) \__/\_/. /_/ ノヽ_/  ̄  ̄ ̄ 前スレ Excel VBA 質問スレ Part31 http://toro.2ch.net/test/read.cgi/tech/1376371376/
2 : コード作成依頼スレです。
3 : 似たようなスレ立てんなや
4 : このスレッドは天才チンパンジー「アイちゃん」が 言語訓練のために立てたものです。 アイと研究員とのやり取りに利用するスレッドなので、 関係者以外は書きこまないで下さい。 京都大学霊長類研究所
5 : >>2 ちがいます。ここは質問スレです。 依頼だなんだというくだらない論争をやめましょうよ。
6 : >>5 ここはコード作成依頼スレです。 >>1 の「俺たちに任せろ」はこのスレのルールです。 回答者はコード作成にきちんとケツを持ちます。 本スレ http://toro.2ch.net/test/read.cgi/tech/1381151995/
7 : >>6 そんなこと言ってません。 勝手なこといわないでください。あなたはご自分のスレからでてこないでくださいよ。
8 : >>7 >>1 の「俺たちに任せろ」は嘘ってことか? 俺たちに任せろと言っておきながら、コード作成にケツ持ちませんなんて無責任なことを言おうとしてるのかな?
9 : >>8 なんでよそのスレに口出すのですか。スレちがうんだから干渉しないでくれませんか。 書いてあることそれいじょうでもいかでもありませんよ。
10 : 新しくスレ立てて勝手にやれみたいなことを言っといて その新しいスレを荒らしに来るんだから立派だよね
11 : >>9-10 そういうことを言うからには本スレには来ないっていう宣言でいいのかな?
12 : >>9 http://toro.2ch.net/test/read.cgi/tech/1381151995/5,7 7のような奴がいる限り、俺じゃなくても誰かがこのスレに書き込むと思うよ。
13 : ★★★★★★★★ ★ 俺たちの掟 ★ ★★★★★★★★ 1.ループカウンタ含め一文字変数は絶対使いません。 2.変数名、プロシージャ名等の名称は適切な名前を付けます。 3.ByRef、ByValは省略しません。 4.最低限のコメントは必ず入れます。 5.エスパーコードは書きません。 6.書いたコードは最後までケツを持ちます。 7.掟に背いたら二度とコードで回答しません。
14 : >>13 ケツを持ちますという言い回しから察するにもうひとつのスレを建てたひとですよね。 再三いいますがスレが違うんだから干渉しないでくださいよ。勝手なルールを持ち込まないでください。 あなたの身勝手なルールとあなたとのくだらない論争がいやだからこのスレを建てたんです。出てってください。
15 : じゃ★5のこともあるし、次スレに>>964 を誘導しておくか 次スレ Excel VBA 質問スレ Part32 http://toro.2ch.net/test/read.cgi/tech/1381151717/
16 : すまん誤爆
17 : 結局ここに落ち着いたのか
18 : ここが次スレか。 グダグダなテンプレが全て取っ払われてすっきりしたな。
19 : 質問です。 VB.Netで使おうと思っているのですが、 一々セルに値を設定するコードを書かなくても、アクティブレポートやクリスタルレポートの様に 一度テンプレートを作ってしまえばデータから一覧をEXCELで作ってくれる ツール?DLLファイル?があったと思うんですけど名前を忘れてしまいました。 誰かご存知の方はいらっしゃいませんか?
20 : 前スレ 01 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/ 14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/ 15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/ 16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/ 17 http://hibari.2ch.net/test/read.cgi/tech/1289182437/ 18 http://hibari.2ch.net/test/read.cgi/tech/1298240666/ 19 http://hibari.2ch.net/test/read.cgi/tech/1305754555/ 20 http://hibari.2ch.net/test/read.cgi/tech/1312435844/ 21 http://hibari.2ch.net/test/read.cgi/tech/1316931607/ 22 http://toro.2ch.net/test/read.cgi/tech/1322400978/ 23 http://toro.2ch.net/test/read.cgi/tech/1327763113/ 24 http://toro.2ch.net/test/read.cgi/tech/1334305148/ 25 http://toro.2ch.net/test/read.cgi/tech/1341722983/ 26 http://toro.2ch.net/test/read.cgi/tech/1345363310/ 27 http://toro.2ch.net/test/read.cgi/tech/1353842387/ 28 http://toro.2ch.net/test/read.cgi/tech/1359607536/ 29 http://toro.2ch.net/test/read.cgi/tech/1364689772/ 30 http://toro.2ch.net/test/read.cgi/tech/1370088822/
21 : ここはコード作成依頼スレです。 本スレ http://toro.2ch.net/test/read.cgi/tech/1381151995/
22 : >>21 テンプレのどこにも作成依頼スレとは書かれていないしここではテンプレが全て。 むこうは★5や、VB6で使えるオブジェクトのことは書いてはいけないことで がんじがらめになったのが好きなドMな人用。 使い分けだよね。
23 : >>22 >>2
24 : >>23 それはテンプレじゃなくてただのレスだよね
25 : 同じタイトルで分かり難い 分けるんだったらタイトル考えるべき
26 : うん、次スレ立てるときに考えよう
27 : という訳で、ここはコード許容スレ、 あっちはコード拒否スレと言う住み分けか。 スレタイにも作成依頼なんて一言も書いて無いし、 立てるならちゃんと別スレとしてスレタイにも書いて立てるべきだったな。 ここをコード作成依頼スレとするのはこのスレタイで立った時点でもう手遅れだ。
28 : http://toro.2ch.net/test/read.cgi/tech/1376371376/ ↑から誘導されてきました964です テーブルに小計を挿入しようと色々調べてみたんですがどうもテーブル状態だと 小計が挿入できないみたいなんで 上のURLを参考に 「"シート2"を開いたときに"シート1"にある"テーブル1"を"シート2"に テーブルじゃない状態で貼付け 貼り付けた表を項目1項目2の優先順位でソートし項目3の小計を入れる」 っていうのをマクロでやりたいんですが Private Sub Worksheet_Activate() Dim rngDat As Range Dim pvtTbl As PivotTable 'データ範囲※ Set rngDat = ThisWorkbook.Sheets("シート1") _ .Range("テーブル1").CurrentRegion このあと貼付けのとこからほとんどわからないんですがどう書いたらいいか誰かお願いします ほとんど丸投げ状態の質問ですいません
29 : >>28 本当にソートされた小計を持つ一覧作成のトリガーはシート2を開いた時でいいの? そうするとそのままだとシート2を開く度に一覧を作ろうとするけど。
30 : >>28 ちょっと待て。 なんか変数にPivotTable切ってあるけど、これは何に使うつもりだったんだ?
31 : コードで議論するんじゃなかったっけ?
32 : なに言ってんだこいつ
33 : >>31 荒らし専用Rースレに帰れや 荒らし専用Rースレ http://toro.2ch.net/test/read.cgi/tech/1381151995/
34 : >>29 OKです >>30 URLのマクロそのまま最初コピペしたようなもんなんでよけいなのはいってるかもです…
35 : >>34 あー、長ったらしくなるのと、シート側にも少し手を入れたんで 実際に作ったものをUPしたよ。 ここのアップローダーに置いといたんで 信用するなら自己責任でダウンロードしてくれ。 http://uproda.2ch-library.com/ ファイル:lib717689.xls DLキー:1
36 : 複数ある特定の文字を含まないシート名から、a1 ,b1,c1,b1…をSheet1に貼り付けする方法はありませんか? シート名取得はできたのですが不要なシートも取得してしまいます。 よろしくお願いします。
37 : dim targetworksheets as new collection dim r set r = CreateObject("VBScript.RegExp") r.pattern = "[abc]" ' "[複数ある特定の文字]" dim ws as worksheet for each ws in worksheets if not r.test(ws.name) then targetworksheets.add ws end if next
38 : テキスト文から数字のみ取り出すマクロってありますか。例えば、以下のような文がある時、数字をセルに落としたいです。 例 高さ30mの位置から質量1.0kgの球を鉛直下向きに4.9m/sで投げ下ろした。 高さ=30 質量=1 初速度=4.9 のようにしたいのですが。
39 : >>38 1文字ずつ数字かどうか調べて欲しい部分だけ連結していくしかないです For 〜 文章の文字数 If 〜 Mid 〜 数字、符号、小数点かどうか Val 文字列を数値に変換
40 : 前スレの720です。 報告が遅くなりすみません。 教えて頂いた方法を試してみましたが出来ませんでした。 >>722 さんのですが、 対象となるチェックボックスがユーザーフォーム上では無く、 シート上にあります。 (チェックボックスはActiveXのものです) for eachのところでシート上のチェックボックスを見るようにすれば出来そう、と思い 下記コードを作成してみました。 Dim c As Object For Each c In Worksheets("Sheet1").OL EObjects If c.Object.GroupName = "Group1" Then c.Value = False End If Next しかし、「このプロパティまたはメソッドをサポートしていません」とエラーがでます。 どなたかどこがおかしいか教えて頂いけないでしょうか? あと>>721 さんの方法ですが、 上記のようにActiveXのコントロールを使用しているので グループボックスがありませんでした…。 フォームコントロールを使用する機会があれば試してみます! 長文になってしまいすみません。 よろしくお願いします。
41 : >>37 ありがとうございます。 For Each ws in worksheetsで 実行時エラー 13 型が一致しません。 と帰って来ます。
42 : >>38 それ、仮に数字が取り出せたとして、それぞれの数字が何の数字なのかはどうやって判断するの?
43 : >>40 TypeName判断してるとこはどこにいったんだよ あれが何をやってるか理解してないのか
44 : >>43 ぶつぶつ言ってないでさっさと作れってことだろ。
45 : >>44 いいからお前は向こうのスレから出てくんな
46 : >>41 For Each ws in ThisWorkbook.worksheets
47 : >>46 いいなぁ。正規表現って苦手なんだよなぁ。
48 : 質問です。 上、下、左、右のキーでオートシェイプを移動させる処理を作っています。 ループを組んで移動させる様にしているのですが、 移動する度に画面更新の為、Do Eventsを呼んでいます。 そうすると、本来のEXCELの挙動であるカーソルの移動も行われてしまいます。 各キーが押された時、EXCEL本来の挙動はして欲しくありません。 バージョンは2010だとDo Eventsを呼ばなくてもうまく画面更新がされる様なのですが、 2003ではそうも行かないので、誰かご教示して頂ければありがたいです。
49 : >>42 指定したセルに落とせれば良いです
50 : >>49 いや、俺は>>42 じゃないけど、多分言いたかった事は 文章から取り出した数字がいつも決まった順序やフォーマットなのか、 要するに規則性がなければ取り出した数字がどの項目に当てはまるのかを、 どうやって判断を付けるのかということなんじゃないかと思うよ。
51 : >>42 >>49 ある文字列を長い文の中から検索し、 その直後にある数字を拾いたいのです。 身長は高く、185cm、体重はその割に軽く70.5kg,年齢は30です。 この例ですと、体重という文字を入力すると70.1が帰ってくるようなマクロが欲しいのです。
52 : >>51 最初からそう書いて欲しかった… それだと全然違うプログラムになるよ あと70.1なんかどっから出てきた
53 : 身長180cmで体重78Kg体脂肪19%ダイエット中のオレはどうすればいいんだ?
54 : 70.1ってのは70.5のタイプミスだろうなぁ(しょーもない間違いが多いタイプ?
55 : >>51 これはねぇ・・・ もう少し細部に渡って要件をつめないと作るの難しいと思うよ。 例えば文章内に同じキーワードが2回出てきたらどうするのか、とか、 文字列の被るキーワード(例えば「体重」と「体重計」)みたいのは有るのか 、とか、 数字と見なすものの扱いで、カンマは数字の桁区切りとみなすか数字以外とみなすか、とか、 符合も例えばキーワードを「値段」とした時、もしこんな文章だったらどう扱うのか 「値段は個数×金額なので、10×50で500となる」とか、他にももろもろ。
56 : コンマの処理をどうするかも難題だな 「X,Yはそれぞれ100,200です」 「値段は1,200円です」 日本語の文法解析でもしないと区切りか位取りか区別できないべ VBAでは不可能に近い プロでも逃げ出すレベルの難問になる
57 : 51です。ありがとうございます 万能なものがあれば有難いのですが いま自分が求めるものはもっと簡単です。 検索文字は身長、体重、年齢のように違う文字です。文字重複はありません。 数字にカンマはありません。小数はあります。桁数は決まっていません。 検索文字と知りたい数字の間には、数字、ドットはありません。 A1に検索文字を入力 B1に出力 文はA10からA20に貼り付けます。 これでお願いします
58 : >検索文字と知りたい数字の間には、数字、ドットはありません。 間違ました。数字、ドットはありませんではなく、 ドットが単独で存在することはありません。 です。
59 : Vbaでstring文字列の圧縮ってできますか? rest で文字列をpost するのに 圧縮してからpostしたいのですが DeflateStream, GZip が使えないっぽいので
60 : できますよ
61 : >>59 ttp://openlab.ring.gr.jp/tsuneo/index-j.html
62 : >>57 いや、まだ聞きたいことはある。 キーワードに対して必ず数字は存在するの? 後、符合は?特にマイナス。
63 : >>35 お礼が遅くなりました ありがとうございます まだ使ってみてなんですが明日使ってみます
64 : >>43 typenameの所ですが、すみません。 理解していませんでした。 調べて入れてみましたが、動きませんでした。。 私が書いたものを少し変えて、 Dim c As Object For Each c In Worksheets("Sheet1").OL EObjects If c.Name = "aaa" Then c.object.Value = False End If Next としたところ動作はしたのですが、これでは名前を取得しているので本来の目的のグループネーム毎に切替えるができません。 nameのところをgroup nameにするとまた「このプロパティまたはメソッドをサポートしていません」とエラーがでます。 チェックボックスではグループネームを取得出来ないのでしょうか? 何回もすみませんがどなたか分かる方よろしくお願いします。
65 : >>57 (1) 文字列をInstrで検索、それが判定のスタート位置になる (2) Midで1文字ずつ判定して、数字が出てくるまで探す (3) 数字、小数点以外が出てきたら終了 これだけ
66 : >>65 コード作成依頼スレなんだから作ってやればいいじゃん。 文章での回答を嫌ってる回答者が立てたスレなんだから。
67 : こんなんでいいか? ' 文字列sから単語wを探して、その直後の数値を返す Function SearchNum(s, w) p = InStr(s, w) Do p = p + 1 Loop Until Val(Mid(s, p)) Or p > Len(s) SearchNum = Val(Mid(s, p)) End Function
68 : >>61 どう使うんですか?
69 : 回答している人はどこでどうやってEXCELやMacroを勉強したのでしょうか? 上司には「いずれ結果は出るだろうけど、歩みが遅すぎる。私のマクロを見て勉強しなさい。」 と言われました。 そんな上司のマクロはぐうの音も出ないものですが、Dimがないのとifが多くてさっぱりわかりませんでした。
70 : Option Explicitもないようなソースを作っておいて自分のマクロを見て勉強せよとは片腹痛い
71 : >>69 そういうコード作成依頼ではない質問は本スレへ。 Excel VBA 質問スレ Part32 http://toro.2ch.net/test/read.cgi/tech/1381151995/
72 : >>69 Dimが無い人の言うことは聞き流せばOKです。
73 : Dimがないとか欠点を指摘できてる時点でわからないふりしてるだけにしか見えない 性格悪い
74 : >>71 このスレはコード以外も許容している。 何度も言うが、お前はそのスレからこっち来るな。
75 : >>73 わたし処女なの とか言いながら 玉なめしてくるような違和感ですね わかります
76 : >>71 がこのスレとあのスレを建てた確率99%
77 : ワークシート上で使いたいのですが、 条件を満たす文字列と一致する文字列を含む他のブック上のセルの位置を返す関数 を教えてください。
78 : >>76 いや、俺も最初そう思ってたけど、 このスレを立てたのは別人だろう。 最初の方のレスを見ると合点がいくはずだ。 しかも向こうは本スレと言い張っているが、 タイムスタンプを見てもこちらの方が立ったのが早い。 向こうのスレは削除依頼を出せば重複スレとして さっくり削除されるレベルって事だ。
79 : >>78 本当にそうなら素直に感心する
80 : >>74 それはない。 勝手にスレタイを付けて、>>1 に前スレとしてExcel VBA 質問スレ Part31を 記載してるだけのコード作成依頼スレでしょ。 もっと言えばこのスレに前スレなんてない。 このスレは今までのExcel VBA 質問スレの過去スレの趣旨と反している訳で本スレとは言えない。 本スレはこっち Excel VBA 質問スレ Part32 http://toro.2ch.net/test/read.cgi/tech/1381151995/ 今まできちんとしたテンプレがあったスレが、いきなりまともなテンプレもないスレになるなんてありえない。 しかもこのスレのこれまでの内容のほとんどは質問じゃなくてコード作成依頼だし。 コード作成依頼であれば何も言わないけど、>>69 のような内容はこのスレの趣旨とは違う。
81 : >>80 消えろ
82 : 推奨NGワード 「コード作成依頼」
83 : >>77 Find
84 : >>75 /\___/\ / ⌒ ⌒ ::: \ | (●), 、(●)、 | / ̄ ̄ ̄ ̄ ̄ | ,,ノ(、_, )ヽ、,, | < やるじゃん | ト‐=‐ァ' .::::| \_____ \ `ニニ´ .:::/ /`ー‐--‐‐―´´\
85 : >>64 Dim c As Object For Each c In Worksheets("Sheet1").OLEObjects If TypeName(c.Object) = "CheckBox" Then If c.Object.GroupName = "Group1" Then c.Object.Value = False End If End If Next >チェックボックスではグループネームを取得出来ないのでしょうか? チェックボックスでは取得できるが、それ以外では取得できない(出来るやつもあるけど) OLEObjectsにはチェックボックス以外も含まれてるから、それがチェックボックスかどうか判断してるのがIf TypeName の所
86 : >>80 お前の思い込みなんてどうでもいい。 こっちのスレとあっちのスレ、どっちを今後本スレとして使うのかはスレの住人が決めることだ。
87 : >>69 本読んだり仕事仲間に教わったりしてかな。 最初にいい仲間に恵まれると、こう組むといいよって色んな意見が聞けるから、成長も早いと思うよ。 いい仲間に恵まれないと、平気でOptionExplicit付けなかったり、本来クラス化したり関数化しなければ いけない所を一直線にズラーっと書いていい感じにスパゲッティソースにしたり それで威張って部下から煙たがられたりするよ。
88 : >>86 質問する場所はスレの住人じゃなくて質問者が決めること。 スレの住人なんておかしなことをいう奴だな。
89 : >>88 いい加減向こうの糞スレに帰れよ。 こっちはみんないい感じでやってるんだ。 自分の立てた糞スレで人に意見押し付けて好きなだけ暴れ回ってろ。
90 : いいんじゃない? 質問者はみんなこっち選んでるみたいだし
91 : 自演臭いけどなw
92 : >>91 ここまで全部俺の自演でもいいから とっとと自分の立てた糞スレに帰りなさい。 羨ましそうに荒らしに来ない様に。
93 : >>92 ということは、自演することで本スレかのように見せてるのか。 コード作成依頼の内容なら何も言わないけど、それ以外の質問なら本スレに誘導させてもらうよ。
94 : >>93 誘導する前に何か書き込まないとDat落ちするぞーw
95 : >>93 スレタイは「Excel VBA 質問スレ」だけど 質問者がこっちのスレがいいと判断して質問してる。
96 : >>95 >>92 が自演してるって言ってるんだから自演でいいんじゃね?
97 : まー、いざとなったら削除依頼だせばいいんじゃない? 試しにこっちのスレの削除依頼出してみてこっちのスレとあっちのスレ どっちが削除されるか少し興味ある。
98 : >>93 これ以上ウダウダ言うならむこうの糞スレ、削除依頼出させてもらうよ。 >>97 つガイドライン
99 : 質問させて下さい。 複数のオートシェイプにマクロ登録をしているのですが、 結構数があるので別呼び先にすると〜_Clickの様なイベントだらけになってしまいます。 似た様な処理なので呼び先を一つに纏めたのですが、 その後どのボタンが押されたのかを判断したいです。 出来れば内部であまり分岐を増やしたくないので、 Senderのオブジェクトで判断するのではなく、オートシェイプに引数を持たせることは可能ですか?
100read 1read
1read 100read TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
【Lisp】プログラミング言語 Clojure #3【JVM】 (100)
Visual Studio 2005 Part 27 (142)
【漏れは】猫でもわかる質問スレ【猫以下です】 (496)
Git 7 (190)
【Lisp】プログラミング言語 Clojure #3【JVM】 (100)
【Lisp】プログラミング言語 Clojure #3【JVM】 (100)
--log9.info------------------
■■■怪獣ガレージキット7■■■ (139)
AFVヤフオクヲチ 9 (164)
キャラホビ総合スレ その8 (614)
【GBF】ガンダムビルドファイターズ 改造4回目 (1001)
【LBX】ダンボール戦機【47機目】 (134)
【AIRTEX】エアテックス エアブラシ総合5 (585)
なスロットカーは日本では極めてマイナー (101)
ガイアノーツ総合スレ16 (604)
【TRPG】メタルフィギュア総合スレ5【warhammer】 (356)
【PG】パーフェクトグレード総合 (748)
この話本当? (110)
フィギュアスクラッチ総合69 (620)
マクロスシリーズ統合スレッド 46 (224)
バンダイ 1/20ボトムズ☆20−フィアナ (106)
★アンドロメダ★宮武メカ★アルカディア★ (280)
枢軸国AFV研究室 (142)
--log55.com------------------
最近の乃木坂運営ってスキャンダルメンバーにやけに甘くね?スキャンダル出さない欅坂を見習えよ。
乃木坂ワードで一番懐かしいものを出した奴が優勝
常連選抜なのに若月の存在感の薄さ
川村の卒業と生駒の卒業を新規にも分かり易く例えて欲しい。。。。
☆【悲報】乃木坂46白石麻衣と関ジャニ∞安田章大、やはり交際していた★2
現アンダーで絶対に選抜に入れないだろうなってメンバーは誰?
松村沙友理に関わる後輩ってアンダーばっかりだけどやっぱり松村に養分を吸い取られてるからかな?
めちゃめちゃ生駒ヲタだけど乃木坂20thシングルは生駒ちゃんはアンダーでいいと思うのよ。めちゃめちゃ生駒ヲタだけどね!!