Excel総合相談所 137

**名無しさん＠そうだ選挙にいこう** · 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/11/06(水) 00:42:33.13

>>376
じゃあリストがD1～F1にあるとして、
A2 =IFERROR(INDIRECT(ADDRESS(1,MIN(D2:F2))),"")
これを下へコピペ
D2 =IF(ISERROR(FIND(D$1,$A2)),"",COLUMN())
これをリストの範囲にコピペ

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 00:50:57.54

まちがえた
上の数式はA2じゃなくてB2に入れる

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 01:01:53.27

手入れしにくいか、、
D1が空欄じゃないとして
B2=IFERROR(INDEX(D:D,AGGREGATE(15,6,INDEX(ROW(D$2:INDEX(D:D,COUNTA(D:D)))/NOT(ISERROR(FIND(D$2:INDEX(D:D,COUNTA(D:D)),A2))),),1)),"")

**368** · 2019/11/06(水) 01:36:38.29

>>377 >>379
それぞれ確認してきました
無事に解決しました、ありがとうございました

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 06:30:09.32

>>376
これだとPC用モニターを買った場合どうなるの？

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 07:13:40.83

>>371
そんな使い辛いのに未だに大人気だからな
やっぱり素人さんには一つの関数で完結するのが丁度いいということか

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 07:25:09.36

>>381
>>372

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 07:40:32.05

VLOOKUP→使える
INDEX MATCH→使わない！面倒くさい！VLOOKUP使え！
こういう馬鹿上司がいるとかいないとか

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 12:38:02.14

>>384
えっ！スピル？そんな邪道な手段など使うな！ちゃんとコピペしろ！いや、一行ずつ手入力しろ！
こういうクソバカ老害も出てくるんだろうな

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 12:48:07.41

>>382
そんな時はユーザー定義関数作って煙に巻く

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 13:30:15.94

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
AND関数とINDIRECT関数って同時に使えないんですか？
両方使って条件作ったのですが機能しません。

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 13:47:37.03

その式を張るべし

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 15:20:39.08

どなたか>>375これ分かる人がいればお願いします・・・

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 17:52:55.96

>>389
”ヤフー知恵袋”などの質問投稿サイトの方がいいような。

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 17:57:36.29

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

グラフの横軸の範囲を名前を用いて可変にしようと考えています。
今、グラフ範囲という名前に
INDIRECT("B"&MATCH(sheet1!$D$4,sheet1!B1:B10,0)&":B"&MATCH(sheet1!$D$5,sheet1!B1:B10,0))
という風にし、B列からD4とD5の値を探し、その間を横軸の範囲にしようとしていますが、うまくいきません。
どこが間違っているのでしょうか？
ご教示のほどよろしくお願いいたします。

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 19:00:59.39

"sheet1!B"

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 19:27:59.58

>392
回答ありがとうございます。
修正を行ったのですが、解決には至りませんでした・・・・
ちなみに、適当なセルに関数を入力、数式のチェックを行うと、最終的には
『INDIRECT(sheet1!B10：B20)』のような形になるので・・・数式としては間違ってないのでは？と感じております。
名前を定義する際の方法が間違っているのでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 19:42:42.92

>>389
うちの環境では特にそんな事にはならないよ

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 19:53:57.76

>>391
後ろの検索範囲も10個しかないから最高B10にしかならん

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 20:20:27.62

>392
回答ありがとうございます。
上記の関数をたとえばCUNTAなどで囲った場合は、臨んだ値が返されるのですが、名前として定義をすると何も返されない状態になるのです。
そのため名前の定義をするときはこの方法では無理なのか？と感じている状態です。
よろしくお願いいたします。

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 20:41:49.76

1100
1200
1400
1500
1700

１００番ずつ上がるが、1300,1600などがわかるような関数式ない？

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 20:53:06.24

>>397
1300,1600などがわかるとは？

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 20:56:44.10

>>396
=OFFSET(Sheet1!$B$1,MATCH(Sheet1!$D$4,Sheet1!$B$1:$B$10,0)-1,0,MATCH(Sheet1!$D$5,Sheet1!$B$1:$B$10,0)-1)

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 21:35:34.50

>>391
>>392 に加えて
2ヶ所ともB1:B10 → $B$1:$B$10

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 21:38:12.12

>>393
sheet1!付けても駄目ならMATCHの結果が違うんでないの

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 21:38:53.70

>>400
$付ける必要は無いぞ

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 21:43:07.42

あ、もしかして別シートから呼び出すのか

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 22:36:38.91

>>397
よくわからんけど、If 1300 Or 1600 Then うんこ的なやつじゃダメなのか。

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 22:54:30.66

>>397
「抜け」を探したい、ってことですか？
開始値、終了値、増分で正しい値セットをフィルコピーで作っておいて、
隣の列に「対象のセル範囲に一致する値があるかないか」の計算式を
入れるのがわかりやすいと思う。

**名無しさん＠そうだ選挙にいこう** · 2019/11/06(水) 23:51:39.77

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

一部のセルのロックを解除して、シートを保護した状態(※1)にすると、
罫線の「格子」、「外枠」、「その他の罫線」が使えなくなってしまいます。
この状態でも「格子」、「外枠」、「その他の罫線」を使えるようにしたいのですが、
どうしたらよいのでしょうか？
（下罫線や右罫線などは使えるので、組み合わせで罫線引けるのですが、組み合わせは面倒です。）

(※1)
「このシートのすべてのユーザーに許可する操作」の設定
・ロックされていないセル範囲の選択
・セルの書式設定

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 00:21:21.60

>>397
1100がA1にあるとして
B2=IF(A2-A1=100,"",A1+100)
↑のオートフィルではダメ？

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 00:26:08.57

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

例えば、一つ上のセルと比較して10以上数字が大きい場合に、
そのセルの色を変えるって感じで条件を設定したいんですが、
A1+10<=A2と設定したとして、
なぜかA1の方の色が変わっちゃうんですがどうしたら良いんですか？
データ上、上が過去で下が現在って感じなので、現在ベースで色が付くと良いんですが

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 00:30:39.42

>>408
A1に条件が設定されてるからじゃないのか

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 00:46:15.01

>>407
「抜け」が連続したときにわからないと思う。
1100
1200
1500
1600
のときに、1300と1400を表示する必要がある。

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 00:50:31.98

>>408
選択範囲を仮に$A2:$A100として
=A2>=A1+10
でいいんじゃない？

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 00:52:35.40

>>397
A1=1100
B1=TEXTJOIN(",",,INDEX(REPT(ROW(INDIRECT(A$1/100&":"&INDEX(A:A,COUNTA(A:A))/100))*100,--ISERROR(MATCH(ROW(INDIRECT(A$1/100&":"&INDEX(A:A,COUNTA(A:A))/100))*100,A:A,))),))

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 01:30:48.75

セルのコメントの枠について
位置を移動させたいんですけど出来ますか？
下の方のセルのコメントの枠が
表の下にはみ出てしまって見えないんです
スクロールすればもちろん見れますが
しかし表の上も同時に見たいので
それだといちいち上下しなければならず
なのでコメントの枠をもっと上に表示させられればなあと
コメント編集時の枠は移動できますけど
通常の閲覧時の枠の位置がセルから見て一定なので

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 01:55:17.73

>>413
セルのコメントの位置が、最初にコメントを付けたときより下方向に異常にずれる不具合のことでしょうか？
Excel2003まではそんなトラブルと無縁でしたが、（2007は使ったことがない）2010以降
おかしくなってるような気がします。自分の回りには2013以降のPCはまだ少ないのでなんとも。
ということで、私の対策は「コメントを極力つけない」になってしまいました。
別のシート「メモor説明」に注意点を並べています。
私はマクロを起動するためのボタンもシート上に置くようにしていたのですが、
2010以降は大きさや位置が変わる（極端なときは高さが１ポイントとか、幅も一文字分など）
ことが頻発したので、シート上にはフォームを表示させるボタン1個だけとし、フォームの中に
従来並べていた各機能（マクロ）のボタンを配置するようにしました。
フォームを表示させるための唯一のボタンも大きさや位置が変わってしまうことがあるので、
シートがアクティブになったときに起動するマクロで当該ボタンの大きさ・位置を設定する
ようにしたものもあります。
ということで、直接の解決策としては＜マクロ入りのブックであれば＞シートを表示する
タイミングでセルコメントを付け直すのはいかが？　他の方法は思いつきません。

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 11:30:27.22

>>406
無理
罫線はセルじゃなくてシートの一部だから
シートが保護されれば変更不可

ただし、シートの保護のオプションで
オブジェクトの編集にチェック入れれば
保護中でもオートシェイプは入れられるから
ALTキー押しながらオートシェイプの線を引けば
罫線の代用にはなる

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 11:34:34.52

>>411
条件式は
>=A1+10
で良いんじゃね？

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 15:42:13.24

>>409
>>411
>>416
ありがとうございます。
選択範囲の方を変えるって方法勉強になりました。

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 19:42:14.36

選択範囲を変える方法じゃなくてそもそも設定の方法が間違ってるんやろ

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 21:06:44.64

>>415
ありがとうございます。
無理なんであればVBA検討してみます。

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 21:10:58.42

>>419
ロックしたらVBAも弄れない

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 22:04:11.10

>>420
オプションでいけるじゃん

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 23:34:04.11

プロテクトそのものをVBAで制御できるやろが

**名無しさん＠そうだ選挙にいこう** · 2019/11/07(木) 23:45:41.23

プロテクトを何で制御しようが結局外さなきゃセル弄れないだろ

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 00:05:41.56

>>423
unprotectしてから最後にprotectすればいい

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 00:21:58.68

>>424
それ>>423と言ってること同じじゃん

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 00:45:33.58

>>425
すまん。ウンコをする時はズボンとパンツを下ろせばできるのに、>>423がズボンとパンツを履いたままではウンコはできないと言ってたので

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 00:51:22.84

すごく分かりやすいけど、パンツ履いたままウンコすることもある。

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 06:56:40.15

俺はいつもパンツ履いてない

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 07:19:43.56

>>428
OOoやgoogleスプレッドシートを使えばプロテクトを無効化できるという意味か
・・・
うまい例えだな

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 11:32:30.91

条件付き書式で数式使う時どうしてる？
関数の予測変換も出てこないしカッコもタブキーで出来ないし
ポチポチ自力で打つしかない？
ものすごい今更だけど

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 11:36:27.53

自力で打つか、一旦セルに数式入力したやつコピーしてる

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 12:38:17.99

>>426
脱ぐ必要があると言ってるのはどっちも同じやん
同じなのに何がそんなに気に食わないのか…

**364** · 2019/11/08(金) 16:44:39.34

>>367
遅くなりましてすみません。
ご紹介頂いたフリーソフトを導入してみました。
ありがとうございます。

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 18:39:33.83

>>431
なるほどなぁ
ちゃんと打ち込んでも何故か式がズレる時あるからなんかムカついてしまったわ
アクティブセルちゃんとしないとズレるのかな？

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 19:20:48.11

マクロ初心者です。教えて下さい！
ネットで検索してマクロをまねして書いてみましたがうまくいきません
やりたいことはZドライブのファイルを１０個オープンしてaaaというファイルのA2から
10行おきにコピペするというマクロなのです。
Zドライブのファイルは全てB2:J10にデータが書かれています。
作ったマクロはこれです。
Sub copipe()
Path As String, myBook As String

myPath = "Z:\"
myBook = Dir(myPath & "*.xlsx")

Do Until myBook = ""
Workbooks.Open myPath & myBook
Range("B2:J10").Select
Selection.Copy
Workbooks("aaa.xlsm").Activate
Sheets("sheet1").Select
Range("A2").Select
ActiveSheet.Paste
Range("A12").Select
ActiveSheet.Paste
以下繰り返しでA92までコピペ
Range("A92").Select
ActiveSheet.Paste
Workbooks(myBook).Close
myBook = Dir
Loop
End Sub

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 19:38:03.60

>>435
1ファイル分をaaaのA2以下に10回貼り付ける作業を全ファイル分繰り返して上書きし続けている
どういう結果にしたいわけ？1ファイル目をA2に貼って2ファイル目をA12に貼って…という風にしたいのか？

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 20:49:47.82

>>435
Sub copipe()
Dim mybook As Variant, rs As Long
mybook = Dir("Z:\*.xlsx")
Do Until mybook = ""
mybook = Dir
Workbooks.Open mybook
With Workbooks("aaa.xlsm").Worksheets("sheet1")
rs = .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(1).Row
.Cells(rs, 1) = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10")
End With
Workbooks(mybook).Close
Loop
End Sub

実際に動かしてないからエラーが出るかも知れないが多分大丈夫と思う
開く方のシート名は何でもいいけど全て同じにする必要がある

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 21:03:50.73

>>437
間違ってるぞ

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 21:17:19.45

>>437
9行目訂正
.Range(.Cells(rs, 1), .Cells(rs + 8, 9)) = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10")

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 21:35:54.93

>>439
すまん、二度目の訂正
.Range(.Cells(rs, 1), .Cells(rs + 8, 9)).Value = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10").Value

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 22:07:12.84

A B C D
1
2
3
4

を

　1 2 3 4
A
B
C
D

にしたいんだけど無理ですか？

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 22:17:42.62

>>441
1行目を右に1個ずらす→表全体をコピー→形式を選択して貼り付けで行列入れ替えを選ぶ

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 22:24:45.22

>>442
ありがとう。
データが90度回転状態になった！

枠を入れ替えたいんだわ

氏名1　氏名2　氏名3　氏名4
住所1　住所2　住所3　住所4
電話1　電話2　電話3　電話4
日付1　日付2　日付3　日付4

みたく　

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 22:31:10.53

>>435
Sub copipe()
Dim mybook As Variant, rs As Long, wb As Variant
mybook = Dir("Z:\*.xlsx")
Do Until mybook = ""
wb = mybook
mybook = Dir
Workbooks.Open ("Z:\" & wb)
With Workbooks("book1.xlsm").Worksheets("sheet1")
rs = .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(1).Row
.Range(.Cells(rs, 1), .Cells(rs + 8, 9)).Value = _
Workbooks(wb).Worksheets("sheet1").Range("B2:j10").Value
End With
Workbooks(wb).Close
Loop
End Sub

何回も訂正して悪い
エラーチェック済だからこれでいける

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 22:46:13.51

>>443
枠?
1234をABCDにするの?
出来るけど、WindowsAPIを使って、やっとどうにかなるレベルじゃないの。

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 23:03:47.63

>>443
枠とは？
その4行の表の入れ替え前は？

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 23:11:56.48

>>444
元のままでいい部分までややこしく変えなくてもいいんじゃないの…

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 23:15:08.62

>>443
枠ってもしかして列名と行番号のことか
そんなの変える機能は無い
代替案としては自分で1行目とA列に好きな文字入れてそれを目安にする

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 23:17:47.89

さらに本来の列と行番号の部分を非表示にすればそれっぽくなるぞ

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 23:21:03.97

まあ、ディスプレイを90度回転させればいいだけなんだけどね。

**名無しさん＠そうだ選挙にいこう** · 2019/11/08(金) 23:53:48.11

>>447
追加しないと駄目な所だけ追加したけど、具体的にどこの部分？
簡単にできるのなら考えるけど

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 05:24:43.96

>>451
MyPathを無くして"Z:¥"を直書きにしてる
wbなんて言う意味不明な変数は要らん
元のままでいいだろ

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 09:29:40.70

>>450
そのままの意味で力技だな

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 10:34:50.37

>>436,444
早速RESありがとうございます。
444さんのマクロ試してみましたがうまくいかないようです。

私の説明がまずかったのだと思いますが、実際にやりたいことは以下のようなことです。
http://nanpre.adg5.com/xlsx_down.php
このページのナンプレを10問ダウンロードして問題の部分だけ（B2:J2）を
http://iup.2ch-library.com/i/i2024927-1573263001.jpg
このファイルのA2:I100まで10行ごとに1行開けてペーストしたいのですが
ご教授下さい。

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 11:23:42.68

>>454
Sub copipe()
Dim myPath As String, mybook As Variant, rs As Long
myPath = "Z:\"
mybook = Dir(myPath & "*.xlsx")
With Workbooks("aaa.xlsm").Worksheets("sheet1")
Do Until mybook = ""
Workbooks.Open (myPath & mybook)
rs = .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(2).Row
If rs = 3 Then
rs = 2
End If
.Cells(rs - 1, 1).Value = .Range("K1").Value
Workbooks(mybook).Worksheets("sheet1").Range("B2:j10").Copy .Cells(rs, 1)
Workbooks(mybook).Close
mybook = Dir()
Loop
.Range("A1:I100").ColumnWidth = ColumnWidth + 4
.Range("A1:I100").RowHeight = RowHeight + 28
End With
End Sub

1行開けのスペースの場所にある上級～の文字はペーストするシートのK1に文字を入力したら同じ文字ばかりだけど入力される

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 13:48:49.20

これでいいんじゃないの
sub copipe()
Dim Path As String, myBook As String
Dim rowNo as long
myPath = "Z:\"
myBook = Dir(myPath & "*.xlsx")
rowNo = 1
Do Until myBook = ""
　Workbooks.Open myPath & myBook
　Workbooks(myBook).Worksheets("Sheet1").Range("B2:J10").Copy Range("A" & rowNo + 1)
　Workbooks(myBook).Close
　rowNo = rowNo + 10
　myBook = Dir
Loop
End Sub

aaa..xlsmのシートモジュールに書く
タイトルが欲しければループの1行目にRange("A" & rowNo).Value = myBookでも入れておけばいい

**454** · 2019/11/09(土) 14:51:13.52

>>455,456
速攻RESありがとうございました
早速やってみましたが、455さんのマクロの場合、"aaa.xlsmのsheet1に全くペーストできないです
マクロは動いているようなのですが、コピーペーストができないです。

456さんの場合オープンしたファイルに次々とペーストされていくようです。
また、Workbooks(myBook).Closeの記述があるのですがオープンしたファイルを保存するかどうか一つずつ聞いてきます。

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 15:17:21.89

>>441 443
TRANSPOSE 関数
https://support.office.com/ja-jp/article/transpose-%e9%96%a2%e6%95%b0-ed039415-ed8a-4a81-93e9-4b6dfac76027?omkt=ja-JP&;ui=ja-JP&rs=ja-JP&ad=JP

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 16:32:33.93

>>457
Workbooks(myBook).Close(False)
に変えれば保存せずに閉じる
けど、ファイル変更してなきゃ聞いて来ないはずなんだがな…

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 16:36:09.45

>>457
オープンしたファイルに、か
>>459は忘れてくれ
コードはaaa..xlsmの貼り付けたいシートのシートモジュールに書くんだ

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 18:13:17.82

>>460
ありがとうございました！！！！！
シートモジュールに書いてなかったのでうまくいかなかったみたいです。
シートモジュールに書いたらバッチリ動きました。

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 22:36:53.48

>>448
人物の公開プロフィールやDVDのデータをデータベース化する場合や、
例えば、
http://www.helloproject.com/morningmusume/profile/mizuki_fukumura/
http://www.helloproject.com/morningmusume/profile/erina_ikuta/
https://www.a
mazon.co.jp/gp/product/B01BTGDP3M/
の1人や1作品の登録データをまるごと1回でコピーしてExcelに貼ってを繰り返してデータ化するには、横軸に数字で
縦軸の項目はせいぜい15個くらいの横長の表のほうがいい。

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 23:04:22.86

>>462
横に数字が並ぶイメージがつかないけど、1人に紐付く情報が縦方向に並ぶ表形式なのか
複数人数の情報を纏めるデータベースなら1人1行で横方向に情報が並ぶ方が処理しやすくないか

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 23:45:13.42

スマホ版だとPC版で変更したフォント（フリーのダウンロードしたやつ）は反映させられないのだろうか？

**名無しさん＠そうだ選挙にいこう** · 2019/11/09(土) 23:54:44.34

PC版でもPCに入れてないフォントは反映されないぞ

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 00:27:12.02

>>465
スマホにも同じフォント入れたはずなんだよね

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 10:25:15.33

自分で作った色、例えばピンク RGB(255,204,255)は別のPCのExcelには初めから設定されていないので、その他の色、ユーザー設定でRGBを設定して新たに色を作らなければなりませんが、
それを自動で設定してリボンのフォント、最近使用した色のパレットに設定するマクロありますか？
指定した色の付いたセルで分岐させたいのですが

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 12:41:54.08

>>467
マクロで色を付けても最近使用した色には反映されないから無理かと
ユーザーフォームを使ってオリジナルのカラーパレットを作るとかかな

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 12:51:20.75

>>467
マクロ使わなくても、その他の色→OKで履歴に入るよ

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 13:59:14.04

>>468
>>469
ありがとうございます。
後任の人にその他の色→OKを申し送っておきます。

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 15:27:51.28

ブックに掛かってるパスワード無視して内容読み込むって出来る？
暗号解読ソフト使うとかじゃなくてVBAで

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 15:40:53.73

>>471
無視はできない
パスを解除することになる

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 15:46:27.48

>>471
パスが分かってるのか分からないのかで対応が違う

**名無しさん＠そうだ選挙にいこう** · 2019/11/10(日) 21:23:59.68

Microsoftにログインできなくなってしまった
なぜ…

**名無しさん＠そうだ選挙にいこう** · 2019/11/11(月) 12:13:38.57

VBAに過度な期待してる人いるな
細かな制御が出来るだけで
なんでもありじゃないんだが
Excelのシステム的に無理なのは無理

**名無しさん＠そうだ選挙にいこう** · 2019/11/11(月) 19:49:36.54

そもそもどういうものか知らないんだろうな