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
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
あるけど、ダブルクリックじゃないと発動しないようなものなんかあったっけ?
2019/10/30(水) 22:49:16.54
>>257
それがあるんです
詳細ないとわからない感じですか?
2019/10/30(水) 23:14:27.14
ブラウザゲーかな
それでもダブルクリックってあんまり聞いたことないけど
2019/10/30(水) 23:53:51.37
>>258
シングルクリックだと、普通は getElementByName("ボタン")(0).click みたいな感じでやるんだけど、
ダブルだとそんなやり方じゃないよなぁ・・。
WindowsAPIのSetCursorPosとmouse_eventの組み合わせなら確実にいけると思うけど、
そもそもどうやってお目当ての座標を調べるのかっていう・・。
2019/10/30(水) 23:57:30.68
あ、ウインドウハンドルが取れるならSendMessageでいけるか。
2019/10/31(木) 00:14:27.36
>>245
A4横の資料作るのに大体75%くらいの表示で作ってる
率のとこクリックして7って打ってエンターで変わるから80より使いやすくて
100よりは全体が見えて作りやすいんだよね
2019/10/31(木) 00:21:49.59
>>262
全体の見え方じゃなくてフォントサイズでかくして縮小印刷するという無意味な行為の話をしてるんだぞ
2019/10/31(木) 00:32:29.15
>>>263
それが無意味とは限らないんだな
画面上では#####なのに印刷すると数字になったり、その逆になる現象を回避できる
こればかりは印刷プレビューでもわからないからやっかい
2019/10/31(木) 00:38:09.38
>>264
シートが縮小される→見づらいからフォントサイズを上げる、という作り方してる人が世の中にはたくさんいるんだ
2019/10/31(木) 00:56:55.07
>>263
縮小すると相対的に分解能が上がる
意図しない印刷結果にもなりにくい
罫線が細くきれいにかける
見やすい表になる
2019/10/31(木) 01:02:03.28
質問お願いいたします
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel 2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 出来る限り無しでお願いします
【5 その他】 問題解決(ソート)のために別シートを作成するとかでも問題ありません

【質問内容】
オートフィルタをよく活用しているのですが
たまに「(上)S+、S、S-、A+、A、A-、B+、B、B-、…、D+、D、D-(下)」などでソートをかけたい場合があります
こういったカスタムなソートに対応できる方法があれば教えてください
2019/10/31(木) 01:10:19.93
>>267に関連して後出しにならないようにもう一つ質問させといてください

例えば数値100を入力してデータとしてこの値を保ちつつ表示をS+とかに出来ますか?
ソート時には入力した100を参照するというのを前提にした質問です
269名無しさん@そうだ選挙にいこう
垢版 |
2019/10/31(木) 07:25:29.10
>>249
普通は1月から12月まで並べた表にデータ入れますよね
それが分かりやすいし、統合の必要も無いです
無理にブックを分ける意味は分かりません。
無意味と思います
270名無しさん@そうだ選挙にいこう
垢版 |
2019/10/31(木) 07:27:51.92
>>249
仮に各月毎の表が別途必要なら
その表を参照する年間表を作れ済む話ですね
271名無しさん@そうだ選挙にいこう
垢版 |
2019/10/31(木) 08:13:56.19
>>266
綺麗かどうかが重要な表なら
セルの罫線使うのは無理かと思います。
画面と印刷結果で線の太さが違うこともあるからです

そこまで追求したいなら、太さをポイントで指定出来るオートシェイプの罫線で
ALTキーを押しながら引けば、セル枠に吸着した罫線引けますから、縮小率がどうとかも悩まずに出来ますよ
272名無しさん@そうだ選挙にいこう
垢版 |
2019/10/31(木) 08:24:27.85
>>267
https://www.becoolusers.com/excel/sort-custom-lists.html
273249
垢版 |
2019/10/31(木) 08:49:38.80
>>251,253,269
FOM?だったかな?の、問題集にこういう問題があるんです。

1月 2月 3月 ← 行 ですね。
シートは、最初が上半期、2つ目に下半期です。
きちんと6か月区切りでないのは私も不思議に思ったのですが、こういう問題だったので…
2019/10/31(木) 09:15:08.19
>>271
そこまで厳密にやりたいわけじゃなくて、デフォルトの罫線が全体的に太すぎるから手間をかけずに細くしたいだけだろ
点線を細い罫線の代わりに使う裏技もあるけど、一部のプリンターとの相性もあるから
2019/10/31(木) 11:39:19.84
>>273
”○月”という文字データで並べ替えをすれば一目瞭然です。
エクセルのシートに 1月 と入れて、下にフィルコピーで12月までデータをつくり、
並べ替えをしてみればわかります。
○の部分が全角数字、半角数字どちらも同じになりました。
○の部分を2桁に揃えれば、01,02,・・・09,10,11,12の順になるでしょう。
または、○の部分の数字だけ取り出して並べ替えをすれば1〜12できれいに並びます。
276名無しさん@そうだ選挙にいこう
垢版 |
2019/10/31(木) 12:12:36.30
>>273
そのFOM?の問題文の作者が統合を誤解してます
277名無しさん@そうだ選挙にいこう
垢版 |
2019/10/31(木) 12:15:16.80
>>275
全角でも並びますか?
数値だけセルに入れて、書式に
#”月“を設定する方が確実かなと
278名無しさん@そうだ選挙にいこう
垢版 |
2019/10/31(木) 12:22:39.54
>>274
希望する太さを倍率変えて実現するのは、かえって面倒ではないですか?
しかも、それをしても印刷すると太さ変わります
それならオートシェイプ使うべきでしょう?

試しにセルの罫線とオートシェイプの線を引いてみて
印刷した場合の太さの変化を見てください
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。

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