Excel VBA 質問スレ Part57

**デフォルトの名無しさん** · 2018/10/21(日) 22:00:53.93

無視したら

**デフォルトの名無しさん** · 2018/10/24(水) 20:08:02.64

どうせ半年後は.jsになってるんだし

**デフォルトの名無しさん** · 2018/10/24(水) 21:19:25.29

昔アセンブラやってたけど
今はアセンブラの知識なんて
まず糞の役にもたたない
悪いことは言わないから
IL止まりにしておいて
残りの時間を他の言語の学習に回した方がいい

**デフォルトの名無しさん** · 2018/10/24(水) 23:52:56.26

VBAってWinAPI 使えるんだな
入力もエクセルのシート利用できるし使いがっていいなこれ
自分だけ使うものはこれで十分な気がしてきた

**デフォルトの名無しさん** · 2018/10/25(木) 00:03:26.58

二次元配列に入力できるってかなり神がかってると思う

**デフォルトの名無しさん** · 2018/10/25(木) 08:52:35.61

何を二次元配列に入力できる事が神がかってるの？

**デフォルトの名無しさん** · 2018/10/25(木) 09:32:39.27

人間が抽象化なしで無理なく扱えるデータは二次元の表までなのは確かだな
特別な技能を持たない人間の能力的限界がExcel

**デフォルトの名無しさん** · 2018/10/25(木) 11:20:28.64

行（列）をベクトルだとみなすと何次元にでもなるでしょ
テンソル入れ物にするメリットってあるか？
レベル上がると有益になるのかな

**デフォルトの名無しさん** · 2018/10/25(木) 18:41:01.78

>752
文字列と数値。ってかこれ以外セルには入れられないでしょ。オブジェクトは入れられないし

**デフォルトの名無しさん** · 2018/10/26(金) 00:13:09.54

何を～に入力できる？
って質問に対して間違っちゃいないが...

**デフォルトの名無しさん** · 2018/10/26(金) 01:08:48.00

>>755
変数型のことじゃなくて、どんな
データかって意味じゃね？

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

セルって単語が後出しだからこうなるんだよ

**デフォルトの名無しさん** · 2018/10/26(金) 08:36:50.37

わかるなら聞くなよハゲども
なんでハゲてるか自問してろ

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

>>750
当然だがWinAPIだけじゃなくVB呼び出しに適う任意のAPIが呼べるから、自分だけの環境なら何だって可能

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

解凍・圧縮用のdllであるunlha32やらunzip32なんかもちゃんと用意されていて、vbaから利用できるしな

**デフォルトの名無しさん** · 2018/10/26(金) 12:00:29.68

>>761
え、ないでしょ？
あるんだっけ？

**デフォルトの名無しさん** · 2018/10/26(金) 13:41:39.22

「自分だけの環境」の話だろw

**デフォルトの名無しさん** · 2018/10/26(金) 20:18:33.42

それ言い出すとシェル呼び出してそこから外部プログラムの実行でなんでもできるわな

**デフォルトの名無しさん** · 2018/10/27(土) 00:10:36.89

それだと最早Excel VBAを起点にする意味がないんだよなぁ

**デフォルトの名無しさん** · 2018/10/27(土) 09:39:45.10

戻り値主体の関数的な使い方がしにくいのでは？

**デフォルトの名無しさん** · 2018/10/27(土) 12:17:32.77

なんで何でもできたら悪いみたいな言い方やねん

**デフォルトの名無しさん** · 2018/10/27(土) 15:13:38.94

彼女の作り方がわからない

**デフォルトの名無しさん** · 2018/10/27(土) 17:08:31.91

事務の女性をお得意のVBAで助けてやるんだ

**デフォルトの名無しさん** · 2018/10/27(土) 20:08:09.98

助けてあげても一瞬感謝されるだけで何も起こらないぞ
下手すると感謝すらされない

**デフォルトの名無しさん** · 2018/10/27(土) 21:27:07.52

>>770
そう、気づかないんだよな・・・

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

助けても後出しで本当はこうしたいのにできてないだの文句言われる

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

全然助けれとらんやんwプロさんあわれwww

**デフォルトの名無しさん** · 2018/10/28(日) 09:41:11.55

ちょっとしたことでいいからピンポイントで教えてあげる。
食いついてこなかったら諦める。

**デフォルトの名無しさん** · 2018/10/28(日) 10:40:54.72

ExcelVBAで、女にもてるようになる方法スレ w

**デフォルトの名無しさん** · 2018/10/28(日) 11:02:16.86

ランダムアクセスファイルでデータ管理をしています。
いままで動いていたものが　GET PUT　で　「レコード長が一致しない」となります。

一部こんな感じです。
Const MONTH_SIZE As Long = 60
Type M_Rec
S_code As Long
Stock As Long
byCode As String * 8
M_id_Cre(MONTH_SIZE) As Integer
End Type
Public S_MAIN_REC As M_Rec

Open FileName For Random As #SmainNO Len = Len(S_MAIN_REC)
Get #SmainNO, indexNo, S_MAIN_REC

この標準モジュールを破棄して同じモジュールをインポートすると
正常に動きますがワークブックを保存して再起動し同じ処理をすると
エラーになります。
Public S_MAIN_REC As M_Rec　の　記述場所を移動させると正常に
動きましたがモジュール内に新規プロシージャを追加したらまた
エラーが出るようになりました。
モジュールが壊れていると思い新しく作成しても同じでした。
ご意見お願いします。
現在ユーザ定義　の　M_id_Cre(MONTH_SIZE) As Integer　の配列を
６１に変更し正常動作中です。

**デフォルトの名無しさん** · 2018/10/28(日) 11:41:59.08

さすがに時代遅れにも程がある
そんな黴の生えたゴミカスは今すぐ捨てて普通にワークシートで管理するかDBにしろ

**デフォルトの名無しさん** · 2018/10/28(日) 15:41:48.78

言い過ぎ。しかしランダムアクセスファイルとは懐かしい

**776** · 2018/10/28(日) 16:59:37.36

すみません
もともとはワークシートで管理していたのですがファイルのほうが
都合が良いので変更しました。

**デフォルトの名無しさん** · 2018/10/28(日) 17:01:07.70

で、今まさにその前提が間違っていたことが判明したんだろ？
直ちに戻しなさい

**デフォルトの名無しさん** · 2018/10/28(日) 20:08:41.54

馬鹿の特徴

動きません
エラーが起きます

決して具体的なエラーメッセージを書かない

**デフォルトの名無しさん** · 2018/10/28(日) 21:40:15.40

バカの特徴
書いてあるエラーメッセージを理解できずに自爆 w

> GET PUT　で　「レコード長が一致しない」となります。

**デフォルトの名無しさん** · 2018/10/28(日) 23:30:32.75

ここの住人回答者は居丈高だからteratailにでも質問なさい。
ただコード具体例とエラー詳細はいずれにせよ求められるけど

**デフォルトの名無しさん** · 2018/10/29(月) 00:30:55.69

>>782
馬鹿は表面的なことしか見えない

**デフォルトの名無しさん** · 2018/10/29(月) 04:51:38.42

>>784
表面的なことすら見えてないバカの自爆乙 w

**デフォルトの名無しさん** · 2018/10/29(月) 09:45:00.02

初心者には環境とかエラーの詳細な条件を明記することへの心理的な障壁があります
その心理の正体は一体何でしょう？

**デフォルトの名無しさん** · 2018/10/29(月) 10:53:33.28

慣れの問題かと
・自信ないのでミス指摘されたくないなどの自尊心問題
・コンプライアンスリスクとの取り違え
・個人情報リスクとの取り違え

**776** · 2018/10/29(月) 11:24:48.23

少し荒れてしまいましたね、すみません

エラーは書いてあるとおり「レコード長が一致しない」
Openステートメントで指定された長さと異なるということなのですが
レコード変数やOpen Get Putのプロシージャなど変更せずに
このエラーが発生しました。多分VBAのバグだと思うのですが
詳しい方に教えていただきたく思いまして書き込みしました。
タイミングが悪かったですね。

**デフォルトの名無しさん** · 2018/10/29(月) 11:33:02.57

確かにタイミングが悪かったな
20年遅いわ
今回お前が苦労して解決しても後で他の誰にも分からないんだぞ？
そんなもん押し付けられる方の身にもなってみろ

**デフォルトの名無しさん** · 2018/10/29(月) 11:45:30.06

「VBA ファイル読み書き」で検索してOpen コマンドとかが出てくるものかねえ

**デフォルトの名無しさん** · 2018/10/29(月) 11:48:12.61

？出てくるぞ？あたりまえだろ

**デフォルトの名無しさん** · 2018/10/29(月) 14:25:31.25

>多分VBAのバグだと思うのですが

まぁ言語の方に責任を押し付けたくなるのは判るがなw

**デフォルトの名無しさん** · 2018/10/29(月) 15:23:05.64

何わろとんねん

**デフォルトの名無しさん** · 2018/10/29(月) 16:45:28.78

>>788
バイナリエディターでレコードファイルを確認するのと、テスト環境作ってレコードを減らしても発生するかみる

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

>>794
頼む

**776** · 2018/10/29(月) 19:56:48.16

>>794
エラーになる状態ですと、新規にファイルを作成しても１レコード目でエラーとなりますので
ファイルがおかしいとは思えません。ユーザー定義のレコードサイズ、モジュール変数の
メモリ設定があやしいと思うのですが。

**デフォルトの名無しさん** · 2018/10/29(月) 23:29:14.96

素人質問ですみません
エクセルで消費税を算出したいのですが、一つのセル内で完結できないでしょうか
ググっても税抜き価格と税込み価格の、二つのセルを使うものばかりでして

**デフォルトの名無しさん** · 2018/10/29(月) 23:52:48.29

>>791
まさかな、と思ってぐぐってみたら本当だった。
しかもqiitaの新着記事にもそんなのあるし。

なぜなのか？

**デフォルトの名無しさん** · 2018/10/30(火) 00:03:25.38

>>796
最小条件での動作確認しないなら俺はなにもいわない

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

>>797
それVBAの質問なの？そもそも

**デフォルトの名無しさん** · 2018/10/30(火) 12:34:46.04

>>797
税抜き価格を入力したら、そのセルの数値を自動的に1.08倍するマクロ

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Int(Target.Value * 1.08)
Application.EnableEvents = True
End Sub

**デフォルトの名無しさん** · 2018/10/30(火) 13:48:04.01

際限なく1.08倍していきます

**デフォルトの名無しさん** · 2018/10/30(火) 17:38:32.50

消費税は際限なく上がる

**デフォルトの名無しさん** · 2018/10/30(火) 18:40:58.23

くだらない質問だと思いますが、会社のバーコードで在庫納品書委託委託精算等連携したものを作成する場合は初心者でどのくらい作成期間がかかるものでしょうか？

**デフォルトの名無しさん** · 2018/10/30(火) 18:50:13.80

100年くらい見積もっておけば間違いない

**デフォルトの名無しさん** · 2018/10/30(火) 18:53:25.90

少なくとも、SIerに委託するより>>804の給料の方が遥かに高くつくくらいの期間は間違いなくかかるよ

**デフォルトの名無しさん** · 2018/10/30(火) 19:15:41.01

>>806
因みに幾らくらいかかるものでしょうか？

**デフォルトの名無しさん** · 2018/10/30(火) 19:49:51.22

>>807
仕様がわからないので見積もれません
4000億円ぐらいみとけば間違いない

**デフォルトの名無しさん** · 2018/10/30(火) 20:01:06.67

テーブル(lo)を列毎に配列で取り出して処理したいのですが、キーを列名、値に列範囲を格納すればforループで代入できて簡潔なのでDictionaryを使ってみようと思っています。

Dim dic As Dictionary: Set dic = New Dictionary
Dim lc As ListColumn
For Each lc In lo.ListColumns
＿dic.add lc.name, WorksheetFunction.Transpose(lc.DataBodyRange.value)
next lc

以上で作成した「Dictionaryの値」に格納した「配列の値」に代入が出来ません。
例えば

debug.print dic(見出しA)(1)　'「ピカチュウ」が表示
dic(見出しA)(1) = "ライチュウ"
debug.print dic(見出しA)(1)　'「ピカチュウ」が表示

となってしまいます。しかし以下の様に配列を格納し直すと反映されます。

debug.print dic(見出しA)(1)　'「ピカチュウ」が表示
dic(見出しA) = Array("","ライチュウ", dic(見出しA)(2),・・・
debug.print dic(見出しA)(1)　'「ライチュウ」が表示

修正があるたびに配列を代入し直すのは面倒なので出来れば値を直接書き換えたいのですが、どうすればいいのでしょうか。

**デフォルトの名無しさん** · 2018/10/30(火) 20:25:09.48

>>809
そもそもlo.ListColumns(lc.Name).Range.Item(Index).Value でテーブル内のセル値のセッターにアクセス出来るので、わざわざそんなことをやる必要がないと思う
仕様上ListObjectは列名重複が許されないし、ListColumnsコレクション自体がDictionaryと殆ど等価のハッシュテーブルになる

**デフォルトの名無しさん** · 2018/10/30(火) 20:50:28.74

ありがとうございます
現在はそうしているのですが（元々それがやりたくて全部テーブルに置き換えたのですが）
値を取り出すときに毎回ListColumns(lc.Name).DataBodyRange(Index).Valueと長々書く為コードが読みづらいのと、配列にすればちょっと速度改善が見込めるかなと思って試していました。

**デフォルトの名無しさん** · 2018/10/31(水) 13:51:41.06

Dictionaryの代替以外の回答もお待ちしてます。

あと追加で質問なのですが、先ほどのTransposeの様にワークシート関数を利用するなら配列ではなくセル範囲の方が速いという記事を見つけました。
どういう原因でそうなるのでしょうか？

**デフォルトの名無しさん** · 2018/10/31(水) 17:54:26.42

一般的にユーザーによる同等のVBAコードよりワークシート関数の方が速い
C#とかよりC++ネイティブの方が数～倍速くなるのと同じ

**デフォルトの名無しさん** · 2018/10/31(水) 18:27:27.91

>>812
組込みの機能はアプリケーション内でリソース管理が最適化されてるのでね
VBAで

**デフォルトの名無しさん** · 2018/10/31(水) 18:30:36.22

>>812
組込みの機能はアプリケーション内でリソース管理が最適化されてるのでね
VBAでやると不要な大きさのバッファを確保してたりして無駄が多くなる

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

シートにボタン配置して押したら、オートシェイプの直線を引ける段階までって出来る？いわゆるショートカットキー的な感じの。
実際に直線を引いちゃうのは山ほどネットに転がってるけど、引くのは任意でやりたい。

**デフォルトの名無しさん** · 2018/11/01(木) 10:46:24.36

>>816
出来ない。

**デフォルトの名無しさん** · 2018/11/01(木) 18:36:00.35

Excelのセルに入ってるデータを使ってOutlookでメールをVBAで書きたいのですが
それぞれの行やある文字についてフォントや色などで装飾したいんです。
そんなことはできますか？
なんかできなそうなんですが。
でもこれをしないとものすごく不便なのです。
うまくいけば残業せずに遊びながら居残りしてお金だけはたくさんもらえるのですが・・・

**デフォルトの名無しさん** · 2018/11/01(木) 18:51:35.86

>>816
できるよ。

**デフォルトの名無しさん** · 2018/11/01(木) 19:09:06.19

>>816
サルでもできるよw
単にボタンにマクロの登録をすればいいだけ。

**デフォルトの名無しさん** · 2018/11/01(木) 19:13:58.18

>>820
う～ん...
俺もできるとは思うけどそんなに簡単か?
何を登録するんだ?

**デフォルトの名無しさん** · 2018/11/01(木) 19:18:10.81

>>821
ボタンを挿入して右クリックしてマクロの登録を選び実行させたいプロシージャを選ぶだけ

**デフォルトの名無しさん** · 2018/11/01(木) 19:22:20.09

>>822
直線を引く直前の状態にするプロシージャって簡単に書けるのかい?

**デフォルトの名無しさん** · 2018/11/01(木) 19:24:41.75

>>818
やったこと無いけどHTMLメールにして本文をHTMLにすれば良いんじゃない?
あとはテキストメール作成と同じじゃないの?

**デフォルトの名無しさん** · 2018/11/01(木) 19:26:55.17

>>818
HTML書けるならこの辺りを見ればわかるだろ
https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.bodyformat

**デフォルトの名無しさん** · 2018/11/01(木) 19:30:44.64

>>824
じゃ具体的なコードはどうなるの？

例えば、「こんにちは、うんちと申します。」の文で、うんちを太字で茶色にしたい場合。

**デフォルトの名無しさん** · 2018/11/01(木) 19:33:37.59

>>825
こんにちは、<B><font color=brown>うんち</font></B>と申します。
？

**デフォルトの名無しさん** · 2018/11/01(木) 23:23:17.57

>>820
できないから聞いたんだが？

**デフォルトの名無しさん** · 2018/11/01(木) 23:35:45.63

できるって言ってる人は質問をよく理解してないんだと思う

**デフォルトの名無しさん** · 2018/11/01(木) 23:45:47.15

この板は日本語が読めない低学歴知恵遅れが多いのはあってる
えてして書いてある要件とまったく違うもんをあげてくるよくいる軽い池沼入ってるのと似てる

**デフォルトの名無しさん** · 2018/11/01(木) 23:59:15.18

お互い様

**デフォルトの名無しさん** · 2018/11/02(金) 00:46:25.82

>>16
Excelのマクロの記録はVBAコードで表現できないものは原則できない
操作自体の記録再生ができるUWSCとかRPAといったツールを呼び出せばできる

**デフォルトの名無しさん** · 2018/11/02(金) 06:47:30.99

Sendkeysで無理くりリボンメニューの直線を選択するコードを作ってショートカット割り当てる位しかないと思う

**デフォルトの名無しさん** · 2018/11/02(金) 07:54:22.50

>>828
あなたはサル以下ということだ。ウイッキー。

**デフォルトの名無しさん** · 2018/11/02(金) 10:00:17.95

>>816

あれ？　まだコードあがってないですね。
じゃぁExcel2010用ですが、サンプルを、、、
目的に合わせてShapeIDを変えてください。

Sub CreateShape()

　Dim ShpID As Long 　　' ShapetypeID
　Dim iShpCnt As Long 　' Shape Count (追加待ち判定)
　Dim SHP As Variant　　' Loop用Shape

　' Create Shape
　'--------------------------------
　ShpID = 409 　　　　　'Freeformの場合
'　ShpID = 1119　　　　　'Ovalの場合
'　ShpID = 1042　　　　　'LineConnectorの場合
　iShpCnt = ActiveSheet.Shapes.Count
　Application.CommandBars.FindControl(ID:=ShpID).Execute
　Do
　　DoEvents
　Loop While iShpCnt = ActiveSheet.Shapes.Count
End Sub

描かずに連続で押すと処理が入れ子になってしまうのが
難点ですが、、、

**デフォルトの名無しさん** · 2018/11/02(金) 10:56:22.32

>>835
なるほど

**デフォルトの名無しさん** · 2018/11/02(金) 12:39:25.94

>>835
できた！ありがとうございます！

**デフォルトの名無しさん** · 2018/11/02(金) 12:40:29.21

>>835
これで出来たんだね。
コード書ける環境じゃ無いから試せなかったけど、この方法かUIAutomation使うかどちらかかなあと思ってた。

CommandBarControl.ExecuteでもShapeの場合トグルっぱい動作だから思う状態になるか自信が無かった。

**デフォルトの名無しさん** · 2018/11/02(金) 12:44:20.35

あれ、Do～Loopの処理は気付かんかったなあ。
自分が作成してたら動かんかったと結論出してたかも。

**デフォルトの名無しさん** · 2018/11/02(金) 12:50:59.79

>>839
StackOverFlowかどっかのサイトの受け売りなんですけどね。
どこからもらったのか忘れた、、、

**デフォルトの名無しさん** · 2018/11/02(金) 12:57:46.92

>>835
あ、後続の処理用の変数消し忘れてた。
Dim SHP　の行は不要です。

**デフォルトの名無しさん** · 2018/11/02(金) 17:17:11.16

ちなみになんだけどDoLoopはなんの為にあるんですかね？
なくても同じ動きすんだけど。

**デフォルトの名無しさん** · 2018/11/02(金) 17:57:06.50

書き終わってShapeオブジェクトが作成されるまで、次の処理を待機

元々書いた後に何か処理をするプログラムの一部だったんだと思う
今回はCommandBarControlのコマンドが実行された時点で仕事は終わってるから要らないかと

**デフォルトの名無しさん** · 2018/11/02(金) 18:54:32.40

>>843
ループ無くても動くんなら思った通りだった。
違いが有るとすれば自分はFindControlは使わず、コントロールの指定もIDじゃなくて名前使う所。

名前はFor Each使ってCommandBarを列挙して名前をDebug.Print、そのCommandBarに対してFor EachでCommandBarControlを列挙して名前をDebug.Printなどで調べる。

**デフォルトの名無しさん** · 2018/11/02(金) 19:49:18.45

>>842
ん？　Do - Loop 部分ないとちゃんと動かんよ？
VBEから実行してない？
ボタンに割り付けると、ボタン押した瞬間に十時カーソル消えるはず。
Excel2010より新しいVersionは動きが違うの？

**デフォルトの名無しさん** · 2018/11/02(金) 20:57:01.00

>>845
ボタン押したらクリックしたら線がかけるようになったよ。
2003でも動いたし、2007でも動いた。

**デフォルトの名無しさん** · 2018/11/03(土) 00:21:42.99

Excel2010でも試したけど、ループのないプロシージャで描けたよ
勿論ボタンのクリックイベントから

**デフォルトの名無しさん** · 2018/11/03(土) 00:44:19.57

フォームコントロールに割り当てると描けないっぽい
ActiveXコントロールのイベントで呼べば描けるが

フォームコントロールって何のために有るんだろう・・・

**デフォルトの名無しさん** · 2018/11/03(土) 04:34:07.93

任意のセルをコピーして所定の場所にペーストするマクロを作りたいです。
セルをコピーした状態からマクロ記録を取って、ペーストするだけのマクロを作ったのですがうまくいきません。

教えてください！

**デフォルトの名無しさん** · 2018/11/03(土) 06:28:54.02

>>848
VBAで作るフォームと処理を共有できる、とか？

**デフォルトの名無しさん** · 2018/11/03(土) 06:31:10.97

>>849
マクロの記録だと余計な処理が追加されるから、それを削るだけでうまくいくはず
まずは記録したマクロをここに書いてみ

ただしCtrlを押しながら複数のセルをコピーした場合はかなり難しくなる

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

>>848
ああ、なるほど。
確かにフォームボタン使ってた。
そのために余計な苦労をしたってわけか。
情報Thx!

**デフォルトの名無しさん** · 2018/11/03(土) 11:31:29.48

>>851
Sub Macro5()
'
' Macro5 Macro
'

'
Range("AH11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

こんな感じです。これはセル１つ選択です。（最終的には複数選択してシート間でコピペする予定です）

**デフォルトの名無しさん** · 2018/11/03(土) 11:43:19.50

社名　金額　　部門
================
A社　1000円　営業
A社　2000円　事務
A社　1500円　事務
A社　3000円　販売
B社　1500円　事務
B社　3500円　営業
C社　1000円　営業
C社　3000円　営業
C社　1500円　販売
D社　2000円　事務

こんな感じのA社⇒D社のように整列されたデータに対して

**デフォルトの名無しさん** · 2018/11/03(土) 11:43:51.55

社名　金額　　部門
================
A社　1000円　営業
A社　2000円　事務
A社　1500円　事務
A社　3000円　販売
A社　　　　　　営業計 1000円 <
　　　　　　　　　事務計 3500円 <
　　　　　　　　　販売計 3000円 <
　　　　　　　　　　　　計 7500円 <
B社　1500円　事務
B社　3500円　営業
B社　　　　　　営業計 3500円 <
　　　　　　　　　事務計 1500円 <
　　　　　　　　　　　　計 5000円 <
C社　1000円　営業
C社　3000円　営業
C社　1500円　販売
C社　　　　　　営業計 4000円 <
　　　　　　　　　販売計 1500円 <
　　　　　　　　　　　　計 5500円 <
D社　2000円　事務
　　　　　　　　　事務計 2000円 <
　　　　　　　　　　　　計 2000円 <
全社　　　　　　営業計 8500円 <
　　　　　　　　　事務計 7000円 <
　　　　　　　　　販売計 4500円 <
　　　　　　　　　　　　計 20000円 <

こんな感じに行の間に小計、最後に合計を挿入するようなコードありますか？(　<　が追加行）
小計は必ず　営業、事務、販売の順番に並び、0円の場合は行自体挿入しません
実際ののデータは会社数、部門共に30以上あるので速度重視であれば望ましいです

**デフォルトの名無しさん** · 2018/11/03(土) 12:46:22.45

そんなもんExcelのグループ集計で一発
お前に必要なのはVBAではなくExcelの入門書

**デフォルトの名無しさん** · 2018/11/03(土) 13:03:36.46

>>827
span使え

**デフォルトの名無しさん** · 2018/11/03(土) 13:12:27.13

>>855
とりあえずピボットでググったら？

**デフォルトの名無しさん** · 2018/11/03(土) 13:18:18.27

標準のエディタインライン展開できないとかsubの引数名自動で変えられないとかクソすぎ
誰かもっと開発しやすいやつをくれ

**デフォルトの名無しさん** · 2018/11/03(土) 13:30:31.88

集計したい訳じゃなくデータを作成したいんだって

**デフォルトの名無しさん** · 2018/11/03(土) 13:33:02.71

>>860
だからそれはグループ集計でできる

**デフォルトの名無しさん** · 2018/11/03(土) 13:38:02.57

VBAで作るには？

**デフォルトの名無しさん** · 2018/11/03(土) 13:47:38.58

グループ集計の操作をマクロで記録するといいよ

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

>>853
単にシート間で複数セルの値を同期させたいだけならそもそもクリップボードを経由しない方が早いのでは？
VBAでコピーしないでワークシート関数でシート間参照させるとか、コピー元のセルのValueプロパティなりFormulaプロパティなり、必ずコピーしなきゃいけないプロパティだけをコピー先のプロパティに直接代入するとか

ユーザーによるコピー操作そのものを再現しなきゃいけない理由でもあるの？

**デフォルトの名無しさん** · 2018/11/03(土) 18:06:58.76

>>864
シート間で照合するデータだとマクロ使わずできるのですが、
コピー元のシートのデータが大きいので、ペースト先のシートには必要なものだけを張り付けて、
印刷用のフォーマットに変換させて、終わったらペースト先のシートは保存せず元に戻すという操作をしたいと考えています。

お願いします。

**デフォルトの名無しさん** · 2018/11/03(土) 19:32:11.39

>>865
元データの書式や印刷用シートの体裁、印刷するデータの抽出方法などがわからないが、やりたいことからすると、Range.TextプロパティかValueプロパティの値をコピー先にそのままコピーするだけで良さそう

コピー元とコピー先のデータの体裁によっては、Range.AdvancedFilterメソッドで印刷用シートの方にフィルタ結果を出力するとかもできる

**デフォルトの名無しさん** · 2018/11/03(土) 22:51:34.85

クラサバシステムを作るのは現実的なのでしょうか？
DBは相性からいってSQLServerで

**デフォルトの名無しさん** · 2018/11/03(土) 22:58:31.43

>>867
Excelで作ろうとしてる理由が能力の問題なのか、それともExcelのワークシートの機能が必要だからなのか、それ次第だな
C#やVB.NETやJavaで作れる能力があるなら普通に作れるし、無いなら無理
能力が無いならAccessでも使ってろ

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

能力の問題なら今ならOffice365のPowerAppsおすすめ
たぶん>>867が手作りするより遥かに高品質なものが一瞬で作れるよ

**デフォルトの名無しさん** · 2018/11/03(土) 23:12:01.99

作りたいのは、Activitiのエンジンを使ったWFシステムです
Excelで検討する理由は、ADによるシートとセルの権限管理ですかね

**デフォルトの名無しさん** · 2018/11/04(日) 00:03:26.74

いやクラサバだったら権限管理はSQL Server側でやるもんだろ
当然、SQL Serverなら問題なくADで制御できる
その調子じゃ厳しそうだね

**デフォルトの名無しさん** · 2018/11/04(日) 00:32:40.13

Excelのレベルで権限制御したところで、別のExcelシート作ってデータソース参照するだけでやりたい放題やで
Excelに限った話ではなくC#などでクライアント作る場合でも同じことで、プロなら絶対にありえない設計

**デフォルトの名無しさん** · 2018/11/04(日) 07:35:57.46

ここで板違いの質問を堂々とするレベルなんだから w

**デフォルトの名無しさん** · 2018/11/05(月) 12:48:07.93

またプロさんイキっとるのw

**デフォルトの名無しさん** · 2018/11/05(月) 23:37:43.98

>>866
Range.Textプロパティ、Valueプロパティが良く理解できなくて困ってます。
セルの指定で合ってますか？

コピー元の表の中からから1行（５セル分）コピーして、隣のシートの所定の位置に貼り付けたいです。
１行選択した後、マクロ起動させて隣のシートに張付けという操作です。頼みます、教えてください！

**デフォルトの名無しさん** · 2018/11/06(火) 00:56:10.22

>>875
Sub CopyToPrintForm()

ThisWorkbook.Worksheets("データ用シート名").Range("コピー元セルの行番号:コピー元セルの行番号").Copy Destination:= ThisWorkbook.Worksheets("印刷用シート名").Range("コピー先セルの行番号:コピー先セルの行番号")

End Sub

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

>>875
印刷するデータの行をユーザーに選ばせる場合、ユーザーに行選択させた状態で以下のマクロを実行させるようにするとかでいいだろ
文字通り一行コピーしてしまうので要注意

>>875
Sub CopyToPrintForm()

ThisWorkbook.Worksheets("データ用シート名").Activate
ActiveCell.EntireRow.Copy Destination:= ThisWorkbook.Worksheets("印刷用シート名").Range("コピー先セルの行番号:コピー先セルの行番号")

End Sub

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

>>877
ありがとうございます。
Pasteはいらないのでしょうか？

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

教えてください！とか言ってるから荒しかと思ってたがガチか

**デフォルトの名無しさん** · 2018/11/06(火) 02:42:45.06

>>865
>ペースト先のシートは保存せず元に戻す
マクロを実行すると「元に戻す」は使えなくなるから、一々開きなおさないといけないけど大丈夫なのかな
もしその作業が連続して行われるなら、テンプレート用シートと印刷用シートを別に用意した方が楽な気がする

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

>>880
保存せずは間違えでした。
ペーストしたものをデリートするマクロを作って、元に戻す予定です。

**デフォルトの名無しさん** · 2018/11/06(火) 07:50:07.02

>>878
引数付きでCopyメソッドを実行するときはPasteメソッドは書かなくていい

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

>>881
印刷用シートはデータと切り離してテンプレート用の別のファイルにした方が良い
そうすれば、印刷処理のとき一時的にテンプレートから印刷用フォーマットを書き起こした後、印刷用フォーマットのブックを削除するだけで済む
印刷後に印刷用シートを初期化するマクロを更に走らせるなんて、手間を増やしてるだけだと思うぞ

**デフォルトの名無しさん** · 2018/11/06(火) 19:36:10.55

複数端末で使用しているマクロがあります
端末aのデスクトップに目当てのファイルがあり、他の端末はネットワークで繫がっている端末aのデスクトップを覗きに行く感じになってます
ファイルパス & filenameで参照したいんですがどのように書くべきなんでしょうか

**デフォルトの名無しさん** · 2018/11/06(火) 19:50:54.72

>>884
のぞいてる？
スケベ！

**875** · 2018/11/06(火) 19:57:59.09

みなさんありがとうございます。自分のイメージしてたものが100％出来ました。

**デフォルトの名無しさん** · 2018/11/06(火) 22:30:23.08

VBAベーシックの資格取得がてら基本情報の午後問対策にしようと思ってるんですけど出題範囲とかレベル感的に同じくらいですかね？

**デフォルトの名無しさん** · 2018/11/07(水) 10:26:42.01

VBAの資格って新しくできたのか？

**デフォルトの名無しさん** · 2018/11/07(水) 10:35:52.33

>>884
ネットワークにつながったPCの名前に「\\」を付けるとアクセスできる
http://officetanaka.net/other/extra/tips15.htm

**デフォルトの名無しさん** · 2018/11/07(水) 10:44:51.43

>>889
\\端末a:\Users\Admin\Desktopみたいな感じですね、ありがとうございます

ちなみにこれは端末aでも端末a以外でもこの書き方一つで参照出来るんでしょうか

**デフォルトの名無しさん** · 2018/11/07(水) 10:53:48.53

>>890
端末aのフォルダを共有設定にしておかないとアクセスできない
共有になってれば、どのPCでもアクセスできる
エクスプローラーで共有フォルダを開いて、アドレスバーをコピペしてみると書き方が分かる

**デフォルトの名無しさん** · 2018/11/07(水) 11:32:15.04

会社なのに共有フォルダはないの？

**デフォルトの名無しさん** · 2018/11/07(水) 11:34:31.05

>>887
基本情報はJavaやCできない文系カスならExcel選べばいいでしょ
ワークシート関数を使いこなせれば十分で、VBAなんか全く要らん

**875** · 2018/11/07(水) 20:36:23.84

マクロ起動でシートの切り変わりで画面がブレるというか、もう少しスムーズに動いて欲しいと感じます。
1行まるごとコピーしているので重いのでしょうか？

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

配列に入れるとか？
dim a
a = sheet1.Range("コピーしたい範囲")
sheet2.Range("sheet1と同じ大きさ") = a
シート切り替える必要あんの？

**デフォルトの名無しさん** · 2018/11/07(水) 23:56:50.98

text.txtの中身
1,"my name is taro"
2,""hello,world""
3,"hello,world"

これをエクセルに変換して期待値は以下としたい
どうしたらいい？

A　B
1 my name is taro
2 "hello,world"
3 hello,world

**デフォルトの名無しさん** · 2018/11/07(水) 23:58:12.32

拡張子を.csvに変えてダブルクリックしてみよう
あら不思議！

**デフォルトの名無しさん** · 2018/11/08(木) 00:00:20.32

ちなみに拡張子をcsvにすると以下のような変な出力になる。

A B C
1 my name is taro
2 hello world""
3 hello,world

**デフォルトの名無しさん** · 2018/11/08(木) 00:02:21.00

"が一個足りない
csvで"をｲﾝﾎﾟｰﾄするには
"を""にして
"でくくらないといけない

**デフォルトの名無しさん** · 2018/11/08(木) 00:10:13.02

手順としては以下でよいか？
1. test.txtの中身を置換で「""」にマッチする箇所を「"""」として保存する
2. 拡張子をcsvにする。

期待値になったのでよしとする。
さらに一歩質問いいですか？

**デフォルトの名無しさん** · 2018/11/08(木) 00:19:54.15

test.txtの中身
1,"my name
is taro"
2,"""hello,world"""
3,"hello,world"

これをエクセルにして期待値として以下としたい

A　B
1 （※）
2 "hello,world"
3 hello,world

B1セル内に
my name
is taro
が格納され、適切に改行が入っていることを期待。

が、csvにしたら、ちゃんと期待値になってた。。
んー、、途中で改行が入るケースではまってた記憶があったんだが、、、、。これでよしとするか。。

**デフォルトの名無しさん** · 2018/11/08(木) 00:35:58.02

ああ、思い出した

"がつかないケースで、改行が入っている場合

test.txtの中身
1,my name
is taro

エクセルにして期待値として以下としたい

A　B
1 （※）

（※)
B1セル内に
my name
is taro
が格納され、適切に改行が入っていることを期待。

拡張子をcsvに置き換える前に、"で囲むようにすればいいが、置換でなんとかならないものか。

**デフォルトの名無しさん** · 2018/11/08(木) 01:33:19.87

ExcelのCSV読み込みでセル内改行がある場合

http://d.hatena.ne.jp/stealthinu/20170127/p1

**デフォルトの名無しさん** · 2018/11/08(木) 07:54:15.59

なんかもう最初のカンマまでの文字数だけ切り取るほうがシンプルなんじゃ

**デフォルトの名無しさん** · 2018/11/08(木) 11:52:01.74

excelの3Dグラフで陰線処理ってできますか？

**デフォルトの名無しさん** · 2018/11/08(木) 12:05:03.88

陰毛処理？

**デフォルトの名無しさん** · 2018/11/08(木) 14:33:21.43

>>895
それのどこに配列が絡んでるんですかね？

**デフォルトの名無しさん** · 2018/11/08(木) 14:42:53.05

>>905
昔方法探したけどできなかった

陰線処理ってエロくないのにちょっとエロく思える単語だよな

**デフォルトの名無しさん** · 2018/11/08(木) 15:12:21.75

質問する奴も答える奴も論外で草
質問する奴はそういうスレだからともかく
答える奴が池沼なのはもう少し何とかならないか？
VBAだから無理か

**デフォルトの名無しさん** · 2018/11/08(木) 19:19:19.39

なんやプロさん同士で内紛勃発か？w

**デフォルトの名無しさん** · 2018/11/08(木) 20:27:13.91

>>907
えっ?
絡んで無いと思ってる?
今となっては初心者でも使う手法だと思うんだが。

それとも何か勘違いしてるのは俺か?

**デフォルトの名無しさん** · 2018/11/08(木) 20:30:22.05

>>911
おまえだけやプロさんw

**デフォルトの名無しさん** · 2018/11/08(木) 20:41:38.00

>>907
変数代入のときにSetステートメント使ってないから、変数にはセル値の配列が入ってるぞ

**デフォルトの名無しさん** · 2018/11/08(木) 22:36:31.77

>>871,>>872
SQLServer側でセルの権限管理？？？
プロ？？

**デフォルトの名無しさん** · 2018/11/08(木) 22:38:08.36

プロさんにつっこんだらあかんやろ
暗黙のルールぐらい守れやカス

**デフォルトの名無しさん** · 2018/11/08(木) 22:43:10.26

そんなことより、XMLクライアントとしてのExcelを語ろうぜ

**デフォルトの名無しさん** · 2018/11/08(木) 23:06:03.49

>>914
セルの権限管理なんぞサーバーから見たら何の意味もないよ

**デフォルトの名無しさん** · 2018/11/09(金) 10:17:43.12

http://sagawa-oki.com/
ここにアクセスしたら不審サイトであると警告が出ました。
PCに詳しい人、これどういうしくみなんですか？
オレのPCは感染したのですか？

**デフォルトの名無しさん** · 2018/11/09(金) 10:21:06.82

yes

**デフォルトの名無しさん** · 2018/11/09(金) 10:42:48.08

>>918
もう手遅れですね
アマギフ送ってくれたら直してあげられるよ

**デフォルトの名無しさん** · 2018/11/09(金) 14:25:59.43

>>916
これ興味あるんだよな
使いやすい？

**デフォルトの名無しさん** · 2018/11/09(金) 22:13:18.94

プロに聞いてみようぜ

**デフォルトの名無しさん** · 2018/11/09(金) 22:36:34.07

デザイナーが描くような美しいUMLのシェイプを生成するDSLライブラリはありませんか？
PlantUMLのエクセルバージョンのようなものを探してます

**デフォルトの名無しさん** · 2018/11/10(土) 13:47:50.89

データの持ち方はシンプルな方がいい
そうでないなら条件を明確に

**デフォルトの名無しさん** · 2018/11/12(月) 08:23:59.02

901だが、
さらにおしえてほしい
textに

"please call a "phone"."

と書かれているケースがあり、これをcsvとして読みこませる前に
表記が崩れないように整形を加える。

最終的に１セル内に
please call a "phone".
が入っていればよいです。

上記を実現するための整形の流れとしてどうしたらいい？
整形後は、phoneの間に"をさらに追加する。端っこの"には手を加えない。
"please call a ""phone""."

手作業ではなく、置換で自動化したい

**デフォルトの名無しさん** · 2018/11/12(月) 09:22:19.42

そういうのはCSVとして読み込むんじゃなくて、自前で構文解析した方が良い。
この程度なら難しく無いでしょ。

**デフォルトの名無しさん** · 2018/11/12(月) 09:52:07.52

>>925
正規表現置換の使えるエディタで
検索パターン
([^\,\"]+?)\"{1}([^\,\"]+?)
置換後
\1\"\"\"\2
などとすれば一応行ける

**デフォルトの名無しさん** · 2018/11/12(月) 09:53:55.26

訂正
置換後
\1\"\"\2
だな、1個多かった

**デフォルトの名無しさん** · 2018/11/12(月) 21:39:04.12

全く無知な自分にご教授下さい。
マクロでフォルダ内のエクセルのシート1をすべて結合するマクロを探しています。
ネットに転がってるのを実行してもうまくいかないです。
できればですが、シート名は統一していないないので、ブックないのシートのRange(A1)が日付だったシートのみを結合とか高度すぎて無理でしょうか。

**デフォルトの名無しさん** · 2018/11/12(月) 21:42:09.58

>>929
私には可能ですし特に高度とも思いませんが、貴方にできるかどうかは知りません
少なくとも今目の前の問題を片付けたいだけであれば、諦めて手作業したほうが貴方にとっては早いでしょう

**デフォルトの名無しさん** · 2018/11/12(月) 21:54:32.66

ネットに転がってるのがあってもできないなら回答しても意味なくね？
ファイル名が統一されてないからうまく行かないんなら、フリーソフト拾ってきて一括リネームしたら済む話かもしれない
何を試みて何かどううまく行かなかったのか、真に目的を達成するには何がどうなっていればいいのか
それくらいは頭を整理して明記しなさい
何がわからないのか何がしたいのか自分でわからないけど親切に要件をヒアリングして代わりに作ってほしい、ならそこらへんのSIerに相談しなさい

**デフォルトの名無しさん** · 2018/11/12(月) 22:03:30.98

>>930
バカはお口にチャックな

**デフォルトの名無しさん** · 2018/11/12(月) 22:13:45.72

Dir
sheet(1)
IsDate
この辺りで調べてみればそこまで難易度は高くないと思う

**デフォルトの名無しさん** · 2018/11/12(月) 22:18:58.14

>>930
なるほど。難しいって事ですね。
>>933
sheet(1)だと中にはsheet(2)にデータがある場合があるんです。
なのでシートのA1が日付の時だけコピーとかしたかったのです。

**デフォルトの名無しさん** · 2018/11/12(月) 22:36:44.04

for each ws in Worksheetsとif文が使えればできるよ

**デフォルトの名無しさん** · 2018/11/13(火) 00:16:47.48

>>927
試したけど、grepにひっかからず。

**デフォルトの名無しさん** · 2018/11/13(火) 00:18:49.38

936ですが、
原因が分かりました。
([^\,\"]+?)\"{1}([^\,\"]+?)の後の半角スペースが入っていたので引っ掛からなかった。
半角スペース覗いたらできました。

**デフォルトの名無しさん** · 2018/11/13(火) 03:19:44.71

>>925
1"2"3"4"5

これが君には、"24"、"3" の2つに見えるけど、
普通の人は、"2"、"4" の2つに見える

つまり、"3" がネスト・内側だとは判別できない。
内側を表すには、確実に、外側と区別できる方法が必要

例えば、""3"" のように、" が2個続いたら内側と解釈するとか、何らかの方法が必要だけど、
他に解釈されないような、特別な記号を作るのは難しい

**927** · 2018/11/13(火) 07:16:41.37

>>937
半角スペースはそちらでの混入かと

**デフォルトの名無しさん** · 2018/11/13(火) 21:19:22.76

>>937
Excel vba にも正規表現による置換機能あるよね？その検索パターン、置換する文字列をそのまま使えるのか？

**デフォルトの名無しさん** · 2018/11/13(火) 21:22:12.20

>>938
長い、3文字で

**デフォルトの名無しさん** · 2018/11/14(水) 00:32:01.09

こんばんは。質問させてください。

VBAでXMLファイルを作成したいのですが、MSXML2というパーサ(?)を使わないといけないのですか？
Printなどを用いてテキストファイルを作成し、拡張子を.xmlに変更して作成した場合、何か問題があるのでしょうか

XMLファイルはただのテキストファイルだという認識だったのですが、「VBA XML 作成」などと検索すると
ほぼ全てのサイトでMSXML2を用いた方法が紹介されているので混乱しています

よろしくお願い致します

**デフォルトの名無しさん** · 2018/11/14(水) 02:04:23.47

Ruby, Python, JavaScript など、すべての言語・コマンドでも、そう。
HTML, XML, JSON などは、それ用のライブラリを使う

勝手に作ったファイルは、パーサーで解析すると、
間違った形式・フォーマットで作られている、正しい形式ではない、という形式違反になる

正しい形式かどうかを、チェックするツールもある

**デフォルトの名無しさん** · 2018/11/14(水) 03:54:10.85

以前DOMについて質問させて頂いたものです。
前回はIEを直接開いて扱っていたのですが、
MSXMLという機能でIEを開かずにウェブサイトの情報を取得できると知り、
そちらの方が速そうだし面白そうなので挑戦しています。
そこで色々調べていたのですが、

http://d.hatena.ne.jp/end0tknr/20081115/1226755041

というブログに「MSXML2.DOMDocumentでxml responseをparseすることができます。」とあり、

Dim HttpReq As MSXML2.XMLHTTP
Dim DomDoc As MSXML2.DOMDocument
・・・
DomDoc.loadXML (HttpReq.responseText)

というコードが記述されていますが、ローカルウインドウを見るとXMLHTTP（XMLHTTP60）にresponseXMLというそれらしいプロパティがあります。
直接これをDOMとして扱うのは出来ないのでしょうか。

**デフォルトの名無しさん** · 2018/11/14(水) 06:47:08.50

>>942
> MSXML2というパーサ(?)を使わないといけないのですか？
別にMSXML2なんて単なるライブラリだから使わなくてもいいよ
ただXMLにきちんと対応するのは面倒だからみんな使ってるだけ

**デフォルトの名無しさん** · 2018/11/14(水) 08:00:52.88

>>943
>>945
ありがとうございます
大変勉強になりました