Excel VBA 質問スレ Part54

**デフォルトの名無しさん** · 2018/06/21(木) 19:45:05.77

>>380
スマホタブレット世代の若いヤツはそれをいいとは思わないだろ。

**デフォルトの名無しさん** · 2018/06/23(土) 22:52:17.92

誰かwbsのイナズマ線を自動で引いてくれるソース書ける人いない。。。？

どこから初めていいかすら、分からない。

**デフォルトの名無しさん** · 2018/06/23(土) 22:56:41.49

>>382
まずは息を30分停める練習をしてください。
それができたら来てください。

**デフォルトの名無しさん** · 2018/06/23(土) 23:06:49.20

>>382
1. WBSの入力サンプルを用意する
2. 1に基づいてイナズマ線を手動で書いてみる
3. 2に基づいてどういう入力のときにどういう出力をすればいいのか整理してパターン化する
4. 3に基づいてコーティングする
5. 4を動かして2と同様の出力になるかどうか確認する

**デフォルトの名無しさん** · 2018/06/23(土) 23:55:59.49

>>382
> どこから初めていいかすら、分からない。
流石にその状態だとこっちもどこから教えたらいいかすら、わからん
Excel 稲妻線あたりでググって適当なアドイン使ったほうがいいんじゃね？

**デフォルトの名無しさん** · 2018/06/24(日) 02:48:24.86

Project買えばいいのに
これだからExcel陶酔者は困るんだ

**デフォルトの名無しさん** · 2018/06/24(日) 04:38:46.13

VBAなんだから、何はともあれマクロの記録からだろ。

**デフォルトの名無しさん** · 2018/06/24(日) 06:57:49.54

VBAの本に書いてあるコードをひたすらパソコンに写経して実行してればVBAできるようになりますか？

**デフォルトの名無しさん** · 2018/06/24(日) 07:22:58.28

>>388
3日でオッケー

**デフォルトの名無しさん** · 2018/06/24(日) 07:38:59.29

>>388
タイピングの能力上がるだけかな

**デフォルトの名無しさん** · 2018/06/24(日) 07:42:37.49

>>382
まずはWBSとイナズマ線の定義を明確化して
全てはそこからだよ

**デフォルトの名無しさん** · 2018/06/24(日) 08:59:29.02

GG佐藤のせい

**デフォルトの名無しさん** · 2018/06/24(日) 11:05:37.20

ワールドビジネスサテライト?

**デフォルトの名無しさん** · 2018/06/24(日) 11:16:27.44

「イナズマ線」でググったらこんなの出ましたけど？

イナズマ線を簡単に引くExcelマクロを作りました
http://www.fin-itnews.com/entry/2015/08/12/031032
Sub イナズマ線描画()
'FreeformBuilderオブジェクトを宣言
Dim InazumaLine As FreeformBuilder
'始点を設定
Set InazumaLine
'以降の点を結んでいく
'繰り返し用変数i
Dim i As Integer
'列の位置固定用変数
'上から下にセルをなめていく。0以外の数値ならイナズマ線を引く
For i
'数値以外はスキップ
If Not () Then
'0もスキップ
ElseIf
'イナズマ線を引く（正の数なら＞、負の数なら＜）
Else
End If
Next i
'終点を設定
'イナズマ線を描画
'見た目の編集（青の太線）

**デフォルトの名無しさん** · 2018/06/24(日) 11:37:54.91

>>386
Redmineでもなんでもいいけどオープンソース使えばいいよ
ビジネスマンなら無駄な出費は最小限に抑えなきゃ

**デフォルトの名無しさん** · 2018/06/24(日) 12:13:16.69

イナズマ線でほんとにイナズマになるのってまずいんだから
直線引いとけばいいんじゃいないかな

**デフォルトの名無しさん** · 2018/06/24(日) 12:19:54.19

フリーの高機能プロジェクト管理ソフト「OpenProj」 …
http://fnya.cocolog-nifty.com/blog/2009/02/openproj-57cb.html

**デフォルトの名無しさん** · 2018/06/24(日) 16:45:47.79

1.シェイプの直線を挿入するのをマクロの記録で記録する。
2.記録されたコードの中で始点と終点と思われる部分を適当に変えて実行してみる。
3.2で得られた任意の2点で直線を引くマクロを2回実行し、その時1回目の終点と2回目の始点を同じ座標にする。
4.3の実行結果後、マクロの記録で2つの直線をグループ化するのを記録する。
5.n個の直線を引いた後で一度にグループ化するように処理を変更する。
6.n+1点の配列を引数にして上記を実行するようにプロシージャを作成。

マクロの記録は余計なコードが大量に含まれるから関係ないものを削除して実行を繰り返すと良いコードになる。

**デフォルトの名無しさん** · 2018/06/24(日) 19:39:24.37

>>382
まずは全裸になって町を駆け抜けてくさい

(´・ω・｀)b

**デフォルトの名無しさん** · 2018/06/25(月) 02:57:29.92

特にエラーがあるわけでもなくブレークポイントを設置しているわけでもないのに
黄色い矢印が出て止まるのってなんなんでしょうか
必ず起きるというわけでもなく出たり出なかったな上に続行ボタンを押せば特に問題もなく終了するので
発生原因がまったくわからないのですがこれバグかなんかですか？
@2013

**デフォルトの名無しさん** · 2018/06/25(月) 05:18:46.50

>>400
スクリーンショット見せて

**デフォルトの名無しさん** · 2018/06/25(月) 08:03:49.23

>>400
必ず止まるわけじゃないだろ。

バグかどうか分からんけど、わりとよくある。
PC再起動で直る。

**デフォルトの名無しさん** · 2018/06/25(月) 08:30:31.52

ウィンドウフォーカスが外れるとオブジェクトが使えなくなってしまい止まるコードは良くある。
コーディング上の問題

**デフォルトの名無しさん** · 2018/06/25(月) 17:38:11.74

>>400
「VBAProjectのコンパイル」を実行してからF5押してもダメか？
たまーに同様のケースでこれで解決する場合があったんで。

**デフォルトの名無しさん** · 2018/06/26(火) 00:55:55.45

>>400
エラー起きた後に続行すると動くって事は
画面が完全に表示しきれてないのに読み込もうとするからじゃない？
初心者ならエラー起きる箇所の前にwait入れる
プロなら完全に表示しきったら次の処理に行くようにする

**デフォルトの名無しさん** · 2018/06/26(火) 01:11:37.07

>>405
馬鹿丸出し

**デフォルトの名無しさん** · 2018/06/26(火) 06:58:14.23

>>400
多分バグ
ブレイクポイントを設定したままセーブして
立ち上げ直すと起こる奴のことじゃないかな？
そこにブレイクポイントを再度設定して
外してやって起きるか試してみ？

**デフォルトの名無しさん** · 2018/06/26(火) 10:41:27.52

エラーの出た行のコード晒せ
話はそれからだ

**デフォルトの名無しさん** · 2018/06/26(火) 10:41:48.80

エラーメッセージとエラーコードもな

**デフォルトの名無しさん** · 2018/06/26(火) 19:28:17.51

セル内にアルファベットがあるかどうか判断する関数おしえて

**デフォルトの名無しさん** · 2018/06/26(火) 19:32:21.60

>>410
馬鹿は死ねよ

**デフォルトの名無しさん** · 2018/06/26(火) 19:34:38.24

>>410
VBAじゃなくて関数でいいの？
そしたら>>411に聞いたら？
きっと親切に教えてくれるよ

**デフォルトの名無しさん** · 2018/06/26(火) 22:55:31.63

「VBAじゃなくて関数」って方言かなにか？

**デフォルトの名無しさん** · 2018/06/26(火) 23:19:47.41

なんでエラーが出たことになってんの?
全く理解出来ん。

**デフォルトの名無しさん** · 2018/06/26(火) 23:20:01.37

Sumifsの引数って内部的にどうなってるんでしょう?
ABABAB…って繰り返すので、
Byval何とかAs何とかってのが延々並んでいる状態?
それとも繰り返し用の書き方がある?

**デフォルトの名無しさん** · 2018/06/27(水) 00:47:40.69

>>415
馬鹿は死ねよ

**デフォルトの名無しさん** · 2018/06/27(水) 02:45:33.38

ParamArray

**デフォルトの名無しさん** · 2018/06/27(水) 15:38:51.10

2007でオブジェクトブラウザでみると、ずらずらと引数書いてあるな

**デフォルトの名無しさん** · 2018/06/27(水) 19:43:31.93

テーブル1に、row数が同じテーブル2を合体させたい
データ、書式設定、条件付き書式やドロップダウンリストごとテーブル1に合体させたい。
どうやるのが無難ですか？

**デフォルトの名無しさん** · 2018/06/27(水) 20:21:28.84

全く作り方が思い付かないからご教授お願いします。

①入力の所に数字を入れる。
②up or downに数字が入れる。

例　入力45 up1 down2

③upとdownを計算 -1
④入力45がコードのCとDの間で下のDとして③で計算された-1上を選択。
⑤判定が×だから○まで上に上がりBを選択。

※計算が+なら下へ、判定○ならその左のコードを取得、×なら○まで下へ。

※上下に移動していって該当がない、移動なし、判定×ならエラー。

こんなのを作りたいんですが上下移動がどうしたらいいか分かりません。
https://i.imgur.com/rZ7HQjn.jpg

**デフォルトの名無しさん** · 2018/06/27(水) 21:19:12.71

>>420
ループが書けるなら何も難しいポイントはないと思うけど？

**デフォルトの名無しさん** · 2018/06/28(木) 01:22:28.68

どんな状況で使うんだそれwww

**デフォルトの名無しさん** · 2018/06/28(木) 01:31:07.58

>>419
テーブルで結合せず普通にRangeでくっつけてテーブルにすれば良いのでは？そっから書式はどーにでもなる

**デフォルトの名無しさん** · 2018/06/28(木) 07:43:13.21

>>421
Do while Not EOF(filNo)
　Line Input ♯filNo,strtxtLine
　ReDim Presrve arrline(cntLine)
　cntLine=cntLine+1
Loop

実際はこれでtxtファイルを読み込んでから1行ずつ見ていって判定処理したいんだけど、無理かな？

**デフォルトの名無しさん** · 2018/06/28(木) 09:01:19.54

>>424
無理じゃない
テキストファイルを配列に読み込んで処理すればいい
配列はワークシートのセルとまったく同じ構造なので、ワークシートで動くプログラムが作れたらRange (Cells)の部分をArray型に置き換えるだけ

**デフォルトの名無しさん** · 2018/06/28(木) 09:56:18.70

i=1
range("i:2").select
でエラーが返ってくるのはなぜなんだぜ？

変数を含んだ行をコピペしようと思って、これでシンプルにできると思ったらできなかった

**デフォルトの名無しさん** · 2018/06/28(木) 10:06:24.86

平成30年のつもりで
H30 = 2018
とかやってた時に
Range(“A30:H30”)が”A30:2018”と解釈されたら困るだろ

**デフォルトの名無しさん** · 2018/06/28(木) 10:15:49.57

>>426
iを"で囲んじゃってるからじゃない？

**デフォルトの名無しさん** · 2018/06/28(木) 10:41:16.13

i人を囲ってるに空目した

**デフォルトの名無しさん** · 2018/06/28(木) 12:37:51.72

VBA昨日から始めたんですが
小数点第1位の繰り上げ処理がしたいけどわかりません
cells(1,1)=cells(1,2)/3とか簡単なやつをひたすら書いてるだけなのですがどうか力を貸してください

**デフォルトの名無しさん** · 2018/06/28(木) 12:41:28.62

右クリック
書式の設定

**デフォルトの名無しさん** · 2018/06/28(木) 12:54:29.19

>>430
切り上げ？繰り上げ？

**デフォルトの名無しさん** · 2018/06/28(木) 13:15:42.35

>>430
worksheetfunction.roundupで良いんじゃないの？

**デフォルトの名無しさん** · 2018/06/28(木) 14:23:59.86

>>431
すいません、切り上げです。
>>432
マクロの結果が123.1だったら124にしたいってことです
>>433
切り上げたいセル=そのコードでいけますか？

**デフォルトの名無しさん** · 2018/06/28(木) 16:57:32.15

worksheetfunction以外ないでしょ。
わざわざvba使う意味がよく分からないけど。

**デフォルトの名無しさん** · 2018/06/28(木) 17:03:23.93

関数でだけでいいですよね。
ありがとうございます

**デフォルトの名無しさん** · 2018/06/28(木) 17:16:56.61

切り上げ程度の簡単な処理でも、VBAだけで全部作るよりWorksheetFunctionの方が速い？

**デフォルトの名無しさん** · 2018/06/28(木) 18:48:16.37

知らん実際に作ってみろよそして共有してくれ
家じゃexcel無いしめんどい

**デフォルトの名無しさん** · 2018/06/28(木) 21:14:43.44

めんどいのに意味のないレスはしたくなる馬鹿のジレンマ

**デフォルトの名無しさん** · 2018/06/29(金) 13:09:40.61

わざわざ車輪の再発明をするこたぁねー

**デフォルトの名無しさん** · 2018/06/29(金) 14:09:13.49

ジャップ企業「わざわざ車輪の再発明をするこたぁねー」
アップル「iPodでウォークマンを再発明しました！」
アップル「iPhoneで携帯電話を再発明しました！」
アップル「iPadでタブレットを再発明しました！」

**デフォルトの名無しさん** · 2018/06/29(金) 14:32:14.75

iPodがウォークマンの再発明としか思えないから
日本からああいう製品は出なかったんだろうな

**デフォルトの名無しさん** · 2018/06/29(金) 15:12:37.97

アップルの成功はAppStoreをオープンにしてアプリを爆発的に増やしたこと
日本企業はオープンにせず独自企画が好きだもんな
iPodの頃なんて大して注目されてなかったし

**デフォルトの名無しさん** · 2018/06/29(金) 18:29:20.51

どこがじゃ。
全然オープンじゃねえだろ。

iPodのインパクトだろ。
こういうものはガジェオタが飛びついて一般に浸透してくから、最初は一般に注目される必要は無い。

デザインの力は大きかった。

**デフォルトの名無しさん** · 2018/06/30(土) 06:54:28.54

条件付き書式って名前とかタグみたいな個を識別できるようなプロパティないの？
条件にごちゃごちゃ付け加えると重くなるからvba側で操作したいんだけど
特定できそうなところでなんちゃって判定するしかないのこれ

**デフォルトの名無しさん** · 2018/06/30(土) 11:04:23.50

ない上に知らん間に増殖する
全消しして追加がいいよ

**デフォルトの名無しさん** · 2018/06/30(土) 12:09:38.19

>>446
> ない上に知らん間に増殖する
そうなんだよね
条件付き書式の整理とか統合とかのコマンドがほしいわ

**デフォルトの名無しさん** · 2018/06/30(土) 13:14:20.39

条件付き書式が設定されたセルを調べることは可能
https://support.office.com/ja-jp/article/8313ee09-b95d-444a-8103-6bbf3691e82b

**デフォルトの名無しさん** · 2018/07/03(火) 15:03:44.94

>>447
確かに欲しい。でも作ろうと思えば作れる事に気がついた。
追加されるとは考えられないしやるか・・

**デフォルトの名無しさん** · 2018/07/03(火) 20:55:45.98

>>449
作って公開してくれ～

**デフォルトの名無しさん** · 2018/07/03(火) 23:35:17.33

ACCESSのフィールドをExcelに転記するとき、
例えばそれぞれ
1
2
3
4
5
と入っているレコードを
下から3つを転記したい(3、4、5の順で)場合どのようにすればよいのでしょうか？
CopyFromOrdersetでRowsMaxを3にすると1、2、3となり、下の3件3、4、5の順では転記できないでしょうか？
SQLのORDER BYを使うと5、4、3の順となりなかなかうまくいきません。
どなたか解決策を教えていただけないでしょうか？

**デフォルトの名無しさん** · 2018/07/04(水) 00:45:48.22

>>451
Sortすりゃいいだろ

**デフォルトの名無しさん** · 2018/07/04(水) 02:15:12.29

>>451
https://msdn.microsoft.com/ja-jp/library/cc408450.aspx
>コピーは Recordset オブジェクトの現在の行を開始点として行われます。
らしいから、現在行を３行目にしとけばいいんじゃない

**デフォルトの名無しさん** · 2018/07/04(水) 02:16:31.79

>>451
https://msdn.microsoft.com/ja-jp/library/cc408450.aspx
>コピーは Recordset オブジェクトの現在の行を開始点として行われます。
らしいから、現在行を３行目にしとけばいいんじゃない

**デフォルトの名無しさん** · 2018/07/04(水) 07:21:03.50

>>452-454
早速にありがとうございます。
確かに転記後にソートでどうにでもなりそうですね。
できれば転記時にできればとおもっておりました。
カーソル位置を3行目にする事で解決はおっしゃるとおりですね。
ただ私の最初の前提が不十分な解説のため申し訳ありません。データが増えていった場合でも下から3つを取り出したい場合はどうすればよいか苦慮しています。
ExcelVBAのように、Offsetが使えたらデータが増えていっても下から3つだけを取り出すという風にできていいなと思うのですが。

**デフォルトの名無しさん** · 2018/07/04(水) 09:26:05.39

>>455
topを使って馬鹿はいい加減に引っ込め

**デフォルトの名無しさん** · 2018/07/04(水) 18:30:51.27

>>455
現在行をn-3行目にしとけば良いんじゃない

>>456
単純にtop取るんじゃなくて、descでorder byしてtop取ったやつをもう１回order byする必要があるんだが
そんなSQLがすらすら書けるようなレベルのやつはこんな質問しないし

**デフォルトの名無しさん** · 2018/07/04(水) 18:39:25.28

もう一回order byは必要無いだろ。
Excel側で対処すれば良い。

**デフォルトの名無しさん** · 2018/07/04(水) 18:41:40.31

>>457
こいつみたいに、後から出てきて回答してることをグタグタ書く馬鹿も来なくていいよ

**デフォルトの名無しさん** · 2018/07/04(水) 19:03:04.14

>>458
それが自分でできてりゃ
>SQLのORDER BYを使うと5、4、3の順となりなかなかうまくいきません。
てな事にはなってないだろう

**デフォルトの名無しさん** · 2018/07/04(水) 21:37:47.81

>>451
このあたりを参考にしてみ
http://www.accessclub.jp/bbs2/0051/beginter16860.html

**デフォルトの名無しさん** · 2018/07/04(水) 22:03:13.56

EAK

**デフォルトの名無しさん** · 2018/07/05(木) 07:07:56.16

マクロ・VBAの勉強がしたいです
どのような方法で勉強を進めるのが理想でしょうか
エクセルのレベルはVLOOKUPなどのメジャーな関数を使える程度のレベルです
ちなみに会社員です

**デフォルトの名無しさん** · 2018/07/05(木) 07:22:05.89

>>463
何をしたいのか明確な目的が必要
楽したい！ってモチベーションがないと続かないよ
トライ&エラーを繰り返すこと
教本だけでは身に付かないから、実践は必ず必要

**デフォルトの名無しさん** · 2018/07/05(木) 07:38:50.41

>>463
Vlookupの欠点を知ってるよね？

**デフォルトの名無しさん** · 2018/07/05(木) 07:44:26.36

vloookupをdisる様になったらエクセル使いとして一人前

**デフォルトの名無しさん** · 2018/07/05(木) 08:33:49.18

>>463
今からプログラミングを覚えるならVBAなんて化石言語はやめましょう
言語的に近いC#がいいと思いますよ
VBA程度の事は全て出来ますしもっと色々と出来るので推奨

**デフォルトの名無しさん** · 2018/07/05(木) 08:39:30.09

体系的に勉強する価値なんてないよ
やらなきゃいけないことをググって試してみての繰り返し
プログラミングのスキルやセンスを磨きたいなら他の言語で学んだ方がいい

**デフォルトの名無しさん** · 2018/07/05(木) 14:06:51.76

>>463
こんなところで聞かなきゃいけない時点でもうダメだな

**デフォルトの名無しさん** · 2018/07/05(木) 18:59:11.64

>>463
VBAを覚えて何がしたいのか知らんが、仕事で活用するなら
まず、エクセル関数をもっと覚えて関数で何とかできるようになりましょう

事務処理ならエクセル関数だけで大概のことはできる
VBAが必要な場面はあまり無いと思う。せいぜいファイル操作くらいか

**デフォルトの名無しさん** · 2018/07/05(木) 19:22:05.35

すいません、processingについてのスレッドはありますでしょうか？

**デフォルトの名無しさん** · 2018/07/05(木) 19:26:01.95

使いわけでしょ。
数千あるチェック項目の内、1日100個ぐらいずつをチェックしていき、その集計結果で1日の結果を関数で出し、更に1ヶ月のト―タルなんかを関数でやってたら重くてどうにもならなくなったりするし。

銀行でDBから取ってきたデ―タが辻褄があってるかを調べるなんて仕事をしたことが有るんだが、その為にシステム組んでる側の(と言ってもそいつが組んでる訳じゃない)奴がチェック用に用意したsumproduct多用ブックは酷かった。
触る度に5分とか10分とか待たされた。
VBAで組んだら一瞬になったけどね。

自動再計算を切るのも諸刃の剣だし。

**デフォルトの名無しさん** · 2018/07/05(木) 21:09:35.03

プログラマじゃない普通の会社員がExcelを使うのにVBA勉強すんのは普通だろ。
なんで不必要なC#とかやらにゃならんのだ。
プログラマってほんと頭でっかちやな

**デフォルトの名無しさん** · 2018/07/05(木) 21:17:37.90

VBAって二十年くらいなんの進歩もないよね
この言語を覚えて次に全く役に立たないじゃん
キャリアアップの為にも意味ないよね

**デフォルトの名無しさん** · 2018/07/05(木) 21:30:31.77

>>473
プログラマじゃないとしても今時エクセルだけじゃ話にならんでしょ
誰だって日常的にディレクトリ階層とエクセル以外のファイルを扱う
ツールの拡張がスクリプト言語になってることは良くある
自分のWindowsを管理するにはpowershellを使うね
得に最近需要が高まってるのはREST APIやスクレイピング技術だな
いずれもVBAでもできんことはないが果てしなく古臭い構文と開発環境、貧弱なライブラリのせいで死ぬほど生産効率悪いんだよね
マゾにはオススメかもしれんがノーマルな人にはオススメできんな

**デフォルトの名無しさん** · 2018/07/06(金) 00:17:05.86

>>474
VBAは進歩がないのがメリットとも言える。
pythonなんかは2と3で動作仕様が異なる上、モジュールのバージョンも気にする必要があって、別PCで同じ環境を構築しようとすると結構面倒。
その点、VBAはどんなPC、エクセルのバージョンであっても安定して動作するって意味では楽だな。

色々言語触ったけど、自分の結論としてはどの言語が良い悪いではなく、結局適材適所で使い分けが大事。

**デフォルトの名無しさん** · 2018/07/06(金) 00:21:52.27

WindowsUpdateの影響で個々のPCで不具合でまくるが

**デフォルトの名無しさん** · 2018/07/06(金) 00:23:59.34

もっと短いのにならないかな。
Vlookupとか長いので、GonとかPnとかさ。
Sheet1も地味に長いよね。
Werでいいよね。

**デフォルトの名無しさん** · 2018/07/06(金) 01:20:50.99

事務員はプログラマじゃないからVBで十分
他の言語を扱うなら担当の部署に回すか外注する
部署で自分しか扱えない言語を触りだしたら間違いなくそいつは地雷

**デフォルトの名無しさん** · 2018/07/06(金) 04:19:54.50

iPad上でもWinで書いたVBAファイルは動きますか？
ファイルをやり取り出来る？

**デフォルトの名無しさん** · 2018/07/06(金) 05:32:38.53

「エクセルで十分」ってよく聞くフレーズだけど
「料理するには石器で十分」のような強烈な違和感を感じる

**デフォルトの名無しさん** · 2018/07/06(金) 06:34:19.51

VBAって結構リストビューになかされない？最近win10になったけどバグる。
そもそもリストビュー使わない？

**デフォルトの名無しさん** · 2018/07/06(金) 07:10:52.75

>>480
Office365じゃないとVBAは動かなかったはず。ファイルはやり取り可能だが

**デフォルトの名無しさん** · 2018/07/06(金) 07:19:10.36

>>476
> その点、VBAはどんなPC、エクセルのバージョンであっても安定して動作するって意味では楽だな。
VBAはいいとしてもその上のExcelの動作がバージョンによって変わる
特にグラフ周りはグダグダ

**デフォルトの名無しさん** · 2018/07/06(金) 07:20:30.17

普通の事務職がVBAを勉強したいっていう何の変哲もない書き込みにおまえら首の皮を取ったようにレスしててワロタ
おまえらみたいなのが少数派だってことを認識した方がいいぞ

**デフォルトの名無しさん** · 2018/07/06(金) 07:22:51.27

>>485
首の皮を取ったは違うよね

**デフォルトの名無しさん** · 2018/07/06(金) 07:37:29.57

会社員=事務員じゃないし、首の皮取ったら職失うし

**デフォルトの名無しさん** · 2018/07/06(金) 07:48:02.36

悪いこと言わんからちんこの皮は取っとけよおまえら

**デフォルトの名無しさん** · 2018/07/06(金) 08:11:08.51

鬼の首OTL

**デフォルトの名無しさん** · 2018/07/06(金) 08:13:48.33

もう俺はおまえらに何も言えない
首の皮を取って出直してくる

**デフォルトの名無しさん** · 2018/07/06(金) 08:17:03.43

本気でプログラミングするわけでもない事務員なら、より簡単に色々出来ることが多い言語を選ぶのが正解だろ？
マゾはVBAから始めてもいいけど完全に選択肢間違えてっぞ

**デフォルトの名無しさん** · 2018/07/06(金) 08:28:53.67

>>491
本気じゃないからVBでいいんだよ

**デフォルトの名無しさん** · 2018/07/06(金) 08:36:24.85

ExcelVBAを学びたい人の目的はExcel上での自動化なので、他の言語提案する馬鹿は、要求仕様もRFPも設計も出来ない馬鹿だと思う

**デフォルトの名無しさん** · 2018/07/06(金) 09:45:05.51

真に事務屋に必要なのはAutoHotkeyとかUWSCみたいな即物的なマクロツール

**デフォルトの名無しさん** · 2018/07/06(金) 10:26:11.58

つーかいい加減VBAなんてゴミ捨てろよ
手抜き目的でプログラムなんて興味なしが大半なんだからそのへん雑なjsが最適だろ
型だのSetだのCallだのいらねーんだよハゲ

**デフォルトの名無しさん** · 2018/07/06(金) 10:50:34.44

えっ、エクセルでJS使えるの？

**デフォルトの名無しさん** · 2018/07/06(金) 10:54:51.32

エクセルと心中する気持ちがある
目指せエクセルマスター
それぐらい本気で取り組む気持ちがあるならVBA
そこまでの覚悟がないなら他の簡単で使い道が多い言語にしたほうがいいね

**デフォルトの名無しさん** · 2018/07/06(金) 11:43:53.94

>>496
カスタム関数がjsで書けるようになる。
現在ベータテスト中のはず。
またpython対応も進められてるはず。

**デフォルトの名無しさん** · 2018/07/06(金) 12:22:05.24

ここぞとばかりに湧いてきよった教えたがりのプロさん達w

**デフォルトの名無しさん** · 2018/07/06(金) 12:25:31.91

>>484
エクセルのグラフや統計ツールは場当たり的な作業で使うもので、自動化には向かない。
そういうのはpythonとかの方がいいよ。

**デフォルトの名無しさん** · 2018/07/06(金) 12:53:44.00

>>500
エクセル並のグラフ作れるライブラリ教えてくれたら考える

**デフォルトの名無しさん** · 2018/07/06(金) 12:58:51.82

ExcelのjavaScript対応なんて、Googleスプレッドシートの後追いじゃないの？
サーバーサイドじゃなくクライアントで動くなら助かるけど、
でたぶん、APIがあるだけで関数書式はVBAと同じ手続き踏まされると予感

**デフォルトの名無しさん** · 2018/07/06(金) 13:01:16.07

excelは圧倒的な普及率が強み
多少使い勝手が悪くても使う理由

**デフォルトの名無しさん** · 2018/07/06(金) 13:18:06.25

>>502
もちろんクライアントサイド。google spreadシートのはサーバーサイドでちょっと複雑な処理書くと制限に引っ掛かったりで非常に遅く、jsの仕様もes5相当の古い書き方しかできず辛い。
その点excelはedgeのjsエンジンであるchakraコアがそのまま動き最新の機能が使える。
まさかのasync/awaitまで使えて夢が広がる

**デフォルトの名無しさん** · 2018/07/06(金) 22:07:27.55

dim rng as range
for each rng in selection.rows
以下略

こんな感じで複数行選択して各列に対して操作を行いたいんですよ
でその操作の中で行をコピー・挿入だったり削除だったりするんですけど、それがselection内だったりするとselectionそのものが変わっちゃったりするんです
複製された行に対しても操作しようとしたり、削除されて上に1行繰り上がって本来操作されるべき列が飛ばされたり
なんかいいアイディアないですかねぇ

>>482
同じことあった。ライブラリのバージョン違うと動かんのねあれ
客が使うオフィスのバージョン確認したわ

**デフォルトの名無しさん** · 2018/07/07(土) 00:17:11.58

>>505
動作を理解していない馬鹿頭の問題だろ

**デフォルトの名無しさん** · 2018/07/07(土) 01:41:26.84

どなたか教えて頂けませんか。
Debug.Printが毎回追記されていくのがうっとうしくて、下記のような記述をしました。

Private Sub im_del()
Application.VBE.Windows("Immediate").SetFocus
SendKeys "^a", False
SendKeys "{Del}", False
End Sub

Sub ABCDE()
Call im_del
Debug.Print "ABCDE"
End Sub

ところが、一瞬"ABCDE"の記述が出現した後、すぐ消えてしまいます。
"ABCDE"を出力したあとに、ctrl+A、Del、が処理されているように見えるんですが、これは何故起こってるんでしょうか？

**デフォルトの名無しさん** · 2018/07/07(土) 02:47:26.85

間にwaitを入れてみようや

**デフォルトの名無しさん** · 2018/07/07(土) 04:25:45.76

>>507
SendKeysはWindowsさんに伝言をたのむ命令
その伝言が伝わる前に直接連絡した方が先に届いてもおかしくない
DoEventsいれてみ

**デフォルトの名無しさん** · 2018/07/07(土) 08:40:44.63

ここはほんとうに素晴らしいスレッドですね。　
>>456とか>>459とか>>466とか雰囲気悪くするだけだからもうこなくていいよw

**デフォルトの名無しさん** · 2018/07/07(土) 11:39:14.52

>>510
こいつも雰囲気悪くしてるからw

**デフォルトの名無しさん** · 2018/07/07(土) 12:19:02.02

>>511
おまえが一番雰囲気悪い

**デフォルトの名無しさん** · 2018/07/07(土) 12:25:42.85

>>510
ゆとり世代？

**デフォルトの名無しさん** · 2018/07/07(土) 13:34:48.20

5chに来て何言ってんだ
建前抜きにした罵詈雑言の罵り合いも殺伐とした空気も煽りも自演も5chの醍醐味だろう
綺麗なインターネットを求めてるなら実名でブログでもツイッターでもやりゃいい

**デフォルトの名無しさん** · 2018/07/07(土) 13:54:07.60

pythonは次期Excelに搭載されないことが決定しただろ馬鹿

**デフォルトの名無しさん** · 2018/07/07(土) 14:08:45.28

マジかーvbaとpythonとjsの悪魔合体楽しみにしてたのに

**デフォルトの名無しさん** · 2018/07/07(土) 14:29:36.35

ゆとり世代の知恵遅れの人達はいちいち誉めてあげないとダメだよ

**デフォルトの名無しさん** · 2018/07/07(土) 15:03:05.21

リアルではみんな良い人なんだろうな
そうだろ？
クソ野郎ども

**デフォルトの名無しさん** · 2018/07/07(土) 15:28:46.37

そりゃ外にいる間は外向けの性格だからな

**デフォルトの名無しさん** · 2018/07/07(土) 15:30:15.90

真夜中は別の顔って言うだろ？

**デフォルトの名無しさん** · 2018/07/07(土) 15:47:06.11

ｵﾆｰﾁｬﾝ(*・∀・*)ｴｯﾁｰ!!

**デフォルトの名無しさん** · 2018/07/07(土) 16:25:39.38

Sendkeysは基本避けるべき。
お手軽だからその時だけ動けば良い場合なんかに使うこともあるけど、制御できるようにWin32や別のAPI使うべきだよ。

**デフォルトの名無しさん** · 2018/07/07(土) 16:28:50.65

ああ、でもイミディエイトは簡単にはいかないんだった。
Win32でどうにかしようとして一発でExcel落ちること多数。

俺もSendkeys以外で操作出来ないや。

**デフォルトの名無しさん** · 2018/07/07(土) 18:36:53.15

>>515
これホント？
決定したの？

**デフォルトの名無しさん** · 2018/07/07(土) 19:36:53.17

Pythonが使えるようになったとして、Rangeの扱いはどうなるんだろ？
xlRangeとか名前変えて凌ぐのかな。
xlPyter NoteBookとかもうワケがわからなくなりそうな気がする

**デフォルトの名無しさん** · 2018/07/07(土) 19:44:46.42

プロどもウザいからレスすんな糞が

**デフォルトの名無しさん** · 2018/07/07(土) 20:14:51.88

アマチュアの皆さんはプロの話についてこれないでしょう
あるのかしらないけど事務員板などに行って、そっちで同レベル帯の人達だけでディスカッションすれば捗るのでは？

**デフォルトの名無しさん** · 2018/07/07(土) 20:49:13.07

むしろプロどもがどっか行けや

**デフォルトの名無しさん** · 2018/07/07(土) 20:51:26.92

違いない。ここはVBA質問スレなんだからな

**デフォルトの名無しさん** · 2018/07/07(土) 21:06:39.47

最近質問ないし

**デフォルトの名無しさん** · 2018/07/07(土) 23:21:18.94

無いんなら黙っとけ

**デフォルトの名無しさん** · 2018/07/07(土) 23:27:07.08

python実装するとかしないとかそういう話はどこで知るんですか？

**デフォルトの名無しさん** · 2018/07/08(日) 00:24:11.25

スマートニュース

**デフォルトの名無しさん** · 2018/07/08(日) 00:51:38.64

ID:Ojk7x3Ta
知的障害者？それともただの馬鹿？

**デフォルトの名無しさん** · 2018/07/08(日) 02:16:28.17

ID:Ojk7x3Ta
重度の妄想癖のある統合失調症患者
近いうちに行政の方に保護される予定です

**デフォルトの名無しさん** · 2018/07/08(日) 02:32:21.70

荒らし(プロ?w)が開き直って人格攻撃してるw

**デフォルトの名無しさん** · 2018/07/08(日) 02:41:06.85

>>536
でVBAの質問は？
何か聞きたい事はないの？
ないならキエロ

**デフォルトの名無しさん** · 2018/07/08(日) 05:58:21.86

質問です
エクセルでゲームを作っている初心者ですが
セルの背景に風景画を設定し、
それをたまに切り替える処理は可能ですか？
特にセル内にはアイテムjpgを表示して、その背面に風景画を
表示させたいのですが

**デフォルトの名無しさん** · 2018/07/08(日) 06:23:17.01

普段事務系でVBAを利用しており大変役立っているのでVBAがボロクソ言われているのに衝撃を受けました。もっと良い方法があるのなら是非知りたいです。
他の言語の方がいいというお声をちらほら拝見したのですが、例えばエクセルで集計や管理しているデータを仕訳化して会計システムに読み込ませるようなケースでは他の言語の方が良い場合があるのでしょうか。
それとも、そもそもでエクセルを使っている場合はやはりVBAの方が向いているのでしょうか。
エクセル使っている時点で糞というご意見もあるでしょうが、、、

**デフォルトの名無しさん** · 2018/07/08(日) 06:33:19.33

>>539
>エクセルを使っている場合はやはりVBAの方が向いているのでしょうか。
現状その通り、将来的には分からんってだけ

**デフォルトの名無しさん** · 2018/07/08(日) 08:22:47.98

>>410
instr使って26*2回loop回して判定すればいいよ

**デフォルトの名無しさん** · 2018/07/08(日) 08:42:38.55

>>539
データ入力まではエクセルでOK
表形式のデータ入力ならエクセルが便利ってのは事実だ

入力したデータを読み込み、なんらかの計算をして、別のシステムと連携する
といった処理は他の言語を使ったほうがいい
データの読み込みはExcel.Applicationのおかげでどの言語でもできるし各言語にもっと良いライブラリがある場合もある
一旦データを読み込んでしまえば後の処理はエクセルから独立して作ることができるのでエクセルの制約に縛られることがなく快適だ

VBAはイベントハンドラなどエクセルの操作を拡張するちょっとした処理を定義する場合に仕方なく使うものと割り切ろう
例えば表形式のデータ入力を補助するちょっとした処理を作りたいな、と思ったらVBAでOK

**デフォルトの名無しさん** · 2018/07/08(日) 09:07:44.23

またパワーシェルキチガイやC#キチガイなどが降臨してくる悪寒 w

**デフォルトの名無しさん** · 2018/07/08(日) 10:58:47.60

textboxが3つあって仮にABCとして、enterイベントでエクセル読み取ってlistboxに追加。追加されたものをダブルクリックしたらtextboxに入れる。

A→追加→dクリック→Aに追加
B→追加→dクリック→Bに追加

textboxに追加する際にtextboxを特定するにはどうしたらいいですか？

**デフォルトの名無しさん** · 2018/07/08(日) 12:55:49.90

>>544
日本語をまともに書けるようになってから出直してこい
そんな頭だからわからんだけ

**デフォルトの名無しさん** · 2018/07/08(日) 13:46:29.05

>>545
おまえじゃま

**デフォルトの名無しさん** · 2018/07/08(日) 13:57:15.04

>>544
意味わかんねえから誰も答えらんねえ

enterイベントって何よ？そのイベントはどこから発生する設定なわけ？

"エクセル読み取って"とは？

listboxに追加されるのはエクセル？ｗ

最後に、なぜlistboxからtextBoxに追加する？

**デフォルトの名無しさん** · 2018/07/08(日) 14:25:14.30

>>544
実現したい事を一個づつ分けてみては？
ちょっと意味が分からない

**デフォルトの名無しさん** · 2018/07/08(日) 14:50:14.10

エスパーしてみた

textboxが3つ(a,b,c)とlistboxが1つあって、
いずれかのtextboxに値を入力してenterを押下すると、その値がlistboxに追加される。
(その際に、どのtextboxから追加されたのかも情報として保持しておく)
listbox側でアイテムをダブルクリックすると、そのアイテムを元のtextboxに再度表示させる。

というような動作がしたいのではなかろうか？

**デフォルトの名無しさん** · 2018/07/08(日) 16:00:48.38

説明下手ですまん。
textbox a b c３つ。
listbox　1つ。

listboxにはa b cにはそれぞれ違う入力候補が表示される。
textboxがフォーカスされるとエクセルから読み取ってlistboxに入る。
ここまでは出来た。

抽出された、listboxから選んでそれをダブルクリックでtextboxに入れたい。
その時に入れるべきtextboxの保持の仕方が知りたい。出来ますか？

**デフォルトの名無しさん** · 2018/07/08(日) 16:10:27.07

>538も頼む

**デフォルトの名無しさん** · 2018/07/08(日) 16:15:19.97

>>550
お前馬鹿なの？
オブジェクト名は何のためにあると思ってるの？

>>546
答えもしないお前が引っ込め

**デフォルトの名無しさん** · 2018/07/08(日) 16:29:59.39

listbox1のリスト要素は textbox a,b,c選択毎に変わる。a選択時にはa用要素、b選択時にはb用要素...と。
ユーザーがリストの要素をダブルクリックした時に目的のboxに入力させたい。て話ね。
単にコードの内部で変数維持すりゃいんじゃないの？

**デフォルトの名無しさん** · 2018/07/08(日) 16:51:15.17

>>552
そんな怒るなって

**555** · 2018/07/08(日) 17:50:15.92

555げっち(´・ω・｀)b

**デフォルトの名無しさん** · 2018/07/08(日) 18:47:41.75

最後に選択したTextBoxを覚えておく変数を用意するだけだろ。

**デフォルトの名無しさん** · 2018/07/08(日) 20:58:12.98

>>538
>>551
SetBackgroundPicture
ズバリそのもののメソッドあるじゃん
書き込む前にググるくらいはしようよ…

**デフォルトの名無しさん** · 2018/07/08(日) 21:07:48.99

>>557
ありがとうございます
でもそれつわてどういうキーワードだと引っかかるんですか？

**デフォルトの名無しさん** · 2018/07/08(日) 21:39:50.37

>>558
「セル背景画像 vba」でググっただけだよ
むしろどんな単語で検索したのかこっちが聞きたい

あーあと勝手に>>538はシート全体へ背景を表示したいと捉えたけど
文字通り「一つのセルに背景画像と他の画像を重ねて表示」させたいなら
AddpictureとZOrderをキーワードに調べてみて

**デフォルトの名無しさん** · 2018/07/08(日) 21:42:11.08

>>507です。
SendKeysのctrl+A、Del、のあとに２秒も待機をはさみましたが、やはり"ABCDE"が出力されてからその文字列が削除されました。
検証したところ、環境のせいか何なのか分かりませんが、SendKeyはマクロが終わってから処理されているみたいです。
あきらめます。いろいろどうも。

**デフォルトの名無しさん** · 2018/07/08(日) 22:45:24.72

うちで色々試してみたけど、少なくともWin10+Excel2016(64bit)の環境では
イミディエイトウィンドウのクリアがうまく動かない

なぜかSendkeysのところで警告音が鳴って(音だけでメッセージは出ない)、何も処理されてない感じになる
ネット上にもサンプルが色々転がってるけど、やってることはみんな同じだし、原因がよく分からん
DoEventsやSleepもあちこちに入れてみたけど変わらず

**デフォルトの名無しさん** · 2018/07/08(日) 23:16:12.57

Win7で試し、XPで試し　ははぁ～ん、もしかして、これは、レガシーアーキテクチャーだったんだな、と
Accessだと、とっくに「SendKeys」は使うな　とご託宣のシロモノ　　理由は言わずもがな

**デフォルトの名無しさん** · 2018/07/08(日) 23:30:09.96

しかしVBScriptやら他の言語では普通に使えてるんだよなあSendkeys

**デフォルトの名無しさん** · 2018/07/08(日) 23:49:41.57

んな面倒なことしなくても、バックスペースをそのまま出力すればいいんじゃないの?
どこかでそんな作例見たぞ。

**デフォルトの名無しさん** · 2018/07/09(月) 01:06:22.88

バックスペースでもデリートでもかまいませんが、
マクロ処理より「先に」SendKeysがしたい、というのが主旨でした。

別にSendKeysにこだわる理由もないのですが、どうにも他の手段も思いつきません。
みんな煩わしくないのでしょうか。

**デフォルトの名無しさん** · 2018/07/09(月) 02:12:41.70

>>564
そもそもSendkeysがまともに動かない
BackSpaceもみんなダメ

**デフォルトの名無しさん** · 2018/07/09(月) 04:14:18.18

Sendkeysじゃなくて、Debug.Printで出力しろって言ってるんじゃないのか
出来るかどうかは知らんけど

うちの環境でSendkeys試したら、それ以前にイミディエイトウインドウがアクティブにならんかったわ

**デフォルトの名無しさん** · 2018/07/09(月) 07:20:58.16

>>567
確かに検索するとバックスペースを大量に出力する方法も出てくるけど2016ではだめだった
制御コードはみんなスペースに変換されて出力される

イミディエイトウィンドウをアクティブにするには、日本語版では "イミディエイト"
"immediate" は英語版

**デフォルトの名無しさん** · 2018/07/09(月) 14:06:10.15

もうメモ帳で立ち上げたテキストファイルにリアルタイムで追記していくでいいじゃん

**デフォルトの名無しさん** · 2018/07/09(月) 14:10:18.91

>>568
>イミディエイトウィンドウをアクティブにするには、日本語版では "イミディエイト"
いや、それはわかっている
SetFocusしてもアクティブにならんかったんだよ
まあ古い環境なんで追試するほどのもんでもないしどうでもいいが

**デフォルトの名無しさん** · 2018/07/09(月) 16:20:47.97

Excel2010、2013、2016
Excelに詳しくない人が何でも貼付をする為、書式がグチャグチャになっていく・・・。（値に貼り付けが基本と説明してもわからず・・・。）

こういうのを作ったけど不具合が出てしまう。（貼付が出来る。）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Target.PasteSpecial xlPasteValues

Application.CutCopyMode = True

End Sub

「値に貼付」以外の貼付ボタンを非表示かロックをする方法は無いでしょうか？

**デフォルトの名無しさん** · 2018/07/09(月) 20:45:31.58

>>571
何をしたいのかよくわからんけど書式なんて無視しとけばいいんじゃね？

**デフォルトの名無しさん** · 2018/07/09(月) 21:04:26.74

問答無用で値のみに強制するならchangeでコピーundo値貼り付けでいけそうだが
共有ファイルだと他の人に迷惑だし全体の書式を修正するコード書いたほうがいいんじゃないの

**デフォルトの名無しさん** · 2018/07/09(月) 22:14:03.98

SubとFunctionの違いは
返り値がないかあるかの違いだけですか？

**デフォルトの名無しさん** · 2018/07/09(月) 22:15:58.48

英語やってる人なら
x イミディエイト
o イミーディイット
のカタカナにしたいな。

**デフォルトの名無しさん** · 2018/07/09(月) 22:25:59.43

>>572
すみません。
書式だけではなく、セルの保護まで設定される。
コピー＝セル保護有
ペースト＝保護無のところに保護有に切り替えてしまう。

**デフォルトの名無しさん** · 2018/07/09(月) 22:28:22.30

>>573
そのパターンもありますね。
明日、チャレンジしてみます。

**デフォルトの名無しさん** · 2018/07/09(月) 22:29:58.84

>>542
539です。遅くなりましたが詳細ありがとうございました。
他の言語を使った方がいいとのことで、例えばどのようなものがおススメでしょうか。経験があられましたらお知恵をお借りできましたらありがたいです。

**デフォルトの名無しさん** · 2018/07/10(火) 00:35:37.60

>>578
馬鹿には無理だからこのままExcelを使ってろ

**デフォルトの名無しさん** · 2018/07/10(火) 01:41:22.65

>>578
横だが、
　> 普段事務系でVBAを利用しており大変役立っている
本業があるならこれでいいと思うよ

ここの人達（特に口が悪い人たち）は、目的を忘れて道具をありがたがる傾向があるけど
本業が別にある人は、そんな人たちの道楽に付き合う必要はないよ

もし、今の業務を大幅に見直したいとか自動化したいとか考えているなら
自分で何か言語を習得して…、ではなく、そこはプロのソフト屋さんに任せるのが一番
そして本業として求められるのは、システムの要求仕様をきっちりまとめる事
本末転倒とならないためにも、要求仕様をまとめることが一番大事ですね