22/02/18 16:04:07.81 +5TWcNgJM.net
C++系でクラスメンバーに _ 付けたりするよりは . 強制のVB のがわかりやすい
128:デフォルトの名無しさん
22/02/18 16:12:26.42 mnS8isni0.net
VBとVBAを混同してしまう
129:デフォルトの名無しさん
22/02/18 17:12:34.16 9dJRbxWs0.net
VB更新止めるならビジュべー7作ったらVBAからの乗り換えで大人気になるかも
本職の人は発狂しそうだけど
130:デフォルトの名無しさん
22/02/18 17:40:13.70 v2iRKHri0.net
ならんよ
131:デフォルトの名無しさん
22/02/18 18:34:46.08 9dJRbxWs0.net
>>127
4文字で撃破 笑
132:デフォルトの名無しさん
22/02/18 21:31:15.96 /GJYcSex0.net
イベントでメッセージボックス起動するだけじゃ
進む戻るの履歴は消えないんだな
良かった良かった
133:デフォルトの名無しさん
22/02/19 00:17:14.09 mx39evoXM.net
RelaxTools AddinからTortoiseSVNに繋げる方法が
バージョン管理の手法としての最善策ですか？
134:デフォルトの名無しさん
22/02/19 01:15:29.08 1GYJVttN0.net
そういやvbaでバージョン管理っていい方法あるのかな
ドロップボックスに丸投げしてるからよく知らないや
135:デフォルトの名無しさん
22/02/19 02:51:28.34 evvGZLor0.net
昔はOFFICE DEVELOPERとかいうのがあって、たしかVSSだったと思うがバージョン管理できた
ACCESSとか2007ぐらいまではTFSにつなぐアドインもあった
この辺の仕組みって、基本的にはソース管理プロパイダで差し替えできるようになってたはずなんだがなぁ
あんまり情報もないんだよな
136:デフォルトの名無しさん
22/02/19 05:57:33.40 GK0tMJPG0.net
Microsoft製バージョン管理システム
VSS(ソース管理はVSS)
↓
TFS(ソース管理はTFSまたはVSS)
↓
AzureDevOps(ソース管理はGitまたはTFS)
137:デフォルトの名無しさん
22/02/19 07:12:39.37 sDFYuIo+M.net
TFS(TeamFoundationServer)は製品名
ソース管理はTFVC(TeamFoundationVersionControl)
138:デフォルトの名無しさん
22/02/19 07:37:52.31 GK0tMJPG0.net
>>134
間違った理解で適当なこと書き込んですまなかった
確かにTFVCと呼ぶ方が正しいな
URLﾘﾝｸ(i.imgur.com)
URLﾘﾝｸ(docs.microsoft.com)
139:デフォルトの名無しさん
22/02/19 09:03:14.67 5qKPM2PV0.net
SVNで間に合ってる
140:デフォルトの名無しさん
22/02/19 09:23:14.09 VKF1jqEnM.net
時々のマクロファイル保存で間に合ってる
141:デフォルトの名無しさん
22/02/19 10:11:08.00 1GYJVttN0.net
vbaでそんな巨大プロジェクト作らないから、ドロップボックスでいいかな・・・
142:デフォルトの名無しさん
22/02/19 10:47:12.21 1AFURcFW0.net
マイクロソフト製品なんだから
One Driveでいいだろ
143:デフォルトの名無しさん
22/02/19 11:07:16.61 gdvHyp150.net
ちゃんとやるのは最初だけ
144:デフォルトの名無しさん
22/02/19 11:11:58.36 1GYJVttN0.net
One Driveはバグが多すぎるから絶対に無理ｗ
145:デフォルトの名無しさん
22/02/19 11:33:30.74 7kiLsofr0.net
バージョン管理なんてエクセルファイル名にver1.0とか含めておけばいいんじゃないの？
146:デフォルトの名無しさん
22/02/19 11:37:15.90 1GYJVttN0.net
売上報告_最新_最終版コピー（2）_old決定版.xlsm
147:デフォルトの名無しさん
22/02/19 11:54:53.81 x/upE6G90.net
>>141
どんなバグがあるの？
148:デフォルトの名無しさん
22/02/19 12:05:18.04 1GYJVttN0.net
>>144
復元できないという致命傷
onedrive バグ などで検索すると出てくるよ
先週ぐらいもあった
149:デフォルトの名無しさん
22/02/19 14:20:31.32 4xnJtOkW0.net
回答を待たずに見切り発車でTortoiseSVNを導入しようとして
サーバーエラーの解決ができずに数時間のたうち回っている
バージョン管理なんておいらには高等技術過ぎたかもしれねぇ…
150:デフォルトの名無しさん
22/02/19 14:35:17.05 x/upE6G90.net
>>145
同期関連か、まあそれを信用するのは時期尚早やな
151:デフォルトの名無しさん
22/02/19 15:26:08.63 1GYJVttN0.net
>>146
TortoiseSVNは割とガチ環境。導入のハードル高いからマジでやめたほうがいいぞ
ドロップボックスか、googleドライブに同期させておくぐらいがちょうど良い
バージョン管理って大層なものを導入しなくても、
コードの中に「ｘｘまで実装した。残りｙｙ」みたいに書いておけば
それなりに使いやすいバックアップになる
どうせVBAなんてブランチ切るとかそんなことしないから一本道でヘーキヘーキ
152:デフォルトの名無しさん
22/02/19 15:26:52.07 1GYJVttN0.net
なお俺もTortoiseSVN挑戦して挫折した一人
かなり癖あった気がする
153:デフォルトの名無しさん
22/02/19 15:41:34.88 evvGZLor0.net
まあいまどきならgitが楽でいいんじゃね
サーバ側でなにもしないならファイル共有さえすればバージョン管理サーバとして使える
VBAはエクスポートしてバージョン管理だな。そこまでする必要があるものは少ないけど
>>142
エクセル丸ごとで管理するだけならな
ソースの修正箇所の履歴とか差分とかとるときにバージョン管理が必要なんだよ
154:デフォルトの名無しさん
22/02/19 16:13:02.46 x/upE6G90.net
>>146
自分一人で使うならサーバーなんて要らんよ
リポジトリをローカルファイルシステムに作ればいいだけ
外部参照とかの一部の機能が使えなくなるけど
具体的な操作は流石にスレチだから聞きたいならこちらで
バージョン管理システムについて語るスレ10
ｽﾚﾘﾝｸ(tech板)
155:デフォルトの名無しさん
22/02/19 16:22:07.18 5qKPM2PV0.net
TortoiseSVNはクライアントだよぉ
サーバーわかんないならgit hub使えば良いんでない？
156:デフォルトの名無しさん
22/02/19 16:40:13.61 71RYd9t40.net
gitとsvnはなんか概念違うから最初にsvnから入るとgitが分かりにくくなるって聞くな
157:デフォルトの名無しさん
22/02/19 16:57:02.53 V3h8uUoVM.net
概念というかポリシーが違うから馴染めないというのはあると思う
Linux みたいな巨大なアプリでなきゃ SVN の速度でもたいして困らんし
158:デフォルトの名無しさん
22/02/19 17:18:28.82 PJU9YEhh0.net
Excel板覗いてきたけど、関数を入力するときに＝+って入力している人がいた。それはマニアな人だよね？
159:デフォルトの名無しさん
22/02/19 17:37:22.02 1GYJVttN0.net
>>155
それ俺なんだけど、
・「=」の売り間違えが嫌い
・「+」は絶対に打ち間違えない
ので、
数式は
+A1
160:-B1 と入力してる excelの仕様上、+で始まっている数式には更に＝が追加される模様
161:デフォルトの名無しさん
22/02/19 17:56:27.92 sU8KQZKj0.net
世の中に絶対など無い・ある どっち？
162:デフォルトの名無しさん
22/02/19 17:59:47.25 8XK4gjnm0.net
ない
163:デフォルトの名無しさん
22/02/19 18:11:04.25 PJU9YEhh0.net
たまに+で入力している人見るから。ちょっと思い出して
164:ハノン
22/02/19 18:48:24.57 wlwakG6U0.net
>>148
私はドロップボックスに RCS のレポジトリを置いていたのですがユーザー認証が厳しくなったときにレポジトリ全部がおじゃんになってしまいました、これは痛い、痛すぎる…
もう懲りてバージョン管理システムを使わなくなってしまった…
そろそろ git をはじめようかと思案中です
165:デフォルトの名無しさん
22/02/19 18:58:23.53 lALNUlVh0.net
絶対など絶対にない！
166:デフォルトの名無しさん
22/02/19 21:45:46.48 gdvHyp150.net
絶体絶命でも死なない
167:デフォルトの名無しさん
22/02/21 01:45:01.56 OrVm1a1F0.net
絶対領域ならある
168:デフォルトの名無しさん
22/02/21 02:37:10.15 i+Nk/hZw0.net
絶対可憐
169:デフォルトの名無しさん
22/02/21 02:52:14.84 OIlsWcuQ0.net
絶対音感の自分が通りますよ
170:デフォルトの名無しさん
22/02/21 06:15:17.92 9b7axwXE0.net
絶対運命黙示録
171:デフォルトの名無しさん
22/02/21 08:43:58.11 uSPFSI8K0.net
絶体絶命
172:デフォルトの名無しさん
22/02/21 09:01:35.23 n81sYxUz0.net
絶対なんて言葉、VBA上では絶対値くらいちゃうの？
複数Shape並べる時とかの座標を絶対値にするかLoop中の計算追い寸にするかいつも迷う
173:デフォルトの名無しさん
22/02/21 10:12:19.05 i+Nk/hZw0.net
絶対参照⇔相対参照ってのもあるぞ
現実に「絶対」はないとされてるけど、コンピューターの世界では割とよく出てくる言葉の一つ
174:デフォルトの名無しさん
22/02/21 13:18:00.34 zel+kn1IM.net
>>169
その絶対は意味合いが違うと思うぞ
175:デフォルトの名無しさん
22/02/21 13:31:12.92 2STuN7VvM.net
絶対零度を超えると時間が巻き戻るからな
176:デフォルトの名無しさん
22/02/21 13:49:17.52 V2QoZaN/M.net
絶対値、絶対音感、絶対領域は形容詞
絶対参照、絶体絶命は形容動詞
区別する方法は、後半が動詞になるかどうか、つまり「参照する」「絶命する」はあるけど「音感する」「領域する」とは言わない
177:デフォルトの名無しさん
22/02/21 14:04:18.08 4epPW0O6a.net
>>169
言葉や概念としての「絶対」があるかといえばある
178:デフォルトの名無しさん
22/02/21 14:40:29.16 zel+kn1IM.net
>>172
なぜ有能がここに迷い込んできたのか
179:デフォルトの名無しさん
22/02/21 14:41:00.68 IVAAebPQ0.net
>>172
すごい（語彙）
180:デフォルトの名無しさん
22/02/21 16:13:18.73 kWGdoALl0.net
全部名詞やん
181:デフォルトの名無しさん
22/02/21 20:31:11.80 8rVxF2Gw0.net
絶対に負けられない戦いに負けたらどうなる？
182:デフォルトの名無しさん
22/02/22 00:40:55.58 OzXpMxHE0.net
それが今の日本です
183:デフォルトの名無しさん
22/02/22 16:24:40.19 0TsP51M+0.net
Excelコンテストで勝つ！
184:デフォルトの名無しさん
22/02/22 16:51:35.21 9f6q+kU90.net
なんぞ？ と思ったら一昔以上も前のぢゃねーか！
URLﾘﾝｸ(xtech.nikkei.com)
こういうことやり続けてきたから間違ったExcelerが繁殖しちまったんぢゃねーのか？
なあにが 営業成績表彰システム ぱ か ぱ か だっつーの 遊んでんぢゃねぇよ！
185:デフォルトの名無しさん
22/02/24 14:20:26.28 PuX8FwU40.net
同じpcに開かれている別のエクセルのプロシージャを実行することてできる？
186:デフォルトの名無しさん
22/02/24 14:23:40.68 pVKiKajRM.net
同じプロセスなら普通にできるだろ
187:デフォルトの名無しさん
22/02/24 18:15:16.40 iej9QTZYa.net
普通のExcelの質問していいですか？
188:デフォルトの名無しさん
22/02/24 18:16:27.79 ozL7dLyM0.net
どうぞ
189:デフォルトの名無しさん
22/02/24 18:33:03.41 iej9QTZYa.net
ありがとうございます！
日付だけを縦にずっと入力していくのですが、じょうごマークで絞り込みを開くと
「2022年」「1月 2月…」とあり、「1月」の「+」マークを開くと更に日付が「1日 2日 3日…」と
入力したものがでてきますよね。その「+」マークを開かなくても2022年と同じ左詰めで「1月3日」というのがあって
1/3だけ半角で何度入れ直しても「2022年」「1月」の中に入らないんです。
しかも「1月」の「+」マークを開いても「3日」があり、絞り込むと左詰めの「1月3日」と同じ項目が出てきます。
意味が分からなかったらすみません。分かる方いらっしゃったら教えてください。
190:デフォルトの名無しさん
22/02/24 18:48:46.05 ozL7dLyM0.net
>>185
文字列になっている
・他の日付セルをコピーして、その左詰め1/3に貼り付け
・もう一度2022/1/3と打ち直す
それでもう一度試すとどうなるか
191:デフォルトの名無しさん
22/02/24 20:31:45.10 exGzm3wL0.net
>>185
スレタイ読め
消えろ
192:デフォルトの名無しさん
22/02/24 20:51:03.24 N8+11+jZ0.net
うーわ！ 余裕無えー よっぽどストレス溜まってんだなあ 追い詰められてんだろうなあ、社内で
193:デフォルトの名無しさん
22/02/24 21:02:21.44 K0Kp1JdiM.net
>>186
おおおー！文字列になってるんですね、なるほど！明日会社でやってみます！
ご親切に教えていただきありがとうございました。
このスレの方すみませんでした。ありがとうございましたm(_ _)m
194:デフォルトの名無しさん
22/02/24 21:22:25.12 OIkOwNi30.net
>>187
おまえなんか話題振れよ
195:デフォルトの名無しさん
22/02/24 22:13:31.53 Nlim82gmM.net
さっき電車の中で向かいに若い女性の二人組が座っててさあ
196:デフォルトの名無しさん
22/02/24 23:52:39.32 CvXfU24U0.net
>>188
リアルすぎて草
197:デフォルトの名無しさん
22/02/25 03:22:55.08 hDgiDFze0.net
それで2人の会話を盗み聞きしたらさー
「職場にExcelマニアいるけどキッショいよねーwww」って言っていたよ～
198:デフォルトの名無しさん
22/02/25 14:17:15.60 QcxlogpXM.net
そして、Excelマニアが退職したあと、Excelが壊れたとマニアに鬼電するまでがテンプレ
199:デフォルトの名無しさん
22/02/25 17:06:35.52 vXWN6Ngg0.net
Excelマニアってなんぞ
200:デフォルトの名無しさん
22/02/25 21:30:18.25 Wier9kYf0.net
関数式でif文書くだけでExcel詳しい人扱いされる国
201:デフォルトの名無しさん
22/02/25 22:44:14.64 DoxyywZF0.net
シートに写真をおいて，そこにマクロを登録するのですが，
クリックしている間は処理を継続させるようにするにはどうしたら良いでしょうか？
202:デフォルトの名無しさん
22/02/25 22:51:14.84 a/ksSb5+0.net
アルミ箔とリード線使うといいんじゃないか？
203:デフォルトの名無しさん
22/02/25 23:08:55.89 sygyzO5g0.net
イベント時で MouseOver とかか クリックし続けって無かったような MouseMove だっけ なんかその辺
204:デフォルトの名無しさん
22/02/25 23:33:04.48 O9IDWaUh0.net
Excelはマニアで済むけれど
Rubyなんて宗教だもんな
205:デフォルトの名無しさん
22/02/26 00:20:17.83 SY5M7+S/a.net
単なるあだ名だろw
206:デフォルトの名無しさん
22/02/26 03:20:22.62 T7kJgkW90.net
お前はカルメンか
207:デフォルトの名無しさん
22/02/26 07:13:12.65 S41FQOKr0.net
>>200
rubyが宗教って言われるのはrubyの製作者が熱心なクリスチャンだからだよ
まさかガチの狂信者が出てくるとは思わなかったが・・・ｗ
208:デフォルトの名無しさん
22/02/26 10:24:59.15 jtqt4mXJ0.net
>>199
ありがとうございます！
209:デフォルトの名無しさん
22/02/26 18:17:50.12 duMrqy+m0.net
Excelマニアとデータ分析マニアは違うみたいね
210:デフォルトの名無しさん
22/02/26 18:30:22.44 ZAxvZ+Mc0.net
>>205
「分析」が「統計」だとすると、
最終的に中間処理やアウトプットはExcelでなくてRなんかに行っちゃうかも。
Excelは統計関係の関数がアレだし。
211:デフォルトの名無しさん
22/02/26 19:53:05.77 duMrqy+m0.net
それでも昔からみんなExcelで無理してきた感
212:デフォルトの名無しさん
22/02/26 20:05:05.05 JqjjL3aFa.net
そこでPython
213:デフォルトの名無しさん
22/02/26 20:10:28.10 bGmpH7iw0.net
言語ならRやPython
パッケージならSPSSやSAS
214:デフォルトの名無しさん
22/02/26 20:19:26.32 S41FQOKr0.net
今思えば256列の60000行でよくやってこれたなと思う
215:デフォルトの名無しさん
22/02/26 20:43:17.30 joT9B4PU0.net
今でも256列や60,000行を超える処理ならDBMSにするわ
216:デフォルトの名無しさん
22/02/26 21:51:16.00 ZAxvZ+Mc0.net
ワークシートに読込ませず、
Power Queryの「接続」(他所からクエリー)だけにしておくと
行数最大：1,048,576行
列数最大：16,384列
まで扱えるみたいだけど、なんか別の入れ物は必要・・・
Accessを入れ物にしようとすると
テーブルはフィールド数最大255、
行数はファイル全体で2GBまでということか。
217:デフォルトの名無しさん
22/02/26 22:05:30.45 8Bo34rLG0.net
Pythonは途中から
数学で出てくる数式が分からないとキツくなるからちょっと保留してRust
218:デフォルトの名無しさん
22/02/26 22:10:39.56 duMrqy+m0.net
理系向きなのね？
219:デフォルトの名無しさん
22/02/26 22:16:53.94 ZAxvZ+Mc0.net
営業でも重回帰分析だの相関係数だのやってるところもあるから・・・
統計に使う数学は
もはや文系/理系に関係ない時代の模様
220:デフォルトの名無しさん
22/02/26 22:23:53.97 XZXEjFci0.net
ID:ZAxvZ+Mc0
また知ったか馬鹿か
221:デフォルトの名無しさん
22/02/26 22:31:17.36 e5W/1zqv0.net
平均とグラフが作れればうちの所は余裕だ…
222:デフォルトの名無しさん
22/02/26 22:35:46.73 ZAxvZ+Mc0.net
>>216
知ったか？
そうかね？
デカいデータを四則演算だけで済ませられるのは
財務会計くらいやん。
223:デフォルトの名無しさん
22/02/26 23:12:20.49 S41FQOKr0.net
ダントツで扱い易いのは偏差値かな
相対的な指標としては良く使う
224:デフォルトの名無しさん
22/02/26 23:12:53.14 S41FQOKr0.net
って営業は作らんやろ
さすがにそこは営業事務が作ってあげると思う
225:デフォルトの名無しさん
22/02/26 23:51:35.28 XZXEjFci0.net
>>218
言い訳すればするほど馬鹿さらけ出し
226:デフォルトの名無しさん
22/02/27 00:09:08.97 XQfZTF0E0.net
うちの営業はExcelの使い方すら知らん
Excelなんて使わないよなー、Wordの方が使うわって会話聞いて戦慄した
227:デフォルトの名無しさん
22/02/27 03:40:18.89 vE3gjDOr0.net
Executeexcel4macroでwindowsapiを使う場合、
戻りがオブジェクトだったらどうするの?
228:デフォルトの名無しさん
22/02/27 03:54:20.37 eD286Vb90.net
祈る
229:デフォルトの名無しさん
22/02/27 06:03:46.97 So6tXBwD0.net
>>223
どうするもこうするも、setして使うしかないじゃろ
以下だってsheets関数に引数1入れて、sheetオブジェクトが返ってきてるわけだし、同じです
Set ws = Sheets(1)
230:デフォルトの名無しさん
22/02/27 06:07:27.75 a0+qdDh70.net
>>223
おまえが作ったコードは見たくないな
231:デフォルトの名無しさん
22/02/27 06:10:51.70 So6tXBwD0.net
>>226
まぁまぁ・・・
setは最初はとっつきにくいので・・・
232:デフォルトの名無しさん
22/02/27 07:03:43.76 vE3gjDOr0.net
そうじゃなくて2JNとか指定するやつ。
オブジェクトが無くて絶望的なんだけど。
233:デフォルトの名無しさん
22/02/27 07:22:28.14 So6tXBwD0.net
>>228
あぁHWNDとかの奴か。ごめん、これは昔諦めた。他の人お願い。
やりたいことを先に書けば、それっぽいコード書いてくれる人がでてくるかも
234:デフォルトの名無しさん
22/02/27 11:02:51.91 F9ScTckVM.net
すみません。 半日つぶしてもできない。ダメ男です
なんとか協力してもらえませんか？
単純に「特定文字」のある行を削除したい（その行をその下の行の二行削除したい）
'まず、獲得ポイントを削除
Dim row_po As Long
row_po = Range("A14:D150").Find("[ 獲得ポイント ]").Row
Range(Rows(row_po), Rows(row_po + 1)).Delete
この書き方でとりあえず消えるのですが、[ 獲得ポイント ]が無かった時にエラーになり止まってしまいます。
で、スルーしてほしいのですが、なにをやってもスルーしてもらえません。
なにもしないことがこんなに難しいとは思いませんでした。
ほっといて欲しいだけなのに
どうするとアホでもわかりますかね？
235:デフォルトの名無しさん
22/02/27 11:09:42.41 amhd0I0YM.net
On Error Resume Nextを頭に入れるだけ
236:デフォルトの名無しさん
22/02/27 11:27:49.32 So6tXBwD0.net
>>230
Sub foo()
'先に見つけておく
Set p = Range("A14:D150").Find("獲得ポイント")
If Not (p Is Nothing) Then
'見つかったときの処理
row_po = p.Row
Rows(row_po & ":" & row_po + 1).Delete Shift:=xlUp
Else
'ここに見つからんかったときの処理
MsgBox "見つからんかった"
End If
End Sub
>231
それやると今度はrow_po でエラーが起きる可能性絶大
237:デフォルトの名無しさん
22/02/27 11:30:41.33 F9ScTckVM.net
>>231
おおお神よ
なぜあなたは神なのか
私は知恵熱っぽくまでなったのに
ちなみに検索するとエラーが全部キャンセルされるみたいなんですが、一応範囲を決めるとして
'まず、獲得ポイントを削除
On Error Resume Next
Dim row_po As Long
row_po = Range("A14:D150").Find("[ 獲得ポイント ]").Row
Range(Rows(row_po), Rows(row_po + 1)).Delete
On Error GoTo 0
で大丈夫な感じですか
動作はしました。（他の命令のエラーはちゃんと出るかな？と）
238:デフォルトの名無しさん
22/02/27 11:31:51.84 F9ScTckVM.net
>>232
あれ？ まじですか
ちょっとわからない
ちなみにMsgBox を出したくないんです。
そのままスルーしてほしいのです
239:デフォルトの名無しさん
22/02/27 11:40:19.04 So6tXBwD0.net
>>233
onerrorはなるだけ使わない方が良いと思う。俺は使わずに書いてるよ
>>233でもいいけど、なるだけ少ない方が後々の変更が楽になる
Sub foo()
'先に見つけておく
Set p = Range("A14:D150").Find("獲得ポイント")
If Not (p Is Nothing) Then
'見つかったときの処理
row_po = p.Row
Rows(row_po & ":" & row_po + 1).Delete Shift:=xlUp
End If
End Sub
240:デフォルトの名無しさん
22/02/27 11:42:39.74 amhd0I0YM.net
>>234
動いたんならまず一旦良しとしていいと思う
良いやり方が他にもあるから今後更に知識が付いたその時に改良していけば良いさ
241:デフォルトの名無しさん
22/02/27 11:53:19.82 F9ScTckVM.net
どうもありがとう
ただ、なんかわからないのだが、ほかの所がエラー吐いてしまっています。
ちょっと死にそうですが、悩んでみます。
多分、また来ますw
242:デフォルトの名無しさん
22/02/27 12:19:45.80 So6tXBwD0.net
どうぞ～がんばって～
243:デフォルトの名無しさん
22/02/27 14:32:58.22 F9ScTckVM.net
>>235
おま、これすごい
これにしてみたら他に出たエラーもピシっと消えた
On Error は動いたけど、イレギュラーなパターンだとなぜか他でエラーになった
これも試したらイレギュラーでもバッチり
つーか、俺が昨日の夜中からずううとやっていてもこんなの作れないありがとう
ホント君らすげーよ
これ作るのに寿命を迎えるレベルだわ
244:デフォルトの名無しさん
22/02/27 14:49:32.88 So6tXBwD0.net
>>239
笑った
影響が最小限になるように、ちゃんと書く方が楽なんだよ
onerrorとかですっ飛ばすと、後で余計に大変になる
245:デフォルトの名無しさん
22/02/27 17:57:55.85 JWEArlQD0.net
関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
知人が、「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」とか言い出しているから
246:デフォルトの名無しさん
22/02/27 18:04:55.19 ZPGXXCGc0.net
VBAなら関数って自作が基本じゃないの？知らんけど
247:デフォルトの名無しさん
22/02/27 18:06:25.05 So6tXBwD0.net
>>241
＞関数て約500種類弱あるけど、全部マスターする必要あるのかな？？
ないよ
248:デフォルトの名無しさん
22/02/27 18:28:40.28 CUu39Gd8M.net
URLﾘﾝｸ(forest.watch.impress.co.jp)
249:デフォルトの名無しさん
22/02/27 18:34:38.78 a0+qdDh70.net
そら作れば無限に出来るわいな
250:デフォルトの名無しさん
22/02/27 18:39:37.90 tDC5899T0.net
>>241
EXCELが（凄く）できる人かEXCELが（初心者だけど）できる人では違うんじゃね
251:デフォルトの名無しさん
22/02/27 18:47:42.24 NFpbXNxz0.net
>>241
その知人に認めたくない人がいてExcelできる人で通ってるけど
関数はマスターしてないから言ってるだけ説
252:デフォルトの名無しさん
22/02/27 18:50:42.59 AJPusFVK0.net
知ってる関数の数なんて誇る奴がいたら失笑もんだわ
253:デフォルトの名無しさん
22/02/27 18:55:10.53 a0+qdDh70.net
標準の関数は少ないよな
俺はSUM CONCATENATE IFくらいしか覚えてない（ヘルプが必要）がその知人よりは多分出来ると思う
254:デフォルトの名無しさん
22/02/27 18:58:34.59 WwuIS/YcM.net
>>247
多分合ってるんだろうけどメッチャ理解し難いぐちゃぐちゃ関数式の様な日本語
255:デフォルトの名無しさん
22/02/27 19:18:55.52 Jrkr8SKF0.net
>>241
その知人が馬鹿なだけだぞ
256:デフォルトの名無しさん
22/02/27 19:50:11.71 So6tXBwD0.net
知人ぼろかすで草
257:デフォルトの名無しさん
22/02/27 19:54:03.00 XX45AiX5d.net
Excelにどんな機能がある＝関数
ってしかいえない人の戯言では
258:デフォルトの名無しさん
22/02/27 20:40:55.89 D3HmGJ+n0.net
>>241
If 友人が「Excelができる人材の定義は関数を全部マスターしているヤツの事だ！」と言った then
throw 友人 どこか
End If
以下正常処理
259:デフォルトの名無しさん
22/02/27 20:51:03.99 nGlHhzSe0.net
If 友人が Then
Yo! Yo! ﾁｪｹﾗYO!
Go To YoYo
End If
YoYo:
Oh! Oh! 皆で楽しくﾁｪｹﾗYo!
260:デフォルトの名無しさん
22/02/27 21:11:45.66 JrRqc3Naa.net
If 友人.Count > 0 Then
のチェックをしておかないと例外が発生しかねんぞ
261:デフォルトの名無しさん
22/02/27 21:18:59.32 f8g0XzTm0.net
>>254
そこはRaiseだろ
262:デフォルトの名無しさん
22/02/27 21:27:51.88 So6tXBwD0.net
?友人 is nothing
true
263:デフォルトの名無しさん
22/02/27 21:34:07.20 nGlHhzSe0.net
確認事項
・友人はいますか
・親友はいますか
・彼女はいますか
・配偶者はいますか
・家族はいますか
・老後の心配はありませんか
264:デフォルトの名無しさん
22/02/27 21:42:34.72 NFpbXNxz0.net
>>250
知人A, 知人が認めたくない人B
Bは皆にできる人って思われてる
Aはそれが気に食わない
だから関数をマスターしていない事を理由に言ってるだけ説
ごめん頼んだ
265:デフォルトの名無しさん
22/02/27 21:46:20.69 pkdB1ort0.net
人生の大抵の困難はon erorr resume nextで解決可能である
266:デフォルトの名無しさん
22/02/27 21:52:09.54 nGlHhzSe0.net
On Error Shutdown And Reboot With Next Life
267:デフォルトの名無しさん
22/02/27 22:13:39.17 amhd0I0YM.net
>>262
例外処理が抜けてる
If You = カーズ Then
Do Until 地球からの距離 = 0
地球からの距離 = 地球からの距離 + 1
Loop
Elseif You = ディアブロ Then
死ぬ前:
死にそう
Goto:死ぬ前
死んだ
End if
268:デフォルトの名無しさん
22/02/27 22:37:19.46 oWne56vR0.net
Dim tmp As String
tmp = "どんまい"
MsgBox tmp
269:デフォルトの名無しさん
22/02/27 23:16:15.15 JWEArlQD0.net
関数そこまで必要かな？
マクロできるなら全部マクロでやれば良いじゃんね
270:デフォルトの名無しさん
22/02/27 23:42:12.81 Jrkr8SKF0.net
>>265
類は友を呼ぶ
お前もどうしようもない馬鹿だ
271:デフォルトの名無しさん
22/02/28 03:06:37.96 kykjWS4h0.net
いやだなぁ～先輩、冗談すよ冗談
職場になんでもVBA、VBAといってマジでVBAで片付けていた偉い人がいたもんでw
272:デフォルトの名無しさん
22/02/28 08:14:19.86 9UyyIrQV0.net
知人が、偉い人が、全て他人の話
ほんとうは・・・？
273:デフォルトの名無しさん
22/02/28 08:33:28.33 o5ZgQ4pV0.net
>>268
これ以上はやめて差し上げろ
274:デフォルトの名無しさん
22/02/28 18:59:30.44 h1aqAX/2M.net
すいません。 こういうのはできますか？
セルの中に改行を見つけてから止める（修正）するVBAをつくりました。
改行が見つかったら、マクロを止めて手修正をして又マクロを走らせてを繰り返します。
ここで、問題なのが改行ならいいのですが、文字が多くて折り返しになっているのがたまにあります。
それも見つけたいのですが、知恵がみつかりません。
折り返し判定みたいなのはあまりなさそうです。 それとも行の高さを判定できるなら高さ2２以上とか方法があるのかな？と
すいませんが、こんなのは？ってありましたら、お願いします。
Sub test()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Dim row_shou As Long
row_shou = Range("A14:D150").Find("小 計").Row
Dim Target As Range
Set Target = Range(Rows(14), Rows(row_shou - 1)).Find(What:=vbLf)
If Not Target Is Nothing Then
End
End If
Next Ws
End Sub
275:デフォルトの名無しさん
22/02/28 19:29:28.20 o5ZgQ4pV0.net
>>270
一行以外を全て検出したいなら、行の高さを検出するだけで終わると思う
改行は調べなくてもいいような
Sub foo()
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
基本の行の高さ = Cells(1, 1).RowHeight
For i = 1 To 最終行
If Cells(i, 1).RowHeight <> 基本の行の高さ Then
MsgBox i & "行目の高さがおかしいので、終了します。修正お願いします"
Exit Sub
End If
Next
End Sub
276:デフォルトの名無しさん
22/02/28 20:20:02.79 h1aqAX/2M.net
>>271
あ、あ、ありがとう
正直解読するのに一時間くらいかかって自分のに書き直せました。
一応動いていけそうです！ 高さチェックでいけますね
こんなチンケな感じになりました。
神々に感謝します。
Sub test()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Dim row_shou As Long
row_shou = Range("A14:D150").Find("小 計").Row
'行の高さ15以上を検索
h = 15
For i = 14 To row_shou - 1
If Cells(i, 1).RowHeight > h Then
Exit Sub
End If
Next
Next Ws
End Sub
277:デフォルトの名無しさん
22/02/28 21:56:13.38 1x7bPtTEd.net
ぶっちゃけFindは滅多やたら使わん方が良いけどまあ良かったじゃん
278:デフォルトの名無しさん
22/03/01 18:55:07.17 gFYHZAxx0.net
なんでもスレだと更新が少なく答えがもらえなさそうなので、こちらにも書き込んですみません。
Excel VBAで質問です。
現在開いているシートにマクロボタンを作り、実行させると…
現在シートのB列に検索値
別のシート(ABC)のB列の5行目～400行目までを検索して一致したセル番号が欲しいのですが
For cnt=1 To 10 samsu(cnt)=WorksheetFunction.Match(Cells(cnt,1),Worksheets(”ABC”).Range(Cells(5,1),Cells(400,1)),0)
…
next
このMatch関数の正しい書き方を教えてもらいたいのですが。
279:デフォルトの名無しさん
22/03/01 22:29:13.54 Nv0Sds8Bd.net
ちゃんと見ていないが、とりあえず.cellsの前にも全部ワークシートを指定しよう
280:デフォルトの名無しさん
22/03/02 07:23:43.88 bacADaAbd.net
どっちでも好きな方をどうぞ
samsu(cnt) = WorksheetFunction.Match(Cells(cnt, 1), Worksheets("ABC").Range(Worksheets("ABC").Cells(5, 2), Worksheets("ABC").Cells(400, 2)), 0)
samsu(cnt) = WorksheetFunction.Match(Cells(cnt, 1), Worksheets("ABC").Range("B5:B400"), 0)
281:デフォルトの名無しさん
22/03/02 18:02:30.94 Dpz5qFA70.net
質問です
社員毎に月々の残業時間の合計プログラムを作っています
合計した数値に対して、30分で切り上げ切り捨てしています（会社の残業規定に則り）
（例えば、月4:10の残業であれば4:00として出力、月4:35であるば5:00として出力）
合計した数値に対してFloor関数を使って切り上げ切り捨てをしているのですが、
月23:30の残業をした社員がいた場合、出力された値が0になってしまいます
表示形式を[h]にしてみましたが、結果は変わりません
デバックでFloor関数の中の変数の値を確認しましたら、23:30のシリアル値はきちんと入っています
そうするとFloor関数で切り上げしているのが原因なのでしょうか？
どなたかご教示いただきたいです…
282:デフォルトの名無しさん
22/03/02 18:09:09.52 Dpz5qFA70.net
簡潔ですが、以下のようなコードで書いています
.cells（1,1）.NumberFormatLocal = "[h]"
a = "23:30"
.cells（1,1） = Application.Floor（a + TimeValue（"0:30"）,TimeValue（"1:00"））
283:デフォルトの名無しさん
22/03/02 18:13:22.97 ydQ1ic0a0.net
>>277
mroundで1:00単位でいいんじゃない
URLﾘﾝｸ(i.imgur.com)
>>278
24と表示されたよ。そのままだとエラーになるので、2行目はtimevalueにいれた
URLﾘﾝｸ(i.imgur.com)
284:デフォルトの名無しさん
22/03/02 18:43:03.81 Dpz5qFA70.net
>>279
MRoundにしてみたらできました！
ありがとうございます！
TimeValueについて書き損じ失礼しました
本来は"23:30"ではなく変数が入っていて、変数には23:30のシリアル値が入っています
なぜ0になってしまうのか謎ですが解決してよかったです
285:デフォルトの名無しさん
22/03/02 19:19:22.93 n7HPCvTSa.net
23時の次は24時ではなく0時だからだわな
286:デフォルトの名無しさん
22/03/02 19:25:50.55 ydQ1ic0a0.net
>>281
いや、書式設定が[h]なら24と表示されるはず
287:デフォルトの名無しさん
22/03/03 07:42:09.33 LvEeINitr.net
>>276
無事に動きました。
ありがとうございました。
288:デフォルトの名無しさん
22/03/03 13:47:21.71 KJVc8U50M.net
質問をさせていただきます。 理解ができないことがあります。
まず、加工BOOK と マクロ保存BOOK の二種類を使用しています。
加工BOOKにある複数のシートを連続して加工するときにネット情報で下記書き方を拾いました。
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
～色々な動作～
Next Ws
この「色々な動作」の中で
ThisWorkbook.Activate ’マクロ保存BOOKをアクティブ（シート指定セル指定してコピーを取ってます）
その後、Ws.Activate と書き 上記保存した文字を指定したセルにペースト
これは問題なくペーストできています。
ただ、なぜうまくペーストできるのか理解ができていません。
理由はではこれをシート毎に連続ではなく一枚だけペーストにした場合
最初の For Each Ws In Worksheets と Next Ws を削除すればいいか？と思いやってみたのですが、エラーしか出ません。
てっきりWSという関数に加工BOOKの場所データが格納されていてWs.Activateを書けば加工BOOKに戻ってきていると思ったのですが、エラーとなると違っていたのか？と理解ができなくなりました。
加工BOOKのBOOK名とかが書ければいいのでしょう�
289:ｪ、BOOK名（ファイル名）は不特定でやりたい。他人に渡すので環境が読めない。 最初にアクティブになっていたブックシート情報を関数に入れておけばよいと想像しているのですが、どうすればいいかとかわかっていません。 グダグダな質問でわかりにくいと思いますが、二つのＢＯＯＫを行き来して片方はマクロを作動させた時にアクティブだったシートって条件にしたいのです。
290:デフォルトの名無しさん
22/03/03 14:00:06.45 rCo9Fm7Z0.net
AvtIVeやらしてる時点で作者も大した事なさそう
291:デフォルトの名無しさん
22/03/03 14:13:34.66 9O05M6/x0.net
>>284
For Each Ws In Worksheets
Ws.Activate
～色々な動作～
Next Ws
↓
sheets("ワークシート名").Activate
WSをWorksheet("ワークシート名")
に変える
あと、Ws.Activateはなるべくやめたほうがいい
PCが重くてアクティブなシートやブックが変わると、大惨事になる可能性がある
本当にやるならopenなどで対象ファイルを開き、戻り値をsetするのが理想
>>285
？？
292:デフォルトの名無しさん
22/03/03 14:19:57.38 KJVc8U50M.net
>>286
ありがとうございます。
この”ワークシート名”が分からなくても動かしたいのです。
つまり、hogehoge.xlsx だったり zukozuko.xlsxだったりするので
最初にアクティブだったファイル（シート）に戻ってくる汎用性がほしい。
293:デフォルトの名無しさん
22/03/03 14:22:48.58 9O05M6/x0.net
>>287
あぁ、じゃあ
ActiveSheet
でいいよ
ActiveSheet.Cells(1, 1) = 1
みたいな感じで使える
294:デフォルトの名無しさん
22/03/03 14:24:24.97 9O05M6/x0.net
そういやブックを指定する時はopenでいいけど、
シート名が不定な時、シートを指定する方法ってないのか
一旦開いてinputboxにインデックスかシート名入れるぐらいしかないのだろうか
295:デフォルトの名無しさん
22/03/03 14:32:22.98 jSBR5AQpd.net
まずワークシートもワークブックもわかってない事から勉強したほうがよいのではないか
それとよくわからず何となく動いたものを他人に渡して大丈夫なのかと不安になるわ
296:デフォルトの名無しさん
22/03/03 14:43:43.44 9O05M6/x0.net
あんまり大丈夫じゃないけど、そこまで言うのもねぇ
297:デフォルトの名無しさん
22/03/03 15:56:08.71 KJVc8U50M.net
心配かけます
とりあえず、データは何回でもダウンロードできるのでいくら壊れても大丈夫です。
内輪の事務ですし
やはり、どんなファイル名（シート名）でもＯＫとなると難しいですかね
当然フルパスみたいに書くのが良いのはわかります。
298:デフォルトの名無しさん
22/03/03 16:16:41.04 jSBR5AQpd.net
加工されるワークブックにはワークシートは複数なの？それとも1つなの？
仮に先頭にあるワークシートであれば
Set Ws = Worksheets(1)
のような指定をすればいいだけだぞ
ワークシート名が決まった名前であれば
Set Ws = Worksheets("○○")
のような指定でもOK
どのシートが加工していいのかを判断できるなら当初のFor文で回しながらシートを特定してもいいかと思うが
ある程度のルールが決まった質問じゃないと漠然としすぎて回答する側もとまどうと思うぞ
299:デフォルトの名無しさん
22/03/03 17:11:57.48 AMDtBRAN0.net
>>284
>てっきりWSという関数に加工BOOKの場所データが格納されていて
Wsは関数じゃなくて変数
その変数に値をセットしていたのがFor文
>最初にアクティブになっていたブックシート情報を関数に入れておけばよいと想像しているのですが、どうすればいいかとかわかっていません。
Set Ws=ActiveSheet
かな。試してないけど
とりあえずForの代わりにこれで動くんじゃね
あまりにも基本がわかってない感があるなぁ
300:デフォルトの名無しさん
22/03/03 17:21:03.63 Vn+IwdQAd.net
コピペしかしない人なんでしょ
301:デフォルトの名無しさん
22/03/03 18:46:16.06 KJVc8U50M.net
>>294
はいすいません
関数は書き間違いです。変数ですよねｗ
ちょっと、脳が
Set Ws=ActiveSheet
で辻褄があいました。
最初の For Nextで全シートした場合も１シートだけやった場合もエラーが出ずに自分の脳みそも合致がいきました。
これを書いていないのに Forで動かしたときに問題なかったので？？？状態になっておりました。
ありがとうございます。
302:デフォルトの名無しさん
22/03/03 19:43:39.19 5R1CCyAZd.net
何ていうかVBAの言語より先にちゃんとした構文の日本語を学ぶ事をおすすめします
303:デフォルトの名無しさん
22/03/03 21:25:56.68 pVJYfbHP0.net
いやでも回答者さんの言うとおりだと思う。理屈や仕組み分からないまま使ったりしていたらいつかは大事故に繋がる。
過去にそういう事が身近であった。
304:デフォルトの名無しさん
22/03/03 21:46:06.24 jSBR5AQpd.net
何がきっかけで作ることになったか知らないけど
どうして動いてるかもわからずに作って少ししておかしいことに気づいてもすぐ直せなかったら評価悪くなると思うんだよね
自分の周りの出来事でなければ知ったことではないんだけどその辺は踏まえて作った方がいいよ
305:デフォルトの名無しさん
22/03/03 22:33:01.31 yer8R1MmM.net
ID:KJVc8U50M の言い回しが技術サイトでありがちな英語かロシア語の機械翻訳文に似てて草
306:デフォルトの名無しさん
22/03/05 11:35:29.63 lcqTf7BDd.net
！！Private Sub Worksheet_Change（ByVal Target As Range）
Dim i As Long
For i ＝1 to 5
cells（i，4）＝DateValue（Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日"）
Next i
End Sub
上記記述して実際にｼーﾄに数字を入力すると型が一致しませんとｴﾗーになってしまいます
どうしていいのかわからずご教授していただければと
素人みたいな質問すいません
307:デフォルトの名無しさん
22/03/05 12:01:15.53 tG3yIb4ia.net
月の位置がおかしいから？w
308:デフォルトの名無しさん
22/03/05 12:21:43.22 RMBcHsBod.net
こういうひとってデバッグの仕方とか知らないのかね？
Debug.Print(Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日")
のようなことをすればどんな値が指定されているかわかるんだからみればいいのに
＞素人みたいな質問すいません
素人でもこんな質問するかなという内容
309:デフォルトの名無しさん
22/03/05 12:21:43.61 6K6JgexZM.net
>>301
とりあえず止まったときにイミディエイトウィンドウで
Debug.Print Cells（i，1）&" 年"&" 月"&Cells（i，2）&Cells（i，3）&"日"
ってやってみな
310:デフォルトの名無しさん
22/03/05 12:22:36.15 6K6JgexZM.net
被ったわ…
311:デフォルトの名無しさん
22/03/05 12:39:47.23 /JtJWIIA0.net
そもそもVBAにする必要あるのかこれ？
312:デフォルトの名無しさん
22/03/05 12:51:19.12 lcqTf7BDd.net
>>301
Private Sub Worksheet_Change（ByVal Target As Range）
Dim i As Long
For i ＝1 to 5
cells（i，4）＝DateValue（Cells（i，1）&" 年"& Cells（i，2）&"月"&Cells（i，3）&"日"）
Next i
End Sub
すいません!
月の位置が違いました
上記の記述でも型が一致しませんとエラーになってしまいます
313:デフォルトの名無しさん
22/03/05 13:08:57.00 GCjMsc400.net
=Date(A2, B2, ... え？それ以上はやめとけって？ はーい
314:デフォルトの名無しさん
22/03/05 13:15:31.27 RMBcHsBod.net
その書き方だと少なくとも変更された際のイベントでDateValueを正しく動作させるには
1から5行目までの1から3列目までにそれぞれ年月日の値が保証されないと型が一致しないとでるけど
そういう状態が担保できてるの？
1行目の入力中でもその書き方だと2行目以降が空欄だと単なる「年月日」という値でDateValue実行してしまいますよ
315:デフォルトの名無しさん
22/03/05 13:43:03.37 9H2YJJUDd.net
セルの中身が実はシリアル値でしたに一票
316:デフォルトの名無しさん
22/03/05 14:24:04.55 lcqTf7BDd.net
>>309
おっしゃるとおりだと
なんとなくわかっていたのですが
回避方法ありますか？
317:デフォルトの名無しさん
22/03/05 14:46:06.75 RMBcHsBod.net
>>311
いずれかのセルが空欄や数字以外だったら4列目に空を設定
それ以外の場合のみDateValueとかでいいんじゃないの
ただ結果的に月日が不正な値(99月など)ならどうするとかそういうのも含めて自分で考えないとこの先やっていけないのでは
318:デフォルトの名無しさん
22/03/05 14:57:28.77 lcqTf7BDd.net
>>313
なるほど
参考になります
ググって見ます！
ありがとうございます！
319:デフォルトの名無しさん
22/03/08 11:28:41.82 VC
320:o1qiqP0.net
321:デフォルトの名無しさん
22/03/08 11:33:03.86 e+QnjkryM.net
If Range("A1").Fomula = "" Then
322:デフォルトの名無しさん
22/03/08 11:33:45.29 e+QnjkryM.net
あ、嘘。ごめん。間違えた。忘れて。
323:デフォルトの名無しさん
22/03/08 11:39:20.91 VCo1qiqP0.net
>>315
ありがとうございます
Formulaを設定すると関数をそのまま取得してしまいました
なので空白の時の分岐ができませんでした
324:デフォルトの名無しさん
22/03/08 11:41:01.62 VCo1qiqP0.net
大丈夫です！
ありがとうございますm(_ _)m
ご存じの方いらっしゃいましたらよろしくお願いします
325:デフォルトの名無しさん
22/03/08 12:20:48.22 vjLwCjzB0.net
普通にセルのValueなりTextなりを見ればいいんじゃないの？
326:デフォルトの名無しさん
22/03/08 12:37:16.79 YxxaCHXb0.net
>>318
If Range("A1").value = "" Then
>>319
その普通を学習前の段階ぽい
327:デフォルトの名無しさん
22/03/08 13:18:52.50 +eE97yRCa.net
空なのか空白なのか
328:デフォルトの名無しさん
22/03/08 13:28:01.68 ez1E04nZd.net
Trim(.Text)じゃないか？
>>321
数式が入ってたらEmptyにはならん
329:デフォルトの名無しさん
22/03/08 14:12:30.12 vjLwCjzB0.net
Empty と空文字列と空白は違うって話かと
330:デフォルトの名無しさん
22/03/08 19:12:34.37 IBMOg+Z/0.net
前任者のシートで0を書式で空白にしてるのには参ったね
textプロパティを覚えるきっかけにはなったけど
331:デフォルトの名無しさん
22/03/08 19:25:23.65 fxoU/Jgx0.net
文字列枠だけど 書式は #
よくやるw
332:デフォルトの名無しさん
22/03/11 06:05:40.07 a7Y3SJRd0.net
すみません、質問させてください。
VBAで自作したクラスのメソッドやプロパティの一覧を列挙するにはどうすれば宜しいでしょうか？
どのような自作したクラスでも使える汎用的なものを作成したいです。
333:デフォルトの名無しさん
22/03/11 07:32:33.79 mh6S44cma.net
すみません。
特定のセル内に有るリンクを抽出する方法は有りますか？
334:デフォルトの名無しさん
22/03/11 08:32:32.67 vHBnGMWOd.net
>>326
VBAでは無理
ソースをエクスポートしてテキストファイルを処理するぐらいしかないと思う
VB.netならGetMembersってのがあるんだけど
335:デフォルトの名無しさん
22/03/11 08:33:31.79 vHBnGMWOd.net
>>327
Hyperlink
336:デフォルトの名無しさん
22/03/12 01:24:13.27 7NvJtuE10.net
>>328
なるほど、VBAでは無理なんですね。
以前、VB.Netの命令をVBAで走らせることが出来る場合があることをこのスレで聞いたことがあるような気がしましたので、
そちらとAPIで実装出来ないかを模索してみます。ありがとうございました。
337:デフォルトの名無しさん
22/03/12 03:38:02.55 pgjQzAZm0.net
オブジェクトブラウザがやってるけど、どうやってるんだろうな
>>328
エクスポートとかしなくても、VBEオブジェクト使えばコードのスキャンはできる
プロシジャ名の列挙だけでよければここの実行結果３がそうじゃね
URLﾘﾝｸ(excelwork.info)
338:デフォルトの名無しさん
22/03/12 08:17:43.49 7NvJtuE10.net
>>331
後出しになってしまい申し訳ありません。
実は、実際にやりたかったことは
自作したEntityクラスのプロパティを
片っ端からGetして配列に入れ込み、
それをシートに展開すると言うことでした。
名前の列挙さえ取得できれば
後はリフレクションで呼び出せば可能と
考えていました。
おかげで実装の目処がつきました。
ありがとうございます。
339:デフォルトの名無しさん
22/03/13 02:21:31.96 YEneWsYd0.net
どういう状況で使うんだろう
自分で作ったのに数が多すぎて覚えてないとか?
340:デフォルトの名無しさん
22/03/13 02:43:05.91 B1jPEMw70.net
素人ですが質問させて下さい。
画像のような、1つのシートに20行単位の表で、連番と日付を上の表から取得するようなブックを作成しています。
表の順番を変えても、常に1つ上の表の番号+1、同じ日付としたいため、直接セルを参照せずこのような関数を使用しています。
式は、↓としています。
=INDIRECT(ADDRESS(ROW()-20,COLUMN()))
起動中は問題なく動作するのですが、ブックを閉じて再起動すると、起動時に必ず落ちてしまいます。(手動計算にすると開ける)
コピーを作成して、上記の式の部分だけ消すと問題なく起動します。
この場合、何が悪いのでしょうか。或いは代替手段があれば教えて頂けると助かります。
URLﾘﾝｸ(i.imgur.com)
341:デフォルトの名無しさん
22/03/13 02:49:45.62 B1jPEMw70.net
普段VBAを触っているためVBAスレで質問してしまいました。
スレ違いであればスルーして下さい。
342:デフォルトの名無しさん
22/03/13 03:12:17.58 JfJkUCau0.net
>>335
多分Excel板なら親切な人が回答してくれすよ
343:デフォルトの名無しさん
22/03/13 05:18:44.42 JG4Baegn0.net
>>336
回答者は被ってるからどっちでもいいよ
344:デフォルトの名無しさん
22/03/13 11:02:15.36 B1jPEMw70.net
レスありがとうございます。
こいつ自体難のあるものなんですね。
offsetで狙った動きができました。ありがとうございます。
345:デフォルトの名無しさん
22/03/13 14:32:38.85 UXs3pJFgd.net
普通に「＝R[-20]C+1」じゃダメなのかね（R1C1形式
346:デフォルトの名無しさん
22/03/14 05:49:07.49 3S2IFgLOM.net
>>339
これだと移動させたとき式の値も変動してしまいました。
347:デフォルトの名無しさん
22/03/14 07:57:10.59 727wXMaZd.net
>>340
失礼、移動後も保証しないとだめだからこれではだめですね
348:デフォルトの名無しさん
22/03/14 17:48:06.77 yx1wpkrnM.net
>>334ですが、当初安定していたもののまた同じ現象になりました。
端末を変えるなり新しいブックにして作り直したり色々試すも改善せず、T列の参照だけがこの現象を引き起こしている(参照先が文字列だと発生しないが数値は発生)ことが分かったため他の列を経由して参照する形で概ね落ち着きました。
エクセル自体のバグなのか分かりませんが同種の状況の方の参考まで。
349:デフォルトの名無しさん
22/03/15 13:19:58.65 cMhtDWKy0.net
>>342
多分ブックが壊れている
新しいブックを作り、1シートずつコピーすれば直る可能性がある
その状態で使い続けると完全に壊れて、開けなくなる可能性があると思う
350:デフォルトの名無しさん
22/03/16 04:32:35.42 3pfuXf5y0.net
ブックがブックわれている
351:デフォルトの名無しさん
22/03/16 07:48:40.55 /fL7/vIcd.net
セル「 ちくしょーちくしょー！ 完全体に…… 完全体にさえなればー！ 」
352:デフォルトの名無しさん
22/03/16 07:55:37.71 tVfnjSl40.net
エクセル「私の行数は 1048576です」
353:デフォルトの名無しさん
22/03/16 10:32:53.21 EfOqqAli0.net
質問させて下さい。
EXCELの自ブックのシートにVBAにてADO接続でSQLを投げてRecordSetに値を取得していますが、
あまりに遅いのでINDEXを対象のシートに設定したいのですが、可能でしょうか？
可能であれば実装方法を教えて頂けるとありがたいです。
CREATE INDEXのSQLを投げると
「この操作は、このタイプのオブジェクトには実行できません。」というエラーが返って来ます。
EXCEL VBA上でのADO接続だったのでこちらのスレで質問させて頂きました。
もしスレ違いで有れば誘導して頂けるとありがたいです。
354:デフォルトの名無しさん
22/03/16 20:05:55.54 E9jeVJ9d0.net
エクセルの開発、挿入、フォームコントロールでリストボックスを作って操作するのですが
sheet.ListBoxes("List").AddItem "A" だったかな？で追加できるんですが
sheet.ListBoxes("List").Clear で全て消去したくてもエラーになります。
sheet.ListBoxes("List").RemoveItem 1 で消せるので .ListCountが0になるまで
消していくとやりたいことはできるのですがClearのような1行で消す方法が知りたいです。
あと選択している内容を取得したいのですが.Valueだと内容ではなくインデックス番号？が返ってきます
選択している内容を文字列で取得できないのでしょうか。検索してもユーザーフォームのページばかり
出てきてわかりません。どなたか知っていたら教えてください。
355:デフォルトの名無しさん
22/03/17 04:53:04.06 2UkhCjLQ0.net
>>348
全消しはRemoveAllItemsかな？
内容の取得はItem(インデックス番号)かな？
マニュアル見てそれっぽい単語を見つけただけだから違ってるかも
356:デフォルトの名無しさん
22/03/17 05:57:03.26 RdQIwXxN0.net
最近のExcelってヘルプもついていないの？
357:デフォルトの名無しさん
22/03/17 06:07:57.47 UlLj9IGM0.net
ネットがあるからねぇ
358:デフォルトの名無しさん
22/03/17 11:46:40.93 mL7eqXCg0.net
それでなくなったのか、知らんかった
359:デフォルトの名無しさん
22/03/17 12:31:38.84 9VjLQzax0.net
F1押すだけでヘルプ出てくるの便利だったのにね
360:デフォルトの名無しさん
22/03/17 12:35:28.43 ++LfIShu0.net
F1ヘルプ起動大嫌い
起動遅いから誤爆した時ストレス
361:デフォルトの名無しさん
22/03/17 12:48:39.33 Rh0i5fdo0.net
まあ市販ソフトとかゲームとかおしゃんな小物とかもネット参照多くなったしね
362:デフォルトの名無しさん
22/03/17 15:59:04.45 2UkhCjLQ0.net
2010のあたりでヘルプがオンラインになって、旧バージョンのヘルプファイルを無理矢理インストールして使ってた記憶がある
あれってどのバージョンの話だっけ
363:デフォルトの名無しさん
22/03/17 16:00:36.21 2UkhCjLQ0.net
>>348
VBAから操作するんなら、たぶんフォームコントロールよりActiveXコントロールのが簡単だと思うよ
MSは推奨してないみたいだけど
364:デフォルトの名無しさん
22/03/17 18:51:23.33 NNC6CjWiM.net
やたら重かった無能なイルカよりはマシだろう
365:デフォルトの名無しさん
22/03/17 19:51:28.31 hQEb7r5k0.net
お前を消す方法なつい
366:デフォルトの名無しさん
22/03/17 20:00:50.39 +xJma3Ej0.net
>>348
URLﾘﾝｸ(www.sejuku.net) ここ読んでがんがれ
367:デフォルトの名無しさん
22/03/17 22:15:36.31 UYkpbTrn0.net
>>349
全消しはRemoveAllItemsでできました。Itmeで内容はとれずエラーになりました。
マニュアルはマイクロソフトのExcel VBA リファレンスかな？そこで検索かけてもよくわからないのであきらめます。
Valueでもやりたいことはできそうなので
>>357
ActiveXでのやり方はわかるんですけどできればActiveXより新しいの使いたいんですよね。
別件でActiveXが大量に使われているブックが物凄く重くなっているのを見たことあってあまり使いたくない。てのもあります。
>>360
ユーザーフォームのことじゃないです。
368:デフォルトの名無しさん
22/03/18 09:26:17.20 yuFF0zGe0.net
じゃあこれ
URLﾘﾝｸ(officetanaka.net)
369:デフォルトの名無しさん
22/03/18 10:46:32.32 GvFVeYD4d.net
>>361
List(参照したい位置)でいけるんじゃないか
参照したい位置はListIndexでとれるかと
複数選択ならSelected(位置)でTrueになるところかな
370:デフォルトの名無しさん
22/03/18 19:57:18.31 hw4UnylL0.net
シート上で任意に選択した範囲を set myRange = 選択範囲 のように代入した後、
For Each buf In myRange.Value
処理A
Next
という処理をしようとすると、
・選択範囲が複数ある場合：正常に動作する
・選択範囲が1つの場合：「型が一致しません」のエラーになる
「For each ○ IN ●」の●には複数セルが指定されていないといけないということでしょうか？
371:デフォルトの名無しさん
22/03/18 23:38:51.84 q1DQLrxB0.net
>>364
そうです
set buf as range
For Each buf In myRange
debug.print buf.value
Next
こんな感じじゃだめですか？
372:デフォルトの名無しさん
22/03/18 23:53:01.28 q1DQLrxB0.net
おっと間違えた
dim buf as range
For Each buf In myRange
debug.print buf.value
Next
373:デフォルトの名無しさん
22/03/19 00:50:36.99 OOddD3UI0.net
myRange.Value の Value がおかしかったのか。
ありがとうございます。
374:デフォルトの名無しさん
22/03/19 02:03:56.48 yYNieGSo0.net
>>364
myRangeの何をbufとしてとりたいの？各セル、連続した複数のセル、myRange全体によつて正しいこーどは異なる
375:364
22/03/19 10:45:02.08 OOddD3UI0.net
>368
任意のドラッグ操作で選択したセルと同じ行のL列(左から12番目)に入っている文字列を結合して表示させようとしました。
Dim cnt As Integer
Dim myRange As Range
Dim buf As Range
Dim target As String
cnt = Selection.Rows.Count
Set myRange = Range(Cells(Selection.Rows(1).Row, 12), Cells(Selection.Rows(1).Row + cnt - 1, 12))
For Each buf In myRange
target = target & buf & vbCrLf
Next
Debug.Print target
376:デフォルトの名無しさん
22/03/19 10:48:26.22 kJy21FG50.net
>>347で質問させて頂いたものです。
色々調べましたがシートにINDEXを設定するのは実現可能か分からなかったのと、
出来ない場合、代替案を考えたいのですが、
ひとつのシートに20万行、100列の一覧が有ったとして
そのとき、ひとつの項目(項目1とします)はある値とイコール、更に別の項目(項目2とします)は
項目1で抽出したレコードの内の最大値を求めたいです。
どのような方法が一番速く処理出来ると思いますか？
377:364
22/03/19 10:48:43.76 OOddD3UI0.net
>>369は正常に動作したコードです。
最初は下記のようなコードでエラーとなっていました。
Dim buf As Variant ←Variant型にしていた。
For Each buf In myRange.Value ←.Valueを付けていた。
target = target & buf & vbCrLf
Next
Debug.Print target
378:デフォルトの名無しさん
22/03/19 10:51:21.24 CvJNM5+IM.net
範囲検索するのにfindとworksheetfunction.matchとではどちらが速いですか？
379:デフォルトの名無しさん
22/03/19 10:52:04.86 CvJNM5+IM.net
ちなみに完全一致の場合です
380:デフォルトの名無しさん
22/03/19 11:51:46.09 /t3SgnSXa.net
自分で試せばいいだろw
381:デフォルトの名無しさん
22/03/19 11:51:57.89 i9OMIEsk0.net
試したほうが早いよ
382:デフォルトの名無しさん
22/03/19 12:52:21.15 UXt2lmR80.net
は？試してたらこんな所で聞きませんけど？
383:デフォルトの名無しさん
22/03/19 12:52:58.71 4DGoWoBi0.net
>>369
＞cnt = Selection.Rows.Count
＞Set myRange = Range(Cells(Selection.Rows(1).Row, 12), Cells(Selection.Rows(1).Row + cnt - 1, 12))
Set myRange = Cells(Selection.Row, "L").Resize(Selection.Rows.Count)
もっと簡単に書けそうな気もするがこんなもんかな
384:デフォルトの名無しさん
22/03/19 13:47:10.61 zEPprvQva.net
>>376
試してなくても、こんなところで聞かないでくださいw
385:デフォルトの名無しさん
22/03/19 14:44:42.82 qNoriQBK0.net
>>377
ちゅんちゅんさん推奨の書き方か
resize真似して使ってたんだけど間違えやすかった
386:デフォルトの名無しさん
22/03/19 15:12:32.83 OOddD3UI0.net
>>377
ありがとうございます。.Resizeを使うとスマートに書けるんですね。使ってみます。
387:デフォルトの名無しさん
22/03/19 15:57:19.25 rhR/rlzyd.net
autofilterで表示されたものだけで、列をautofitすることは出来ますか？
388:デフォルトの名無しさん
22/03/19 16:36:01.13 4DGoWoBi0.net
SpecialCells(xlCellTypeVisible)でできんじゃねーかな
389:デフォルトの名無しさん
22/03/19 16:40:58.85 AuBNrAzT0.net
コードは
390:スマートなのに…って言われろ
391:デフォルトの名無しさん
22/03/19 18:04:38.19 4DGoWoBi0.net
Range("テーブル1[項目A]").SpecialCells(xlCellTypeVisible).Columns.AutoFit
出来ないのかと思ったらできるじゃん
392:デフォルトの名無しさん
22/03/19 18:22:46.82 qn2+ggVDa.net
VBA素人にご教示ください
PowerQueryで整形したテーブルのデータを
別ブックのVBAに引っ張ってきたい場合
・列データをユーザー定義型にまとめる
・ListObjectを使う
どちらがベターでしょうか？
393:デフォルトの名無しさん
22/03/19 18:48:13.74 XaCRBAWQM.net
引っ張ってきたい側でpowerquery使って整形したテーブルをソースに指定する
394:デフォルトの名無しさん
22/03/19 19:07:47.91 qn2+ggVDa.net
すいません、うまく説明できてませんでした
PowerQueryとVBAは別ブックでも同じブックでもいいです
やりたいことは
巨大なテーブルを参照してVBAで検索フォームを作りたい
です
その場合、テーブルデータを
・ユーザー定義型にまとめる
・ListObjectを使う
どちらがいいのか？が質問の意図です
改めてお願いします
395:デフォルトの名無しさん
22/03/19 20:45:24.46 ecCVM1RA0.net
全くの素人で申し訳ないんですけど、やりたい事
❶:B10からスタートしてボタンを押したら次の行に指定された文字を入力していく。
❷:Ifを使って、もしB29行まで埋まった状態でボタンを押したら
B2からB29までコピーしてB1からB28にペースト
→B29に指定された文字を入力
色々頑張ったけど自分で❶は出来たけど❷ハードルが高かった・・・
396:デフォルトの名無しさん
22/03/19 21:21:42.73 titlKmjCa.net
2のどの部分ができないのか
397:デフォルトの名無しさん
22/03/19 21:33:07.78 qNoriQBK0.net
If Range("B29")<>"" then Range("B1:B28").value = Range("B2:B29").value
こんな感じか？
398:デフォルトの名無しさん
22/03/19 22:17:04.40 hVJQeY+Td.net
>>389
IFで範囲内空白があった場合を出そうとしてたんだけどうまくいかなかったんや・・・
399:デフォルトの名無しさん
22/03/19 22:17:58.96 hVJQeY+Td.net
因みに入れたいのは勝利か負け。２つボタン作れば別々に行けるかな
400:デフォルトの名無しさん
22/03/19 22:56:32.21 hVJQeY+Td.net
>>389
ありがとう。認識できた。そしてなんとか検索して思うような結果になった！
401:デフォルトの名無しさん
22/03/20 00:13:30.21 ZUsPYd03M.net
>>382
>>384
ありがとうございます。
明日試してみます。
402:デフォルトの名無しさん
22/03/20 01:49:20.37 CEJcVsO40.net
>>387
巨大ならlistobjectかadoじゃないの、速度的に。
巨大じゃなきゃ何でもいいや。
403:デフォルトの名無しさん
22/03/20 06:37:24.28 Md+DYeh30.net
>>372
ちゃんとタイマー走らせて確認してるわけではないけど体感的には大して変わらない
でも完全一致で検索をかける場合matchは検索対象が存在しないとエラー停止するのに対してfindはset range変数=対象範囲.find(ryで検索をかけてやればrange変数がnothingか否かで判別可能だから個人的にはfindの方が好きかなぁ
404:デフォルトの名無しさん
22/03/20 08:33:55.10 Zh6y5r970.net
>>370
同じようなことを前考えたけど、恐らくEXCELのシートにインデックスを貼るのは無理っぽい。
ADOどころか拡張機能であるADOXでも無理だったはず。
代替案としてはSQLが使えないので、都度個別で考えるしかないけど、とある項目の最大値や最小値が入っているレコードの内容が欲しいなら基本、MATCH関数での検索となると思う。
405:デフォルトの名無しさん
22/03/20 10:22:27.56 HKRI5d8YM.net
>>370
> どのような方法が一番速く処理出来ると思いますか？
フィルターかけてSUBTOTAL(4, 範囲)
406:デフォルトの名無しさん
22/03/20 13:33:44.21 NjSblaend.net
>>382
>>384
うまくいきました。
ありがとうございます。
407:デフォルトの名無しさん
22/03/20 15:42:40.21 IQ9r07oYM.net
>>369
すまん、368だけどコード見てもやりたいことがまるでわからんので、回答書けない
408:デフォルトの名無しさん
22/03/20 19:07:32.87 fXpRWn260.net
初心者のため、ご存じでしたらご教授お願い致します。
エクセルから印刷する際、プリンタをカラー、モノクロをそれぞれ
自動印刷できませんでしょうか？
PageSetup.BlackAndWhite = True/Flase
以外で方法がありましたら、ご教授をお願い致します。
409:デフォルトの名無しさん
22/03/20 19:41:51.49 V5Xg0/PX0.net
>>401
その方法では成功しないのですか？
410:デフォルトの名無しさん
22/03/20 19:51:58.85 aHWtYUUu0.net
素人にご指導願います。
生年月日や所属等を含めた社員のリストを作ってまして、氏名等で検索できるようオートフィルターをvbaで作るところまではできました。
「チェックボックスにチェックを入れたら、指定した日付と同じ生年月日でフィルターをかける」という操作は可能でしょうか。
例えば、セルに1990/3/1を入れてるとして、チェックボックスにチェックを入れたらフィルターがかかって1990/3/1の生年月日だけ出てくる（それ以外は消える）というものです。
チェックボックスにチェックを入れるかどうかで指定した日でフィルターをかけるかどうかを判断したいです。
もし可能でしたら、ご教示いただけると幸いです。
よろしくお願いします。
411:デフォルトの名無しさん
22/03/20 19:56:19.87 fXpRWn260.net
>>402
PageSetup.BlackAndWhite = Falseで白黒印刷設定したのですが、
塗りつぶしの背景が白で印刷されてしまいます。
また、カラーの図が白黒で印刷できませんでした。
プリンタのプロパティにある印刷設定（両面、集約、カラー等）はＶＢＡでは制御できないでしょうか？
412:デフォルトの名無しさん
22/03/20 20:02:50.72 0CQh90gjM.net
>>401
> 以外で方法がありましたら
なぜこういう人は以外でないとダメな理由を書かないのか
413:デフォルトの名無しさん
22/03/20 20:15:26.37 KxZjhn5zM.net
>>404
すまん、リロードしてなかった
っていうか最初から書けよ…
> PageSetup.BlackAndWhite = Falseで白黒印刷設定したのですが
白黒設定は True じゃね？
> プリンタのプロパティにある印刷設定（両面、集約、カラー等）はＶＢＡでは制御できないでしょうか？
無理、
Application.Dialogs(xlDialogPrinterSetup).Show
で、ダイアログを表示させるのが精一杯
414:デフォルトの名無しくん
22/03/20 20:21:02.46 V5Xg0/PX0.net
>>404
プリンタドライバをもう一つ入れて、そのドライバの初期設定を白黒にして「白黒印刷専用」とする。
このプリンタ（ドライバ）をＶＢＡで選択して印刷する。
過去にやったことがあるけどちょっとめんどくさかった記憶
他にいい方法あるのかな
415:デフォルトの名無しさん
22/03/20 20:23:50.61 Md+DYeh30.net
>>403
チェックボックスにマクロを登録してフィルターのキーをその入力があるセルを参照すれば良いだけだと思う
例外処理があるならそれはどういう条件で省くのか分からないから自分で考えて
416:デフォルトの名無しさん
22/03/20 20:36:02.96 fXpRWn260.net
>>406
ご回答ありがとうございます。
理由も一緒に書けばよかったですね。大変失礼致しました。
以後気を付けます。
やはり無理なんですね。
他のかたがご指摘のように、白黒専用プリンタドライバを増やして
プリンタを切り替えてトライしてみます。
ご指摘の通り、PageSetup.BlackAndWhite = Trueが白黒です。失礼致しました。
417:デフォルトの名無しさん
22/03/20 20:41:31.10 fXpRWn260.net
>>407
ご回答ありがとうございます。
プリンタドライバを増やす方法、ご提案ありがとうございます。
早速トライしてみます。
ドライバーを入れた後、プリンタの基本設定で白黒を初期設定にすれば白黒専用でいけますね。
418:デフォルトの名無しさん
22/03/20 21:09:18.42 j6YhEUF6d.net
>>403
多分VBA要らない
スライサーで十分
419:デフォルトの名無しさん
22/03/21 02:46:04.32 HoitaytG0.net
スライサやタイムライン知らない人多いらしいね
マイナーなのかな？
420:デフォルトの名無しさん
22/03/21 06:08:07.49 8sRo6eoq0.net
マイナーはマイナーだと思う
MOS受けて初めて知ったわ
421:デフォルトの名無しさん
22/03/21 07:21:11.67 K7MjVs2M0.net
テーブルからしてまだマイナーだからかしら？
422:デフォルトの名無しさん
22/03/21 07:27:35.78 Od0FfcR
423:PM.net
424:デフォルトの名無しさん
22/03/21 08:06:13.98 S9+WMeZFH.net
誰か教えてください
各営業所から毎月送られてくる実績ファイルを一つのブックに集計するマクロを作りたい
一つのフォルダに全てのブックを入れてループ処理するマクロ自体はできたんだけど肝心の転記の仕方がわからない
具体的には各ファイルの指定のセルから集計表ファイルの指定のセルに営業所名ごとに転記したい
営業所ファイルには4〜3月まで縦に月毎に実績が並んでいて集計表のファイルは横に月毎になってるって感じ
どうしてもわからなくてどなたか助けてください
425:デフォルトの名無しさん
22/03/21 08:19:15.34 /kHY2rERM.net
powerqueryだな
426:デフォルトの名無しさん
22/03/21 08:24:32.18 S9+WMeZFH.net
>>417
ありがとうございます
パワークエリってやつですかね？
検索かけたら使い方分かりそうでしょうか？
427:デフォルトの名無しさん
22/03/21 08:52:49.57 K7MjVs2M0.net
>>418
ようつべのライブラリに放り込んでた中から
役に立ちそうなもの見繕ってみた。
PLをフォルダに放り込むだけで科目ごとの数値を比較できる【エクセル パワークエリ PowerQuery】
URLﾘﾝｸ(youtu.be)
大量のエクセルファイルを１つにまとめる方法【ファイル名活用】
URLﾘﾝｸ(youtu.be)
【マクロ無しで】大量ファイルを1つに統合。簡単にクリック操作で可能（Power Query、取得と変換）
URLﾘﾝｸ(youtu.be)
PowerQuery 複数のExcelファイルからデータを結合する方法
URLﾘﾝｸ(youtu.be)
428:デフォルトの名無しさん
22/03/21 09:00:07.15 8sRo6eoq0.net
>>416
Sub foo()
'開いてset
Set 転記先ブック = ThisWorkbook
Set 営業所ブック = Workbooks.Open( _
"C:\Users\81909\Desktop\eigyosyo.xlsx")
'転記
転記先ブック.Sheets("sheet1").Range("b2:d3").Value = _
営業所ブック.Sheets("sheet1").Range("b2:d3").Value
End Sub
保存ファイルのパスと転記セルの範囲変えたら使えると思う
429:デフォルトの名無しさん
22/03/21 09:06:14.38 Yo31hjL10.net
>>397
ありがとうございます。
やはりEXCELのシートにINDEXを設定するのは無理なんですね。
>>398
ありがとうございます。
残念ながら20万件100項目という量のせいか、
フィルターを掛けるとそのまま固まってしまい、いつ返ってくるか、そもそも返ってくるのかすら分からない状況になりました。
430:デフォルトの名無しさん
22/03/21 09:14:48.04 8sRo6eoq0.net
>>421
そもそもフィルター掛ける必要があるのかどうかってのもあるけど・・・
ぱっとおもいつくのは
・forで回して別シートに転記。量が少なければそこまでかからんはず。量が多いとかなり大変
・別シートにfilter関数。かなり軽いけど、その量に対してはやったことないな
・スプレッドシートでquery関数。軽さならこれが最強で、めちゃくちゃ軽い
431:デフォルトの名無しさん
22/03/21 16:06:54.19 YtFKrPKNa.net
>>419
ありがとうございます
見て参考にさせていただきます
432:デフォルトの名無しさん
22/03/21 16:10:10.41 YtFKrPKNa.net
>>420
ありがとうございますこの構文のでいける感じですか？
ホントど素人で申し訳ないんですけど転機の構文は何をしてる感じでしょうか？
433:デフォルトの名無しさん
22/03/21 16:14:49.98 ombAFbaLM.net
>>420は要点をコンパクトに上手に説明してる
これが理解できないなら自分で最終回答に辿り着くのは無理だよ
434:デフォルトの名無しさん
22/03/21 16:21:01.88 8sRo6eoq0.net
>424
転記の部分は値でコピーペーストだよ
試しに動かしてみたほうが早いと思う
435:デフォルトの名無しさん
22/03/21 16:38:45.50 YtFKrPKNa.net
>>425
>>426
ありがとうございます
まずは動かしてみます
436:デフォルトの名無しさん
22/03/21 16:43:02.21 HoitaytG0.net
テーブルってまだ普及していないねかな？
437:デフォルトの名無しさん
22/03/21 16:50:26.11 DBpwCepOM.net
永遠に普及しないでしょうね
列島猿はセル結合したり自分で色塗ったり線引いたりするのが大好きで、お仕着せのDBにデータだけ放り込むみたいなのは苦手なので
438:デフォルトの名無しさん
22/03/21 16:56:11.28 8sRo6eoq0.net
全面的に同意
テーブルで表作ったらテーブルを解除しろって言われるレベル
439:デフォルトの名無しさん
22/03/21 17:19:32.38 fDbYf0xJ0.net
>>424
転記する際に縦横を置換したいんじゃねえの？
420の例にはそれが入ってないかと
440:デフォルトの名無しさん
22/03/21 17:21:13.79 fDbYf0xJ0.net
テーブルでも椅子でもいいからさっさとやれと言われるわしら下っ端
441:デフォルトの名無しさん
22/03/21 17:57:58.00 bPJRBgFUM.net
>>416
マクロ記録開始してその転記の操作してみればいいかと
442:デフォルトの名無しさん
22/03/21 19:13:04.04 S9+WMeZFH.net
>>431
あーそうなんですね
そこ大事なところなもんで…
ありがとうございます
443:デフォルトの名無しさん
22/03/21 19:37:57.87 HoitaytG0.net
いつも思うのだけど、これだけExcel情報が世の中に溢れているのにセルご法度の結合だの色塗りまくるだの改行だのする人ばかりなのは何故なんだろうね？？
パソコン雑誌とか読んで勉強していないのかなと？
444:デフォルトの名無しさん
22/03/21 19:43:19.70 zSyDDKWUH.net
>>435
URLﾘﾝｸ(www2.odn.ne.jp)
445:デフォルトの名無しさん
22/03/21 19:53:51.30 8sRo6eoq0.net
>>435
業務改革を微塵も考えていないから
一日8時間で、最初に与えられたルーチンが回ればそれで良いと考えてる人がほとんど
なんでそうなってるかは、知らん
446:デフォルトの名無しさん
22/03/21 20:06:38.09 7hRN3rZ2M.net
>>435
別にExcelの達人になるわけじゃないし
そもそも結合するなと言うなら縦方向の「選択範囲内で中央」を実現しやがれ
447:デフォルトの名無しさん
22/03/21 20:11:42.48 S9+WMeZFH.net
>>433
それも思ったんですけどそれだと恐らく一つの営業所の実績を一つのセルにコピーする操作になってしまいそうで…
448:デフォルトの名無しさん
22/03/21 20:23:41.52 2j3OjuAE0.net
>>439
ここまでの説明で理解できてないようなので
とりあえず営業所毎ファイルと集計表ファイルをアップロードしないと話が進まない
449:デフォルトの名無しさん
22/03/21 20:42:56.54 S9+WMeZFH.net
>>440
オケ
さすがにそこまでは出来ないので色々試してみます
ありがとうございました
450:デフォルトの名無しさん
22/03/21 20:43:57.15 8sRo6eoq0.net
>>439
転記部分は好きなように変えたり増やしたりスレば良い
b2をd3に、a1をe5に、など、なんとでもなる。
'転記
転記先ブック.Sheets("sheet1").Range("b2").Value = _
営業所ブック.Sheets("sheet1").Range("d3").Value
転記先ブック.Sheets("sheet1").Range("a1").Value = _
営業所ブック.Sheets("sheet1").Range("e5").Value
451:デフォルトの名無しさん
22/03/21 21:18:25.50 8fSFwG7JM.net
>>439
思うだけで手を動かす気はないのね…
いち抜けた~っと
452:デフォルトの名無しさん
22/03/21 21:20:10.88 S9+WMeZFH.net
>>443
ごめんなさい会社のファイルなので今日できんのよ
明日行ったらやってみる
453:デフォルトの名無しさん
22/03/21 21:21:07.73 S9+WMeZFH.net
>>442
ありがとうございます！
やってみます！
454:デフォルトの名無しさん
22/03/21 21:49:42.78 HoitaytG0.net
日本のExcelのレベルが低いからExcel講師やパソコン教室が潤うと。
455:デフォルトの名無しさん
22/03/21 22:13:13.78 NuDNOSQMd.net
ループ文とか条件文とかユーザーフォームとかクラスとか使ってごちゃごちゃやってるけど結局のところファイルの開閉と転記作業しかしてない事に気づいた
転記があれば何でも出来る
456:デフォルトの名無しさん
22/03/21 23:00:27.32 Rbd9piL90.net
転記の子
457:デフォルトの名無しさん
22/03/22 00:36:53.70 000FKf5P0.net
始めたてのド素人ですがご教示頂けると幸いです。
表の列ごとにランダムに入っている異なるフォントの色で正負を判断して最終行に和と差の合計値を出力したいのですが可能でしょうか？
詳しく言うと赤色が負として、黒色が正としてセルに数値が手打ちされてます。
列の最終行を取得しsum関数を挿入することはできるのですが、フォントの色で正負を判断して合計値が出せるのか教えていただけないでしょうか。
458:デフォルトの名無しさん
22/03/22 00:49:54.42 kEBDDtio0.net
>>449
もともとエクセルにはマイナスの数字を自動的に赤くする機能がある
その機能で色を変えてるんだと集計の方法も変わってくるから、まずはそこを確認して
459:デフォルトの名無しさん
22/03/22 01:08:13.62 TibwPpTv0.net
書式に辿り着ければ
自ずと答えが見つかろうぞ
460:デフォルトの名無しさん
22/03/22 01:19:04.08 KVIRUNm3d.net
そもそもVBA不要
sumif関数で出来る
461:デフォルトの名無しくん
22/03/22 02:43:58.13 d3YPRjya0.net
きっとこれは黒色の負とか青色の正とかあって
あえて色で集計したいんだろうな
と、深読み
462:デフォルトの名無しさん
22/03/22 12:14:00.76 000FKf5P0.net
ご返信ありがとうございます。
表のシートが種類ごとにあって量が千を超えているので自動化したい所存です。
前任が手書きの台帳をエクセルに落してくれたまでは良かったのですが、他の社員が手書きのときと変わらず正の値で色のみ変えて入力するため、毎年年度末になると延々と手作業で何時間も単純作業を強いられるのでなんとかならないかと思案しておりました。
463:デフォルトの名無しさん
22/03/22 12:33:30.37 jGZXGfWV0.net
条件書式でゼロ以上は赤字にするとかでもダメなんか？
逆にVBA使った方が遅かったり不便にかりそうな案件だと思うんだが
464:デフォルトの名無しさん
22/03/22 13:33:25.27 MYdjPEb1M.net
>>421
> 残念ながら20万件100項目という量のせいか、
> フィルターを掛けるとそのまま固まってしまい、いつ返ってくるか、そもそも返ってくるのかすら分からない状況になりました。
PC買い替えろ
30万行x300列に数値データを埋めてやってみたけどフィルター処理なんてほぼ瞬時に終わるぞ
465:デフォルトの名無しさん
22/03/22 13:38:08.96 mA7AOTDM0.net
他の社員が入力してるものだからなあ
集計よりも入力用のシートを何とかできたら手っ取り早いんだがそれは無理なんかな
466:デフォルトの名無しさん
22/03/22 13:43:49.21 R4HxgmoiM.net
色付けるよりマイナス記号打つ方が速いだろうに……
ご苦労さまでした
467:デフォルトの名無しさん
22/03/22 13:48:33.03 C94PEu1/d.net
>>454
はっきり言えばこんなこともできないお前は手を出すな
468:デフォルトの名無しさん
22/03/22 14:03:10.79 l3SAD7eYM.net
>>455
元のデータが 1, -2 ってなってるところを 1, 2 (←赤文字) で入力されてるんだろ
>>454
if Cells(行,列).Font.Color = RGB(255,0,0) Then ...
で判断できるよ
データ書き換えていいなら（てか、個人的にはそうすべきと思うが）
For C In ActiveSheet.UsedRange
If C.Font.Color = XlRgbColor.rgbRed And IsNumeric(C.Value) Then
C.Value = -C.Value
C.Font.Color = XlRgbColor.rgbBlack
End If
Next
として、一気に書き換えちゃうのがいいかも
469:デフォルトの名無しさん
22/03/22 19:08:50.48 Gjrul4fP0.net
>>456
流石に仕事場のPCを勝手に買い替えるのは私には出来ませんし、
最終的にフィルター等の処理は使用せずにかなりの高速化をはかることが出来ました。
この方式が最速ではないかも知れませんが、
今までADO接続でSQLを実施して
2～3分掛かっていた処理が一瞬で終わるようになったので満足しています。
今まで質問に答えて頂いた方、色々参考にさせていたきました。
ありがとうございました。
470:デフォルトの名無しさん
22/03/22 20:15:28.30 WUXZwGEtd.net
>>454
やはりVBAは不要
オートフィルターのフォント色で絞り込み、subtotal関数で十分
471:デフォルトの名無しさん
22/03/22 23:22:39.90 VOPCLAbN0.net
本当にド素人なのでお許し下さい
ここに3枚の請求書（Excelデータ形式)があり、それぞれsheet1、sheet2、sheet3にあります
フォーマットはバラバラで文字や配置が異なります
これをsheet4で「支払日」「取引先名」「取引内容」「税込金額」を一覧表にしたいのです
こういうことはVBAでは可能でしょうか？
可能であれば、難易度はどの程度でしょうか？
＊実際には請求書は数百枚あります
472:デフォルトの名無しさん
22/03/22 23:26:23.97 b3mXLXMM0.net
>>463
フォーマットが統一されていれば、vbaでやる意味はある
フォーマットが統一されていない場合、vbaで書く意味がほとんどない。手作業でコピペするのと変わらん