X



Excel総合相談所 137

■ このスレッドは過去ログ倉庫に格納されています
1名無しさん@そうだ選挙にいこう
垢版 |
2019/10/08(火) 20:06:19.40
【1 OSの種類         .】 Windows**
【2 Excelのバージョン   】 Excel**
【3 VBAが使えるか    .】 はい・いいえ
【4 VBAでの回答の可否】 可・否

▼━関連スレ━━━━━━━━━━━━

前スレ
Excel総合相談所
https://find.5ch.net/search?q=excel

Excel VBA 質問スレ
https://find.5ch.net/search?q=excel+vba

【質問不可】Excel総合相談所スレの雑談・議論スレ
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80
158名無しさん@そうだ選挙にいこう
垢版 |
2019/10/19(土) 07:04:05.42
解決法が欲しいので、ここに質問しているわけで
調べろとかいうのは、むしろスレ違いでないですかね。

別にVBAをマスターしようとも思っているわけでもないし
みなそれぞれ、エクセルやVBAに対する求めているものが
違うわけなので。

皆が上級者になりたいわけでもない。
ちょっとした、わからないことを訊くってだけで、
何も間違ってないだろう。

マウンティング指向の上級者は、
何も答える必要なんてないから、ほっといてくれよ。

と、ちょっとだけ思った。
159名無しさん@そうだ選挙にいこう
垢版 |
2019/10/19(土) 07:08:40.99
>>157
そうだよね。変だよね。Cかやってたら「なんやこれ」っていう感じ
2019/10/19(土) 07:18:01.54
>>158
俺は15年Excel触り続けて来たし、多分君も同じ道を歩む事になる
早い内からヘルプを見る癖はつけたほうが良いのは間違いない

ってか、上級者になって・・お願い・・
2019/10/19(土) 07:21:31.94
>>157
スペース嫌ならCStr()使えばいい
> 0 や 5 の値は "00" "05" に表示させようと思い
ならFormat()使えと言うのは同意

それ以前に>>147はスレ違い
162名無しさん@そうだ選挙にいこう
垢版 |
2019/10/19(土) 08:24:29.68
>>161
どこらへんがスレ違いなのか、説明いただけますか?

>>160
エクセルが表計算の標準ソフトであり続ければ、VBAをきちんと学ぶ価値ありそうですね。
でも、かなりクセがあるので、、。
2019/10/19(土) 08:28:31.41
>説明いただけますか?
ゲラゲラ
2019/10/19(土) 08:28:42.72
>>162
Excel VBA 質問スレ Part63
https://mevius.5ch.net/test/read.cgi/tech/1568630099/
2019/10/19(土) 08:59:00.70
>>145
成仏してください
2019/10/19(土) 12:01:28.73
>>162
>>【4 VBAでの回答の可否】 VBAの質問

回答者がVBA使っていいかどうか
って欄に「VBAの質問です!」って返答で
会話の流れに違和感を抱かなかったなら
いったん脳を洗浄してきたほうがいいぞ

VBAの質問なのがわかってんなら
最初からVBA質問スレに来い
説明しなきゃスレ違いなのがわからんのかタコ助

正直な話、>>148->>158やり取りの流れで
君がクソなのはわかってるから
来てほしくもないんだけどさ
2019/10/19(土) 12:24:58.09
>来てほしくもないんだけどさ
ゲラゲラ
2019/10/19(土) 12:39:19.56
次からワッチョイつけようかねこのスレ
2019/10/19(土) 12:45:06.20
>>158
>>152で理屈を聞いとるじゃないか、そのわりに貰ったレスをまともに見てなさそうな感じの
2019/10/19(土) 12:48:14.40
ワッチョイは反対しない
他スレで見かけるタイプの荒らし書き込みも見かけるしなー
171名無しさん@そうだ選挙にいこう
垢版 |
2019/10/19(土) 15:41:06.34
>>162
VBAスレあったのね。それは失礼しました。このイカ野郎。
2019/10/19(土) 16:30:17.82
VBAスレはここより優しくないがね…
173名無しさん@そうだ選挙にいこう
垢版 |
2019/10/19(土) 17:26:34.17
Format(値, 書式)での型変換が一番スマートでしたね。
教えてくれた人、くそありがとうございます!
174名無しさん@そうだ選挙にいこう
垢版 |
2019/10/20(日) 00:08:55.33
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2010か2016か2019
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

クイックアクセスツールバーのカスタマイズで
印刷設定の拡大縮小設定での「シートを1ページに印刷」のボタンってないんでしょうか
いくら探しても見つかりません
2019/10/20(日) 09:54:01.44
あるかどうかは知らんけど、VBAが使えるなら、自分でボタンを作るとか・・。
176名無しさん@そうだ選挙にいこう
垢版 |
2019/10/21(月) 16:53:34.39
超初歩的な質問で申し訳ないのですが、
まず下のような表があります。

     設計値  実測値  進捗率
項目1   10    10    100
項目2   15    7    46.7
項目3   20    11    55

この全体の進捗率の%を円グラフで表し、実測値を
いじった際には連動して動くようにしたいのです。
今回は進捗率67.2%(未成率32.8%)でしょうか。

「実測値/設計値*100の円グラフ」(「進捗率の
平均値の円グラフ」でも同じ?)の作成方法を
知りたいです。

円グラフは内訳を表すもので、棒グラフ等の方が
適切ではという観点もあるとは思いますが、自分の
業界では慣習的に円グラフが使用されているので、
それに習いたいと考えております。

また進捗率の方を必ず円の真上から始まり、時計
周りに表示させるようにしたいです。

アドバイスよろしくお願いします。
2019/10/21(月) 18:09:53.05
>>176
これでいいの?
https://i.imgur.com/4CIFrgD.jpg
2019/10/21(月) 18:22:04.17
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

フィルタリング後、複数行を選択してフィルタリングしたまま別の列に貼り付けすることできますか?
例えばフィルタリングした結果が10行目、15行目、20行目の3行だったとします
A10、A15、A20を選択しコピーしてB10、B15、B20に貼り付けしたいですが(書式も含めて)
フィルタリングされたままB10を選択して貼り付けするとB10〜12行目に貼り付けられてしまいます
フィルタリングされたままB10、B15、B20を選択して貼り付けしようとしますと
「この操作は複数の選択範囲に対しては機能しません。」と表示され貼り付けできません
2019/10/21(月) 19:53:33.95
>>178
飛び飛びのセルの貼り付けは、選択の方法に関係なくVBA使わないと無理
2019/10/21(月) 20:17:37.24
>>179
需要ありそうな作業だと思うのにまさかのVBAでないとできないとは
ありがとうございました
2019/10/22(火) 12:54:49.75
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016 (2019でも大丈夫です)
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

複数の行・列のセル(結合はされていません)にまたがった
左下がりの斜線を引きたいのですが、

例えばB2〜D5(縦4セルx横3セル)の四角形に斜線を引くとき、現在は
[挿入]→[図]→[図形]→(直線選ぶ)→
→[E2の右上を慎重に選ぶ]→[B5の左下を慎重に選ぶ]→
→選択時にちょいズレしているため、1-3ドットずれた斜線が完成(´д`)

といった感じで、神経も使うし再調整も必要で、
20〜50から複数の斜線を引く必要があるファイルの作成なので
操作量が多く大変です。

B2〜D5をマウスで範囲選択→
→[なんかボタンを押す([Ctrl+?]のようなショートカットならとても素敵)]→
→E2の右上からB5の左下までビシッと斜線が作成される

みたいな感じにできませんでしょうか?
2019/10/22(火) 13:10:57.15
>>181
Altキーとかオプションでセル枠にフィットさせられる
2019/10/22(火) 15:21:11.63
>>181
vbaならこんな感じ

Sub draw_line()

Dim BeginX As Single ''始点(左からの距離)
Dim BeginY As Single ''始点(上からの距離)
Dim EndX As Single ''終点(左からの距離)
Dim EndY As Single ''終点(上からの距離)

BeginX = Cells(Selection(1).Row, Selection(1).Column).Left
BeginY = Cells(Selection(1).Row, Selection(1).Column).Top
EndX = Cells(Selection(Selection.Count).Row + 1, Selection(Selection.Count).Column + 1).Left
EndY = Cells(Selection(Selection.Count).Row + 1, Selection(Selection.Count).Column + 1).Top

With ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Line
.ForeColor.RGB = vbBlack '線の色
.Weight = 1 '線の太さ
End With

End Sub
184181
垢版 |
2019/10/22(火) 16:15:35.73
>>183
ありがとうございます!
頂いたのが右下がり線を引く構文だったので、
これを参考になんとか内容を噛み砕きつつ、始点と終点の部分をちょっといじったら
希望の動作になりました!
ショートカット登録もExcel側の機能であったので
これで楽になれそうです。

>>182
Σ
これはこれで知らないと今後苦労しそうだったので助かります。
ありがとうございました。
2019/10/23(水) 12:28:12.13
縦5×横10のマス目に五十音を入れていこうと思いますが、例えば「お」が入るとoffset(-5,1)して「か」の入力箇所に飛ぶようにするにはどうしたらいいでしょうか?
2019/10/23(水) 12:35:29.41
>>185
worksheet_change内でactivecellのrowを取得して表の5行目なら移動とか
2019/10/23(水) 12:49:01.80
横向きに入れたあと、縦向きにコピペ、は無理か
そう考えると、意外と面倒だな
とりあえずVBA使わないと無理だと思う
2019/10/23(水) 12:52:53.26
50文字並んだデータがあるなら
midで5文字づつとりだして
transposeで張り付け
を列をずらしながらやれば良い
2019/10/23(水) 12:59:15.68
自分で入力しなくても、ネットにいくらでも落ちてるのをインポートすればいい
190176
垢版 |
2019/10/23(水) 16:00:01.89
>>177
出来ました!こんな初歩的な質問に画像まで貼ってご丁寧に
説明して下さいましてありがとうございました!
191名無しさん@そうだ選挙にいこう
垢版 |
2019/10/23(水) 16:17:06.48
>>185
一般操作なら最初に5×10のセル選択しておいてEnterで入力してけばそういう動きになるけど、そういう事ではない?
2019/10/23(水) 16:22:35.21
にわかでごめん
2010のExcelデータを2019で編集できる?
2019で編集したデータを2010に戻せる?
ちなみに住所録のマクロ組むのだが
教えてください!
2019/10/23(水) 16:48:50.00
可能だけど、2019にあって2010に無い機能や構文は使えない。
2019/10/23(水) 16:55:56.57
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2019
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可(コピペだけできます)

1つのワークブックのみ、開いた時に表示サイズを固定できますか?
それと、同じく1つのワークブックのみリボンを非表示にしたいのですができますか?
2019/10/23(水) 21:35:14.30
>>294
表示サイズって何のこと?
ウィンドウサイズ?シートの拡大率?その他?
2019/10/23(水) 21:35:34.93
>>194じゃい!
2019/10/23(水) 22:42:28.71
出来ると思うけど、固定はWindowsAPIだろうな。
2019/10/24(木) 02:38:05.03
Range("A1").Copy Range("C2")

Range("A1").Copy
Range("C2").PasteSpecial xlPasteValues

Range("C2") = Range("A1")
199194
垢版 |
2019/10/24(木) 09:10:13.26
>>195

ウインドウのサイズです。
2019/10/25(金) 18:14:07.35
A列の最終行からAS列の最終行の関数を、AQ2と同じ値から1引いた行数分オートフィルでコピーをしたいのですが
↓の5行目と6行目の書き方を教えてください

IF Range("AQ2") > 1 then
Dim s As String
  i = Cells(Rows.Count, 1).End(xlUp).Row
s = Range("AQ2").Value + i -1
Range("A2:AN2").Select
Selection.AutoFill Destination:=Range("A2:AN" & s)
End If
2019/10/25(金) 18:25:36.43
型がおかしい気がする

Range("A2:AN" & s).formula =range("a2:an2").formula
202200
垢版 |
2019/10/25(金) 18:33:32.17
>>201

>>200
の5行目と6行目は2行目の関数になっておりますが、コピー元の関数は最終行になりますので
最終行の関数をオートフィルしたいです
2019/10/25(金) 18:36:00.24
>>202
どの範囲にオートフィル
最終行から下方向?
204200
垢版 |
2019/10/25(金) 19:00:33.58
>>203

そうです。下に向かってオートフィルでおねがいします
2019/10/25(金) 19:06:59.70
>>199
ウィンドウサイズの固定はVBAのWindowResizeイベント
リボン非表示は最小化ボタンの隣のボタン

>>200
最終行をコピーしたいのになんで2行目を指定してんの?
2 Dim s As long
5 Range("A" & i & ":AS" & i).Select
6 Selection.AutoFill Destination:=Range("A" & i & ":AS" & s)
2019/10/25(金) 19:35:30.87
>>204
オートフィルの範囲は必須なのですがどこまで
207200
垢版 |
2019/10/26(土) 09:02:02.36
>>205

ありがとうございます。
208名無しさん@そうだ選挙にいこう
垢版 |
2019/10/26(土) 12:08:01.81
>>200
なぜ3行目だけインデント?
変数iを型宣言しない理由?
AQ2に特別な意味を持たせるのに名前付けないの?
2019/10/26(土) 12:15:07.01
↓列Aの最終行の一つ下に関数を入れて、その関数をAD列の最終行までオートフィルをしたいのですが

A列の最終行の一つ下に関数を入力
r = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & r) = "=INDEX(AD:AD,ROW(),1)"

A列の最終行の関数をAD列の最終行と同じ行までまでオートフィル
s = Cells(Rows.Count, 1).End(xlUp).Row
i = Cells(Rows.Count, 30).End(xlUp).Row
Range("A" & s).Select
Selection.AutoFill Destination:=Range("A" & s :"A" & i)

これだと、最終行の構文が違うので正しい書き方を教えてください。
2019/10/26(土) 12:16:16.14
>>209
Range("A" & s & ":A" & i)
2019/10/26(土) 12:22:46.94
全く考える気が無いようだが文の見直しぐらい考えなくても自分で出来るだろう…
212209
垢版 |
2019/10/26(土) 13:00:04.89
>>210
いつもありがとうございます!勉強になります
213名無しさん@そうだ選挙にいこう
垢版 |
2019/10/26(土) 13:35:16.47
>>211
応用が効かないんだろ
214sage
垢版 |
2019/10/26(土) 16:30:13.39
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2012
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

2行目以降からA列の最後の行まで、A列の値が変化するごとに、A〜DE列を"青と黄色で交互に塗りつぶすコードをお願いします


A2・・あ・・・青
A3・・あ・・・青
A4・・あ・・・青
A5・・い・・・黄
A6・・う・・・青
A7・・え・・・黄
A8・・え・・・黄
A9・・お・・・青
A10・お・・・青
2019/10/26(土) 17:04:56.37
>>214
コードというのはVBAの中身のことだから、VBA不可の時はコードも存在しない
ワークシートの数式では塗りつぶすことはできないから、条件付き書式でやるしかない
2019/10/26(土) 17:16:16.91
>>215
VBAの構文でおねがいします。こぴぺするくらいしかできません
217名無しさん@そうだ選挙にいこう
垢版 |
2019/10/26(土) 17:23:21.08
DF2へ↓を入れてオートフィル
IF(A1=A2,DF1,MAX(DF$1:DF1)+1)

【条件付き書式】
=ISODD($DF2)=TRUE 青背景に設定 適用先は$A:$DE
=ISODD($DF2)=FALSE 黄背景に設定 適用先は$A:$DE
2019/10/26(土) 17:26:52.45
数式やマクロ作成依頼スレと勘違いしてるやつだらけ
2019/10/26(土) 17:29:27.80
>>216
VBAにこだわるなら
Excel VBA 質問スレ Part63
https://mevius.5ch.net/test/read.cgi/tech/1568630099/
2019/10/26(土) 18:23:53.78
>>217
ありがとうございます
結果はA列が同じ値でも色が違ったり、違う値でも同じ色になってしまいます。
(A列はあらかじめ順番に並び替えてあります)

>>219
>>217 の方法にします
2019/10/26(土) 18:55:57.14
この方が単純じゃね?
DF2 TRUE
DF3 =IF(A2=A3,DF2,NOT(DF2))
以下オートフィル
条件付書式は>>217のISODD($DF2)のとこを$DF2にする
2019/10/26(土) 19:34:03.49
関数みたいな表現が流行ってるけど、発祥はエクセル?

Excel()
笑()
ヒロシ()
2019/10/26(土) 19:50:19.05
違う
もともとは(笑)とか(ただしイケメンに限る)みたいな定型文があって、それを省略してるだけ
何を省略したかは文脈から読み取る
2019/10/26(土) 21:02:51.53
マジレスカコワルイ
2019/10/26(土) 21:13:34.60
知らんかった・・・。
絶対間違って使ってるやついると思うわ。

↓これとか、何省略してんだよ。
https://rosie.5ch.net/test/read.cgi/kanto/1571000333/10
2019/10/26(土) 21:18:00.81
ツイッターとかだとネットスラングの使い方もうむちゃくちゃ
2019/10/26(土) 21:20:05.37
俺も使ってみようかな。
何の脈略もなく、ROW()とか。
2019/10/26(土) 21:31:13.91
「カッコ付きの○○」は
「文字通りの○○ではない」
という意味だったと思うけど、
「○○()」のもともとは、
(笑)の笑がない
→ ○○に呆れた
みたいな意味だったかと。
2019/10/26(土) 21:38:23.80
>>228
>>223の言うように「ただし〜」とかが省略されてカッコだけになった
2019/10/26(土) 21:40:49.39
>>225
> ↓これとか、何省略してんだよ。
お前、アホだろ()
2019/10/26(土) 21:46:22.17
文脈から読み取る練習。

お前、アホだろ()
    ↓
お前、アホだろ(天才)
2019/10/26(土) 21:50:39.92
まあ天才と紙一重って言うからねぇ()
2019/10/26(土) 21:51:56.48
少し違うな
「※ただしイケメンに限る」が※だけになり、
(白目)が()だけになった
2019/10/26(土) 21:53:31.34
失笑の意味は?
2019/10/26(土) 21:59:03.49
とりあえず文章とは逆の意味を込めて使われてたが、SNS見てると最近はなんでもかんでも付けてて最早意味がわからんな
2019/10/26(土) 22:21:15.30
>>221
できました!ありがとうございます
2019/10/27(日) 03:34:21.78
>>234
そうだ、それが流通している意味だった。
Webのどこかにそんなまとめがあった。
2019/10/28(月) 02:15:04.74
初心者的な質問だけどセルの右下の黒点をダブルクリックでオートフィルを使うとき
下のセルに文字や数字が入ってると機能しないタイプと文字が入ってても上書きしながらするタイプがあるけどこの切り替えってどうやるの?
A1に1、A2に1、A3に2と入れてA1の右下ダブルクリックだとオートフィル自体が動かないソフトと1,2,3と並ぶタイプのソフトと1,1,1と並ぶタイプのソフトの3種類に大別できるけど
2019/10/28(月) 03:48:25.79
>>238
https://whiteleia.com/%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB-%E3%82%AA%E3%83%BC%E3%83%88%E3%83%95%E3%82%A3%E3%83%AB-%E3%81%A7%E3%81%8D%E3%81%AA%E3%81%84/
240名無しさん@そうだ選挙にいこう
垢版 |
2019/10/29(火) 23:49:36.52
あるブックのあるシートのある列を、別ブックの別シートにコピーしたところ、
セルの背景色が変わってしまいました。

不気味なんですが、どんな理由が考えられるでしょうか?
2019/10/30(水) 00:16:25.34
条件付いてたとか
2019/10/30(水) 00:37:45.29
色設定が違う
243名無しさん@そうだ選挙にいこう
垢版 |
2019/10/30(水) 00:56:34.19
テーマ色の設定が違うとか
2019/10/30(水) 08:22:54.05
そういえばテーマを有効活用してる奴なんているのか?
一時凝って色々やってみたけど面倒なだけだった
2019/10/30(水) 12:15:15.99
エクセルの拡大表示を80%くらいに設定して資料作るのってどういう意図があると思いますか
フォントが14で行が40とかになってるわりに小さく見えるなと思ったら縮小表示になってるんだ
見づらいなら100%から拡大すればいいと思うんだが、前の会社にもこういう作り方する人がいたから気になった
2019/10/30(水) 12:40:09.71
>>245
作るときに資料全体のバランスとかを見たい
2019/10/30(水) 13:59:02.43
方眼紙のマス目の微調整みたいなもんかと
248名無しさん@そうだ選挙にいこう
垢版 |
2019/10/30(水) 14:35:38.79
>>245
おそらく意図はありません。
文字の大きさを考えずに、全体を作って
画面に表示し切れないから、縮小表示にしたという事です

馬鹿かと思われますか?
ええ馬鹿なんですよ
249名無しさん@そうだ選挙にいこう
垢版 |
2019/10/30(水) 17:03:56.47
質問です、お願いします。

【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可否

データの統合なのですが、
ブック1:上半期(1月〜9月まで)
ブック2:下半期(10月〜12月まで)
ブック3:統合

統合すると、表示が下半期が最初になります。

10月 11月 12月 1月 2月〜〜〜 

統合元の順番を変えればいける気もするのですが変えれません。
どうすれば上期から表示できますか?
2019/10/30(水) 17:38:20.06
>>246-248
それによって何かが便利になるわけでもなさそうですね
自分にはちょっと理解できない使い方のようです…
251名無しさん@そうだ選挙にいこう
垢版 |
2019/10/30(水) 18:12:07.29
>>249
統合って集計でしょう?
それなのに各月が表示されるって
まさか、列の項目名が月なんですか?

行か列の項目名が同じのを集計するのが統合なので
それ間違った使い方ですよ

別の項目名だから別の列に並ぶという結果にはなりますが集計になっていません

それを月順にソートしたらどうでしょうか
ただし全角の数字ですと
1月 10月 11月 12月 2月...
という風に並びますので
半角の数字にしないといけませんが
2019/10/30(水) 19:26:56.02
>>250
謎のでかフォント縮小表示は事務系部署あるある
2019/10/30(水) 19:41:34.42
>>249
表示が下半期が最初になります
と言われても、シートの並びなのか、列の問題なのか行の問題なのかがわからないので回答は無理。
それよりも、「上半期」「下半期」と言いながら、片や9か月間、片や3か月間というのが気になる。
2019/10/30(水) 21:06:44.86
印刷は縮小の方がきれい
罫線も目立たずスッキリ
2019/10/30(水) 21:26:31.61
vbaでIE動かす時、ダブルクリックする方法ありますか?
2019/10/30(水) 21:38:59.20
あります
2019/10/30(水) 22:06:42.33
あるけど、ダブルクリックじゃないと発動しないようなものなんかあったっけ?
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。

ニューススポーツなんでも実況