[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2ch.scのread.cgiへ]
Update time : 12/08 10:06 / Filesize : 292 KB / Number-of Response : 1011
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel VBA 質問スレ Part65



1 名前:デフォルトの名無しさん mailto:sage [2020/03/17(火) 16:27:20.88 ID:hh8LiIgR0.net]

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

75 名前:デフォルトの名無しさん (ワッチョイ a9ad-yXVd) mailto:sage [2020/03/26(Thu) 22:06:31 ID:NUJ56fsj0.net]
>>73
動画でプログラミングを覚えるのはとても難しい
エクセルの使い方や開発環境の整備とかなら分かるけど
言語を覚えるのは本を読んでコードを書く方が早いだろう

76 名前:デフォルトの名無しさん (ワッチョイ b6c9-Cd0d) mailto:sage [2020/03/26(Thu) 22:19:37 ID:ohlAwein0.net]
>>73
https://www.sejuku.net/blog/6516

77 名前:デフォルトの名無しさん mailto:sage [2020/03/26(木) 22:35:41.45 ID:ewzEtFoA0.net]
retって何?

78 名前:デフォルトの名無しさん mailto:sage [2020/03/26(木) 23:38:44.50 ID:Ys9zNHHg0.net]
>>75
>>76
ありがとう
とりあえず、マクロからあるURLやoffice系のソフトを呼び出すコードをネットから丸パクリしてみたんだけど結局これが良いのか悪いのかそもそもルールすらあまりわかってない
サイトや本で必死に勉強しますわ

https://i.imgur.com/Llw26vN.jpg
https://i.imgur.com/CEIjgGb.jpg

79 名前:デフォルトの名無しさん mailto:sage [2020/03/26(木) 23:56:44.93 ID:ewzEtFoA0.net]
字で書けよ基地外か

80 名前:デフォルトの名無しさん mailto:sage [2020/03/27(金) 00:31:59.82 ID:N3mE/9bh0.net]
図形のグループ化についてです。

ショート上に円が無数にあってその円の中にテキストがあります。

これを円と円の中のテキストをそれぞれグループ化してShapeの名前をテキスト名にするにはどうしたら出来ますか?

81 名前:デフォルトの名無しさん mailto:sage [2020/03/27(金) 00:52:28.07 ID:tkT1AEpsM.net]
>>80
グループ化はGroupメソッドを使う
For Eachを使えば図形がいくつあっても関係なく同じようにできる

82 名前:デフォルトの名無しさん (ワッチョイ b57c-K+F1) mailto:sage [2020/03/27(金) 01:56:14 ID:U7Hbc3is0.net]
>>80
shapeオブジェクトでいじる

83 名前:デフォルトの名無しさん mailto:sage [2020/03/27(金) 07:59:14.92 ID:PIWgxOzWr.net]
図形をVBAで複雑にいじろうとすると悲しみしか生まなさそう



84 名前:デフォルトの名無しさん (ワッチョイ 55e3-pf+t) mailto:sage [2020/03/27(金) 14:44:48 ID:Kq8lniUe0.net]
Worksheets("min").Range(Cells(N, 2), Cells(N, 100)) = "999"
これで複数セルに一括入力したいのですが
アプリケーション定義またはオブジェクト定義のエラーです
と出ます。
何がいけないのでしょうか?

85 名前:デフォルトの名無しさん (ワッチョイ d9da-Cd0d) mailto:sage [2020/03/27(金) 14:53:12 ID:8yKTqVer0.net]
Nを定義してないんじゃない

86 名前:デフォルトの名無しさん (ラクッペペ MM96-6Ghe) mailto:sage [2020/03/27(金) 15:00:54 ID:n40dB020M.net]
cellの前にもシートがいる

87 名前:デフォルトの名無しさん (ワッチョイ 55e3-pf+t) mailto:sage [2020/03/27(金) 15:04:48 ID:Kq8lniUe0.net]
With Worksheets("min")
.Range(.Cells(1, 1), .Cells(20, 2)) = "999"
End With

できました^^ありがとう

88 名前:デフォルトの名無しさん (アウアウエー Sada-pf+t) mailto:sage [2020/03/27(金) 15:09:58 ID:Yr4iTEmOa.net]
それでいい。

89 名前:デフォルトの名無しさん (ワッチョイ ad49-iBrl) mailto:sage [2020/03/27(金) 15:11:53 ID:DMhVWYPv0.net]
いえいえ

90 名前:デフォルトの名無しさん (アークセー Sx79-yXVd) mailto:sage [2020/03/27(金) 15:32:49 ID:YTZoRU62x.net]
検索して違うシートから値を 持ってくるマクロで持ってくる値が0以下(マイナス)ならば
違う列に転記させたいのですがwithエラーが発生してうまく動きませんでした。

Dim i As Long, c As Range, e As Range, wS As Worksheet
Set wS1 = Worksheets("明細1")
With Worksheets("data")
  Set c = wS1.Range("D:D").Find(What:=.Cells(i, "B"), LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing and wS1.Cells(c.Row, "Z").value < 0 Then ←ここでエラー
.Cells(i, "V") = wS1.Cells(c.Row, "Q")
  ElsIf Not c Is Nothing and wS1.Cells(c.Row, "Z").value >= 0 Then
.Cells(i, "X") = wS1.Cells(c.Row, "Q")

またマイナス値をプラス値に変換したく
.Cells(i, "S") = abs(Cells(i, "S"))

としましたが小数点が消えてしまいます。
-77.00が77になってしまうのですが77.00としたいです。

91 名前:デフォルトの名無しさん (ラクッペペ MM96-6Ghe) mailto:sage [2020/03/27(金) 15:39:00 ID:n40dB020M.net]
cがnothingの時c.rowがエラー

バラせ

92 名前:デフォルトの名無しさん [2020/03/27(金) 15:47:38.09 ID:LyEUyxQ10.net]
馬鹿がゾロゾロ出てくるのは何で?

93 名前:デフォルトの名無しさん mailto:sage [2020/03/27(金) 15:50:59.76 ID:DMhVWYPv0.net]
春休みだから



94 名前:デフォルトの名無しさん (アークセー Sx79-yXVd) mailto:sage [2020/03/27(金) 15:54:33 ID:YTZoRU62x.net]
>>91

If wS1.Cells(c.Row, "Z").value < 0 Thenでもエラーが出ます
With Worksheets("data")が邪魔をしてるとかですか?

95 名前:デフォルトの名無しさん (ワッチョイ f6f7-DNZ3) mailto:sage [2020/03/27(金) 17:17:35 ID:zsNWkQiw0.net]
"Z"で指定できたっけ

96 名前:デフォルトの名無しさん (ワッチョイ 8101-yKOS) mailto:sage [2020/03/27(金) 17:31:46 ID:jaIOieAQ0.net]
>>94
VBAは関数や演算子の引数は全て渡される前に値を計算するんだよ

だから Not c Is Nothing が真じゃないときは wS1.Cells(c.Row, "Z").value < 0 を評価しないように
if Not c Is Nothing then if wS1.Cells(c.Row, "Z").value < 0 then ...
としないといけない

あとCellsプロパティは見にくいんで範囲に名前つけるかテーブル化してRangeプロパティで呼んだ方がいい

97 名前:デフォルトの名無しさん (ワッチョイ ad2c-yXVd) mailto:sage [2020/03/27(金) 21:24:53 ID:N7XAdwe70.net]
>>92
答らえれない馬鹿以下の癖に?

98 名前:デフォルトの名無しさん mailto:sage [2020/03/27(金) 23:01:00.96 ID:7yWnOCeY0.net]
範囲に名前はなぁ・・。
上手く使いこなせればいいが、
みんなで共有するファイルに使うと、
知らない間に#REFだらけになってるwwww

99 名前:デフォルトの名無しさん [2020/03/28(土) 04:38:00.47 ID:vMIAuVeU0.net]
>>71

レスありがと

標準モジュールに書いてない。
しばらく、やってなかったんで忘れていた。
すみません

100 名前:デフォルトの名無しさん (ワッチョイ b140-yKOS) mailto:sage [2020/03/28(土) 15:07:25 ID:m/WQBFmt0.net]
>>98
異常時に例外が投げられるように設計するのは普通だと思うんだが・・・

101 名前:デフォルトの名無しさん mailto:sage [2020/03/28(土) 19:20:50.03 ID:rI/k2Pjrd.net]
>>100
名前を付けるのは、コードと関係無い所で実装されるので個人的には絶対使わない。
というか、Cellsを使うよ。
2次元配列的にもぴったり来るし。
寧ろ、Rangeの方が使わない。
尤も、Cellsでも列を文字で指定するのはやらない。
AF列が何列目か分からないって?
イミディエイトで?Range("AF1").Columnとでも入れてみろ。

102 名前:デフォルトの名無しさん (ササクッテロ Sp79-CIkl) mailto:sage [2020/03/28(土) 20:14:42 ID:ihCuPYYIp.net]
>>101
で、コメントで何列かとか、項目名とか書くわけ?

103 名前:デフォルトの名無しさん (ワッチョイ a9ad-yXVd) mailto:sage [2020/03/28(土) 20:37:45 ID:YbqXlWqq0.net]
>>96
>>101
名前を付ける派
可読性が高い方が良い
VBAは見にくいコードが多い



104 名前:デフォルトの名無しさん (ワッチョイ b140-yKOS) mailto:sage [2020/03/28(土) 23:45:34 ID:m/WQBFmt0.net]
>>101
名前定義が弄られるってことはロックしないで使うんでしょ
猶更、セル挿入なりで意図した場所とズレてても気づかずに成功し続ける方が危険だと思うんだが
で、セルを挿入したい時も一個一個数値をずらしていくの?

ワークシートの見た目が二次元配列である事とコード内容を一致させる必要性も感じないんだが、
もしかしてハードコーディングしてるのか?

イミディエイトウインドウで毎回インデックスを調べろっていうは面白すぎるから止めて欲しい

105 名前:デフォルトの名無しさん (ワッチョイ 091f-hvDm) mailto:sage [2020/03/29(日) 00:11:14 ID:JMfmjWXB0.net]
Shapeの当たり判定の計算方法を教えて下さい。

基準の円のShapeにTextBoxが当ってたらTrue、当たって無ければFalse
円は選択時の□の面積じゃなく実際の円の大きさ。TextBoxは選択時の□の大きさ。

106 名前:デフォルトの名無しさん (ワッチョイ 79ac-iBrl) mailto:sage [2020/03/29(日) 00:41:59 ID:Q4J2OaKi0.net]
なぜそんなことを

107 名前:デフォルトの名無しさん mailto:sage [2020/03/29(日) 01:29:27.30 ID:Iv7ta0000.net]
>>105
表示位置とサイズから比較したらいいんじゃね

108 名前:デフォルトの名無しさん mailto:sage [2020/03/29(日) 01:42:07.54 ID:hSuS8nXs0.net]
当たり判定だからゲームじゃないの?
Corei世代でも60fpsでないから使いたくないけど。

109 名前:デフォルトの名無しさん (ワッチョイ 0dce-Cd0d) mailto:sage [2020/03/29(日) 08:29:34 ID:sBDU9ajX0.net]
>>105
専用の関数などは用意されてないので、TextBoxの頂点と円の座標を比較したり、円の中心からの距離を三角関数で計算して調べるしかない

110 名前:デフォルトの名無しさん mailto:sage [2020/03/29(日) 09:06:15.85 ID:hrvcX8VW0.net]
VBAであえてゲーム作ったりするのは
芸ではあるけど開発効率的に筋は悪いよね
グラフィックにこだわるなら別言語推奨

111 名前:デフォルトの名無しさん (ワッチョイ 4191-tYYp) mailto:sage [2020/03/29(日) 19:07:35 ID:+LkL5rVp0.net]
>>102
普通は定数で行、列を宣言するわな。

>>103
見にくいコードは書いてる奴の力量次第だろ。

>>104
ロックはしない。
そんなもんは解除されるかもしれんし、当てにしない。
というか、作ってるもの次第だね。

ワークシートの見た目と二次元配列を一致させるとか笑わせるなあ。
少し慣れた奴なら列も数値で扱うのがぴったり来るんだよ。
何故なら、最初から二次元配列的に考えるから。

VBE上に自作のメニュ―作って、入力するだけで列名←→列数はわかるげとな。
作る力量無い奴はイミディエイトで調べりゃ良いだろ。
VBEのCommandBerでイベント扱うのはクラスが必要だし、上級者の領分にはなるかもな。
VBE弄るVBAは会社じゃ使わないから通常のCommandBarでメニュー作ってやっても良いんじゃね?
どっちにしても時間は考えることに使ってるんで、毎回イミディエイトで調べても大した話じゃね―んだわ。

112 名前:デフォルトの名無しさん mailto:sage [2020/03/29(日) 19:28:33.88 ID:Gw3heoMsM.net]
>>63
今の若いヤツらはそういう説明じゃ200%挫折する。普段の業務を自動化っていう感覚がわからないそう。やっぱスマホタブレット世代はPC=ワープロにしか思えんのかもな。

113 名前:デフォルトの名無しさん (スププ Sdb2-Ik0M) mailto:sage [2020/03/29(日) 20:04:11 ID:83saJEjVd.net]
若いほうがわかりそうなイメージあるが



114 名前:デフォルトの名無しさん (スププ Sdb2-Ik0M) mailto:sage [2020/03/29(日) 20:07:10 ID:83saJEjVd.net]
>>111
ロック外されたくないならパスワード付ければいいじゃん

115 名前:デフォルトの名無しさん (ワッチョイ 4191-tYYp) mailto:sage [2020/03/29(日) 20:28:31 ID:+LkL5rVp0.net]
>>114
パスワードwww

116 名前:デフォルトの名無しさん (ワッチョイ 9201-aXsr) mailto:sage [2020/03/29(日) 20:55:58 ID:wDs4yIM00.net]
>>111
> VBE上に自作のメニュ―作って、入力するだけで列名←→列数はわかるげとな。
まさか自慢じゃないよね?w
傍から見てたら馬鹿なことしてるなとしか思えんし

117 名前:デフォルトの名無しさん (ワッチョイ 12ad-At9V) mailto:sage [2020/03/29(日) 22:56:25 ID:WhhHvRXO0.net]
共有編集可能にしたら更新は5分間隔だけどVBAとかで1分以内にできないかな?複数のパソコンで映してる同じエクセルファイルの内容を別のパソコンから共有編集で編集して保存したら1分以内に複数のパソコンにも表示を反映させたい。

118 名前:デフォルトの名無しさん (アウアウエー Sada-pf+t) mailto:sage [2020/03/30(月) 01:33:21 ID:hihORIFda.net]
あ、どうせ、コピーしても意味ねぇよ。記憶してるのPCじゃねぇから。

119 名前:デフォルトの名無しさん (アウアウエー Sada-pf+t) mailto:sage [2020/03/30(月) 01:33:39 ID:hihORIFda.net]
考えまとめるためにPC使ってるだけ、ただそれだけなんだよ。

120 名前:デフォルトの名無しさん (ワッチョイ 4191-tYYp) mailto:sage [2020/03/30(月) 09:44:28 ID:c+7OLkMF0.net]
>>116
君にできないからと言って、そんなもんが自慢になると思うかね?

121 名前:デフォルトの名無しさん (オッペケ Sr79-7qnn) mailto:sage [2020/03/30(月) 10:45:50 ID:44eTx7Dtr.net]
>>96
それでも同じエラーが出ます…

122 名前:デフォルトの名無しさん mailto:sage [2020/03/30(月) 10:57:15.53 ID:XiEELtFfM.net]
>>120
日本語の理解力がないのかな?
自慢にもならないことをいちいち書くとかバカじゃね?
って言う事な

123 名前:デフォルトの名無しさん (ワッチョイ f6f7-DNZ3) mailto:sage [2020/03/30(月) 12:35:49 ID:rHF2nN3k0.net]
>>121
wS1.Cells(c.Row, "Z").value < 0
そもそもこれ必要?



124 名前:デフォルトの名無しさん mailto:sage [2020/03/30(月) 13:30:25.60 ID:8cfGBpvw0.net]
いや、いらないのはそっちじゃなくて、ElseIf〜 のIf〜Then

If Not c Is Nothing Then
If wS1.Cells(c.Row,"Z").value<0 Then
.Cells(i, "V") = wS1.Cells(c.Row, "Q")
Else
.Cells(i, "X") = wS1.Cells(c.Row, "Q")
Endif
Endif

でいいはず
エラーが出たのが実は一つ上の行で、i に代入してなかったってオチじゃないよね

125 名前:デフォルトの名無しさん (スッップ Sdb2-tYYp) mailto:sage [2020/03/30(月) 15:51:59 ID:pRaklD1Wd.net]
>>122
悔しいからって一々反応しなくて良いんだぞwww

126 名前:デフォルトの名無しさん (ドコグロ MM9a-aXsr) mailto:sage [2020/03/30(月) 15:58:49 ID:5QM7gMbqM.net]
>>125
ブーメラン乙w

127 名前:デフォルトの名無しさん (スフッ Sdb2-Cd0d) mailto:sage [2020/03/30(月) 16:25:47 ID:Ds9EzL2Md.net]
反応したら負けだと(みんな)思ってる

128 名前:デフォルトの名無しさん mailto:sage [2020/03/30(月) 17:08:01.39 ID:nRSFIrFT0.net]
どこで受けたストレスをここで発散してるんだろう・・・

129 名前:デフォルトの名無しさん (ドコグロ MM71-aXsr) mailto:sage [2020/03/30(月) 19:49:19 ID:JBOku6fCM.net]
>>127
>>125に言ってやれよw

130 名前:デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:13:35.71 ID:4l2N9sosM.net]
ここの人等は本当にきついね
一部だけかもしれんけど
他スレ建ててもどうせそこにやってくるし困ったもんだ

131 名前:デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:19:47.92 ID:jrEvufLB0.net]
いいから質問しろよ
俺が優越感感じられるように割と簡単なやつな

132 名前:デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:23:47.47 ID:z27088IIa.net]
ワロタw
ワイもドヤ顔で回答したい

133 名前:デフォルトの名無しさん mailto:sage [2020/03/30(月) 20:33:15.75 ID:mnH7Xf0t0.net]
禿げのくせに



134 名前:デフォルトの名無しさん [2020/03/31(火) 00:31:58.74 ID:O8i/VRws0.net]
>>133
このハゲ!

135 名前:デフォルトの名無しさん mailto:sage [2020/03/31(火) 00:37:41.25 ID:fAiG3E7e0.net]
天才な人、教えて下さい。

フォルダAの中にフォルダa1があってこの中にxxx.zipがあるとします。
このxxx.zipを直接クリックしたりしないで解凍するプログラムを書くのはVBAで可能でしょうか?

136 名前:デフォルトの名無しさん mailto:sage [2020/03/31(火) 00:57:46.12 ID:x9NcPTe/0.net]
たまたま知ってたけど天才じゃないから教えられない
残念です
無念です

137 名前:デフォルトの名無しさん mailto:sage [2020/03/31(火) 01:02:53.10 ID:x9NcPTe/0.net]
俺も天才じゃないんだわ
いるんか?このスレに、天才が

138 名前:デフォルトの名無しさん [2020/03/31(火) 02:01:24.29 ID:PSx1iNyN0.net]
>>135
馬鹿は死ね

139 名前:デフォルトの名無しさん mailto:sage [2020/03/31(火) 02:22:12.33 ID:CMEsfttX0.net]
>>135
「powershell zip 解凍」で検索!

140 名前:デフォルトの名無しさん (ワッチョイ 8101-tylh) mailto:sage [2020/03/31(火) 03:29:43 ID:fAiG3E7e0.net]
>>139
どうもありがとう!

141 名前:デフォルトの名無しさん (ワッチョイ 12ad-7qnn) mailto:sage [2020/03/31(火) 03:37:14 ID:sCGR7IuL0.net]
>>117って難しい?

142 名前:デフォルトの名無しさん [2020/03/31(火) 05:23:52.03 ID:kiJT2Kt60.net]
zipをxlsxにすれば、VBAを使わなくても開くだけで解凍できる。どこに解凍されるかは知らんが。

143 名前:デフォルトの名無しさん (スッップ Sdb2-tYYp) mailto:sage [2020/03/31(火) 08:15:19 ID:AMZVbv8Gd.net]
>>126
zip解凍ぐらい大して難しく無いんだから答えてあげたら?



144 名前:デフォルトの名無しさん (ドコグロ MM1d-aXsr) mailto:sage [2020/03/31(火) 08:25:37 ID:FZ3Oti5EM.net]
>>143
既に>>139で答えられてるだろ
スレの流れも追えないのか?w

145 名前:デフォルトの名無しさん (スッップ Sdb2-tYYp) mailto:sage [2020/03/31(火) 08:42:47 ID:AMZVbv8Gd.net]
>>141
VBA 共有編集でググレば参考になる所が出てくる。

146 名前:デフォルトの名無しさん (スッップ Sdb2-tYYp) mailto:sage [2020/03/31(火) 08:43:03 ID:AMZVbv8Gd.net]
>>144
バーカwww

147 名前:デフォルトの名無しさん mailto:sage [2020/03/31(火) 09:32:50.09 ID:WgVk0vye0.net]
うゎ、真性かよw

148 名前:デフォルトの名無しさん (ワッチョイ b18f-+ryc) mailto:sage [2020/03/31(火) 13:30:22 ID:UcE7ogps0.net]
そういやxlsxがそもそもzipファイルなんだよな

149 名前:デフォルトの名無しさん (ワッチョイ d9e5-n60N) mailto:sage [2020/03/31(火) 22:47:10 ID:Rc1BoApG0.net]
そーなのか
道理で大昔作ったフォーマットを作り直してみたら容量が半分程度だったんだ
効率的なコード書けるようになった俺スゲーって訳じゃなく、エクセルさんが凄かったのね

150 名前:デフォルトの名無しさん (ワッチョイ 9bf7-14eV) mailto:sage [2020/04/01(水) 01:30:54 ID:IClGbcwW0.net]
拡張子zipにして展開すると画像ファイル取り出せるしな

151 名前:デフォルトの名無しさん (アウアウウー Sae9-f+0C) mailto:sage [2020/04/01(水) 02:22:12 ID:06G29rGEa.net]
今さら次郎

152 名前:デフォルトの名無しさん (ワッチョイ 155f-P5Sm) mailto:sage [2020/04/01(水) 03:04:48 ID:Ex6pONtn0.net]
これから三郎

153 名前:デフォルトの名無しさん (ワッチョイ e5ad-KN+/) mailto:sage [2020/04/01(水) 03:32:39 ID:8LLFjcSO0.net]
終わりに四郎



154 名前:デフォルトの名無しさん (ブーイモ MM79-bVUD) mailto:sage [2020/04/01(水) 04:33:51 ID:h6/hOHkqM.net]
アッと驚くタメ五郎

155 名前:デフォルトの名無しさん mailto:sage [2020/04/01(水) 12:55:56.84 ID:2mAYLJyeM.net]
>>151
好きだよ六郎

156 名前:デフォルトの名無しさん mailto:sage [2020/04/01(水) 18:21:42.63 ID:UG3CS4Iqd.net]
ネットでこんな素晴らしい物を見つけたんだけれども、これがデータ量が多いと結構時間掛かるんだけど、高速で図形として書き出す方法って他にありませんか?


izawa-web.com/excel

157 名前:bcad/dxfreader.html []
[ここ壊れてます]

158 名前:デフォルトの名無しさん (ワッチョイ 5dce-bVUD) mailto:sage [2020/04/01(水) 22:01:42 ID:4Q64PMPZ0.net]
>>156
CADアプリで画像にでも変換してシートに貼り付けた方が早くて綺麗
オートシェイプに変換すると重くなるし比率が狂うし、メリットがなさすぎる

159 名前:デフォルトの名無しさん (ワッチョイ 251f-yCYu) mailto:sage [2020/04/01(水) 22:28:36 ID:kG9c2P/10.net]
>>157
貼って終わりならそれでもいいんですが、数あるCADデータの中から指定のデータを呼び出してエクセルに貼り付けて線の色とか文字を取得したいんですよね。

160 名前:デフォルトの名無しさん mailto:sage [2020/04/01(水) 22:54:48.05 ID:cJ4COAhO0.net]
>>145
更新時間を短くする方法は載ってなかった

161 名前:デフォルトの名無しさん (ワッチョイ 23b5-Lkgv) mailto:sage [2020/04/02(Thu) 00:31:10 ID:hOxCGNmI0.net]
あるマクロを開いた瞬間に自作したユーザーフォームが出るようにする
それと同時にエクセルファイルを選択できる ファイルを開くウィンドウが出るようにする

ド基礎以前だと思うのですがおしえていただきたく、、

162 名前:デフォルトの名無しさん (ワッチョイ 2ba7-9mb0) mailto:sage [2020/04/02(Thu) 00:42:40 ID:quV7czYu0.net]
ググれば全部出るのに何故ここできく

163 名前:デフォルトの名無しさん mailto:sage [2020/04/02(木) 02:21:22.11 ID:9ZVXgmel0.net]
>>160
Workbook_Open()
UserForm1.Show
Application.GetOpenFilename



164 名前:デフォルトの名無しさん mailto:sage [2020/04/02(木) 07:03:17.01 ID:qQpWBHI+0.net]
ド基礎以前発言がひっかかるな...

あるマクロが他人の作った編集できないマクロなら難しいね
パスワードクラックはNGで

165 名前:デフォルトの名無しさん mailto:sage [2020/04/02(木) 08:01:03.55 ID:qvprCKttr.net]
少しくらいの調べる能力も持たないお子ちゃまが多い

166 名前:デフォルトの名無しさん (ワッチョイ 1dda-bVUD) mailto:sage [2020/04/02(Thu) 10:29:10 ID:2gPurUpa0.net]
ド基礎以前のこともわからないやつに教えても理解できんだろう

167 名前:デフォルトの名無しさん (ワッチョイ 23b5-Lkgv) mailto:sage [2020/04/02(Thu) 18:43:17 ID:hOxCGNmI0.net]
>>162
ありがとう、ネットで捜してコピペしながら頑張ってくわ

起動すると作ったユーザーフォームが開きつつ
ファイルからエクセルを選べるウィンドウを出す

開いたエクセルにはBとCの2列目からずらーっと数字が並んでるからそれをあらかじめ自分のカスタマイズした散布図にする
(2列目から始まるが終わりはデータによって違う)

ボタンによって2つの散布図に分けられる

がんばりやす

168 名前:デフォルトの名無しさん mailto:sage [2020/04/02(木) 19:19:56.56 ID:K5yIowQc0.net]
>>164
人に教えることで自分も成長する。

169 名前:デフォルトの名無しさん (アウアウウー Sae9-f+0C) mailto:sage [2020/04/03(金) 02:02:50 ID:Vs5HZC6Ua.net]
成長してないやん

170 名前:デフォルトの名無しさん (スッップ Sd43-bjOE) mailto:sage [2020/04/03(金) 12:51:38 ID:EwhXV+Zid.net]
>>162
そりゃ駄目だ。
モーダルとモードレスを調べよう。

モーダルでやりたかったらフォームのInitializeかActivateイベントだな。

171 名前:デフォルトの名無しさん (スッップ Sd43-bjOE) mailto:sage [2020/04/03(金) 12:54:37 ID:EwhXV+Zid.net]
>>159
AutoUpdateFrequencyプロパティじゃね?
ググっただけだけど。

172 名前:デフォルトの名無しさん (ワッチョイ e5ad-KN+/) mailto:sage [2020/04/03(金) 13:10:39 ID:tVlvtk9J0.net]
>>167
それはあるな

173 名前:デフォルトの名無しさん (ワッチョイ 4bcc-bVUD) mailto:sage [2020/04/03(金) 13:51:03 ID:S5/JCD2f0.net]
>>170
それ、イミディエイトペインで試したけど、5未満はNGだよ

>>145の共有編集って、Excel2016で実装した、OneDriveとか使ってクラウドでやるやつだと思ったんだけど、違うのかな
×共有編集 ○共同編集 らしいけど



174 名前:デフォルトの名無しさん mailto:sage [2020/04/04(土) 10:09:51.56 ID:3Ir6pkSX0.net]
モーダルあなた疲れているのよ

175 名前:デフォルトの名無しさん mailto:sage [2020/04/04(土) 10:15:36.71 ID:nxBKOFy80.net]
自動更新の間隔を短くするのが無理なら手動でできないのかな?
強制的に切断と接続を繰り返してみたらどうだろう






[ 続きを読む ] / [ 携帯版 ]

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<292KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef