【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
探検
Excel総合相談所 137
■ このスレッドは過去ログ倉庫に格納されています
1名無しさん＠そうだ選挙にいこう
2019/10/08(火) 20:06:19.402019/11/07(木) 00:26:08.57
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
例えば、一つ上のセルと比較して10以上数字が大きい場合に、
そのセルの色を変えるって感じで条件を設定したいんですが、
A1+10<=A2と設定したとして、
なぜかA1の方の色が変わっちゃうんですがどうしたら良いんですか？
データ上、上が過去で下が現在って感じなので、現在ベースで色が付くと良いんですが
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
例えば、一つ上のセルと比較して10以上数字が大きい場合に、
そのセルの色を変えるって感じで条件を設定したいんですが、
A1+10<=A2と設定したとして、
なぜかA1の方の色が変わっちゃうんですがどうしたら良いんですか？
データ上、上が過去で下が現在って感じなので、現在ベースで色が付くと良いんですが
2019/11/07(木) 00:30:39.42
>>408
A1に条件が設定されてるからじゃないのか
A1に条件が設定されてるからじゃないのか
2019/11/07(木) 00:46:15.01
411名無しさん＠そうだ選挙にいこう
2019/11/07(木) 00:50:31.982019/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,))),))
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,))),))
413名無しさん＠そうだ選挙にいこう
2019/11/07(木) 01:30:48.75 セルのコメントの枠について
位置を移動させたいんですけど出来ますか？
下の方のセルのコメントの枠が
表の下にはみ出てしまって見えないんです
スクロールすればもちろん見れますが
しかし表の上も同時に見たいので
それだといちいち上下しなければならず
なのでコメントの枠をもっと上に表示させられればなあと
コメント編集時の枠は移動できますけど
通常の閲覧時の枠の位置がセルから見て一定なので
位置を移動させたいんですけど出来ますか？
下の方のセルのコメントの枠が
表の下にはみ出てしまって見えないんです
スクロールすればもちろん見れますが
しかし表の上も同時に見たいので
それだといちいち上下しなければならず
なのでコメントの枠をもっと上に表示させられればなあと
コメント編集時の枠は移動できますけど
通常の閲覧時の枠の位置がセルから見て一定なので
2019/11/07(木) 01:55:17.73
>>413
セルのコメントの位置が、最初にコメントを付けたときより下方向に異常にずれる不具合のことでしょうか？
Excel2003まではそんなトラブルと無縁でしたが、（2007は使ったことがない）2010以降
おかしくなってるような気がします。自分の回りには2013以降のPCはまだ少ないのでなんとも。
ということで、私の対策は「コメントを極力つけない」になってしまいました。
別のシート「メモor説明」に注意点を並べています。
私はマクロを起動するためのボタンもシート上に置くようにしていたのですが、
2010以降は大きさや位置が変わる（極端なときは高さが１ポイントとか、幅も一文字分など）
ことが頻発したので、シート上にはフォームを表示させるボタン1個だけとし、フォームの中に
従来並べていた各機能（マクロ）のボタンを配置するようにしました。
フォームを表示させるための唯一のボタンも大きさや位置が変わってしまうことがあるので、
シートがアクティブになったときに起動するマクロで当該ボタンの大きさ・位置を設定する
ようにしたものもあります。
ということで、直接の解決策としては＜マクロ入りのブックであれば＞シートを表示する
タイミングでセルコメントを付け直すのはいかが？ 他の方法は思いつきません。
セルのコメントの位置が、最初にコメントを付けたときより下方向に異常にずれる不具合のことでしょうか？
Excel2003まではそんなトラブルと無縁でしたが、（2007は使ったことがない）2010以降
おかしくなってるような気がします。自分の回りには2013以降のPCはまだ少ないのでなんとも。
ということで、私の対策は「コメントを極力つけない」になってしまいました。
別のシート「メモor説明」に注意点を並べています。
私はマクロを起動するためのボタンもシート上に置くようにしていたのですが、
2010以降は大きさや位置が変わる（極端なときは高さが１ポイントとか、幅も一文字分など）
ことが頻発したので、シート上にはフォームを表示させるボタン1個だけとし、フォームの中に
従来並べていた各機能（マクロ）のボタンを配置するようにしました。
フォームを表示させるための唯一のボタンも大きさや位置が変わってしまうことがあるので、
シートがアクティブになったときに起動するマクロで当該ボタンの大きさ・位置を設定する
ようにしたものもあります。
ということで、直接の解決策としては＜マクロ入りのブックであれば＞シートを表示する
タイミングでセルコメントを付け直すのはいかが？ 他の方法は思いつきません。
415名無しさん＠そうだ選挙にいこう
2019/11/07(木) 11:30:27.22 >>406
無理
罫線はセルじゃなくてシートの一部だから
シートが保護されれば変更不可
ただし、シートの保護のオプションで
オブジェクトの編集にチェック入れれば
保護中でもオートシェイプは入れられるから
ALTキー押しながらオートシェイプの線を引けば
罫線の代用にはなる
無理
罫線はセルじゃなくてシートの一部だから
シートが保護されれば変更不可
ただし、シートの保護のオプションで
オブジェクトの編集にチェック入れれば
保護中でもオートシェイプは入れられるから
ALTキー押しながらオートシェイプの線を引けば
罫線の代用にはなる
416名無しさん＠そうだ選挙にいこう
2019/11/07(木) 11:34:34.522019/11/07(木) 15:42:13.24
2019/11/07(木) 19:42:14.36
選択範囲を変える方法じゃなくてそもそも設定の方法が間違ってるんやろ
2019/11/07(木) 21:06:44.64
2019/11/07(木) 21:10:58.42
>>419
ロックしたらVBAも弄れない
ロックしたらVBAも弄れない
2019/11/07(木) 22:04:11.10
>>420
オプションでいけるじゃん
オプションでいけるじゃん
2019/11/07(木) 23:34:04.11
プロテクトそのものをVBAで制御できるやろが
2019/11/07(木) 23:45:41.23
プロテクトを何で制御しようが結局外さなきゃセル弄れないだろ
424名無しさん＠そうだ選挙にいこう
2019/11/08(金) 00:05:41.56 >>423
unprotectしてから最後にprotectすればいい
unprotectしてから最後にprotectすればいい
2019/11/08(金) 00:21:58.68
426名無しさん＠そうだ選挙にいこう
2019/11/08(金) 00:45:33.582019/11/08(金) 00:51:22.84
すごく分かりやすいけど、パンツ履いたままウンコすることもある。
2019/11/08(金) 06:56:40.15
俺はいつもパンツ履いてない
2019/11/08(金) 07:19:43.56
2019/11/08(金) 11:32:30.91
条件付き書式で数式使う時どうしてる？
関数の予測変換も出てこないしカッコもタブキーで出来ないし
ポチポチ自力で打つしかない？
ものすごい今更だけど
関数の予測変換も出てこないしカッコもタブキーで出来ないし
ポチポチ自力で打つしかない？
ものすごい今更だけど
431名無しさん＠そうだ選挙にいこう
2019/11/08(金) 11:36:27.53 自力で打つか、一旦セルに数式入力したやつコピーしてる
2019/11/08(金) 12:38:17.99
433364
2019/11/08(金) 16:44:39.342019/11/08(金) 18:39:33.83
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
ネットで検索してマクロをまねして書いてみましたがうまくいきません
やりたいことは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に貼って…という風にしたいのか？
1ファイル分をaaaのA2以下に10回貼り付ける作業を全ファイル分繰り返して上書きし続けている
どういう結果にしたいわけ？1ファイル目をA2に貼って2ファイル目をA12に貼って…という風にしたいのか？
437名無しさん＠そうだ選挙にいこう
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
実際に動かしてないからエラーが出るかも知れないが多分大丈夫と思う
開く方のシート名は何でもいいけど全て同じにする必要がある
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
間違ってるぞ
間違ってるぞ
439名無しさん＠そうだ選挙にいこう
2019/11/08(金) 21:17:19.45 >>437
9行目訂正
.Range(.Cells(rs, 1), .Cells(rs + 8, 9)) = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10")
9行目訂正
.Range(.Cells(rs, 1), .Cells(rs + 8, 9)) = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10")
440名無しさん＠そうだ選挙にいこう
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
すまん、二度目の訂正
.Range(.Cells(rs, 1), .Cells(rs + 8, 9)).Value = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10").Value
441名無しさん＠そうだ選挙にいこう
2019/11/08(金) 22:07:12.84 A B C D
1
2
3
4
を
1 2 3 4
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個ずらす→表全体をコピー→形式を選択して貼り付けで行列入れ替えを選ぶ
1行目を右に1個ずらす→表全体をコピー→形式を選択して貼り付けで行列入れ替えを選ぶ
443名無しさん＠そうだ選挙にいこう
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
みたく
ありがとう。
データが90度回転状態になった！
枠を入れ替えたいんだわ
氏名1 氏名2 氏名3 氏名4
住所1 住所2 住所3 住所4
電話1 電話2 電話3 電話4
日付1 日付2 日付3 日付4
みたく
444名無しさん＠そうだ選挙にいこう
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
何回も訂正して悪い
エラーチェック済だからこれでいける
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
2019/11/08(金) 23:03:47.63
2019/11/08(金) 23:11:56.48
>>444
元のままでいい部分までややこしく変えなくてもいいんじゃないの…
元のままでいい部分までややこしく変えなくてもいいんじゃないの…
2019/11/08(金) 23:15:08.62
2019/11/08(金) 23:17:47.89
さらに本来の列と行番号の部分を非表示にすればそれっぽくなるぞ
2019/11/08(金) 23:21:03.97
まあ、ディスプレイを90度回転させればいいだけなんだけどね。
451名無しさん＠そうだ選挙にいこう
2019/11/08(金) 23:53:48.112019/11/09(土) 05:24:43.96
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行開けてペーストしたいのですが
ご教授下さい。
早速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行開けてペーストしたいのですが
ご教授下さい。
455名無しさん＠そうだ選挙にいこう
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に文字を入力したら同じ文字ばかりだけど入力される
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でも入れておけばいい
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でも入れておけばいい
457454
2019/11/09(土) 14:51:13.52 >>455,456
速攻RESありがとうございました
早速やってみましたが、455さんのマクロの場合、"aaa.xlsmのsheet1に全くペーストできないです
マクロは動いているようなのですが、コピーペーストができないです。
456さんの場合オープンしたファイルに次々とペーストされていくようです。
また、Workbooks(myBook).Closeの記述があるのですがオープンしたファイルを保存するかどうか一つずつ聞いてきます。
速攻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
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
2019/11/09(土) 16:36:09.45
2019/11/09(土) 18:13:17.82
462名無しさん＠そうだ選挙にいこう
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個くらいの横長の表のほうがいい。
人物の公開プロフィールや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
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を設定して新たに色を作らなければなりませんが、
それを自動で設定してリボンのフォント、最近使用した色のパレットに設定するマクロありますか？
指定した色の付いたセルで分岐させたいのですが
それを自動で設定してリボンのフォント、最近使用した色のパレットに設定するマクロありますか？
指定した色の付いたセルで分岐させたいのですが
468名無しさん＠そうだ選挙にいこう
2019/11/10(日) 12:41:54.082019/11/10(日) 12:51:20.75
>>467
マクロ使わなくても、その他の色→OKで履歴に入るよ
マクロ使わなくても、その他の色→OKで履歴に入るよ
2019/11/10(日) 13:59:14.04
2019/11/10(日) 15:27:51.28
ブックに掛かってるパスワード無視して内容読み込むって出来る？
暗号解読ソフト使うとかじゃなくてVBAで
暗号解読ソフト使うとかじゃなくてVBAで
2019/11/10(日) 15:40:53.73
2019/11/10(日) 15:46:27.48
>>471
パスが分かってるのか分からないのかで対応が違う
パスが分かってるのか分からないのかで対応が違う
2019/11/10(日) 21:23:59.68
Microsoftにログインできなくなってしまった
なぜ…
なぜ…
475名無しさん＠そうだ選挙にいこう
2019/11/11(月) 12:13:38.57 VBAに過度な期待してる人いるな
細かな制御が出来るだけで
なんでもありじゃないんだが
Excelのシステム的に無理なのは無理
細かな制御が出来るだけで
なんでもありじゃないんだが
Excelのシステム的に無理なのは無理
2019/11/11(月) 19:49:36.54
そもそもどういうものか知らないんだろうな
2019/11/11(月) 19:55:27.16
>Excelのシステム的に
なんか変
なんか変
2019/11/12(火) 18:41:15.94
>>267です
また質問をお願いします
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel 2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 出来る限り無しでお願いします
【質問内容】
15列ほどの表をオートフィルタの機能を使って活用してるのですが
そのうち５列ばかりカスタム((上)S+、S、S-、A+、A、A-、B+、B、B-、…、D+、D、D-(下))な順序でソートをします
>>267さんに教えてもらった通りユーザ設定リストを登録して出来るようになりました
そこでこのカスタムソートを１クリック(なるべく素早く簡単に)で実行できる手段はないでしょうか？
普段隠れているボタンとか探してみたのですが自分では見つけられませんでした
また質問をお願いします
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel 2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 出来る限り無しでお願いします
【質問内容】
15列ほどの表をオートフィルタの機能を使って活用してるのですが
そのうち５列ばかりカスタム((上)S+、S、S-、A+、A、A-、B+、B、B-、…、D+、D、D-(下))な順序でソートをします
>>267さんに教えてもらった通りユーザ設定リストを登録して出来るようになりました
そこでこのカスタムソートを１クリック(なるべく素早く簡単に)で実行できる手段はないでしょうか？
普段隠れているボタンとか探してみたのですが自分では見つけられませんでした
2019/11/12(火) 19:56:53.09
>>478
ない
ない
2019/11/12(火) 19:59:43.22
2019/11/12(火) 21:43:48.60
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
Rangeのセル範囲の中で最も右側のセルを取得するにあたって、スマートな方法を教えて下さい。
※End(xlToRight)を使うと、1セルのときにうまくいかないです。
例1
A B C D
1 ■■■■
Range：A1:D1
→セルD1が取得される
例2
A B C D
1 ■□□□
Range：A1
→セルA1が取得される
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
Rangeのセル範囲の中で最も右側のセルを取得するにあたって、スマートな方法を教えて下さい。
※End(xlToRight)を使うと、1セルのときにうまくいかないです。
例1
A B C D
1 ■■■■
Range：A1:D1
→セルD1が取得される
例2
A B C D
1 ■□□□
Range：A1
→セルA1が取得される
2019/11/12(火) 21:50:56.37
>>481
End(xlToLeft)
End(xlToLeft)
483481
2019/11/12(火) 22:15:46.792019/11/12(火) 22:25:22.40
>>483
質問の意味がわからない
質問の意味がわからない
2019/11/12(火) 22:34:38.67
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ALL_MAPというブックがあって、MAP01を開いてALL_MAPにコピペしてMAP01を閉じる。
MAP02を開いてALL_MAPにコピペと繰り返すマクロを作ったのですが、RangeをALL_MAP
の別シートにあるセルの値を変数にする方法をご教授いただきたく。
Workbooks.Open Filename:="C:\Users\XXXXXX\Documents\MAP01.xlsm"
Range("A1:S12").Select
Selection.Copy
Windows("ALL_MAP.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("MAP01.xlsm").Activate
ActiveWindow.Close
コピペするセルには値や数式はありません。オブジェクトだけです。CADの方がいいのですが、
fusion360などは一切ダメなのです。MAPファイルとALL_MAPのRangeは同じです。
よろしくお願いいたします。Excelは表計算ソフトであってドローイングソフトじゃないのですが。
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ALL_MAPというブックがあって、MAP01を開いてALL_MAPにコピペしてMAP01を閉じる。
MAP02を開いてALL_MAPにコピペと繰り返すマクロを作ったのですが、RangeをALL_MAP
の別シートにあるセルの値を変数にする方法をご教授いただきたく。
Workbooks.Open Filename:="C:\Users\XXXXXX\Documents\MAP01.xlsm"
Range("A1:S12").Select
Selection.Copy
Windows("ALL_MAP.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("MAP01.xlsm").Activate
ActiveWindow.Close
コピペするセルには値や数式はありません。オブジェクトだけです。CADの方がいいのですが、
fusion360などは一切ダメなのです。MAPファイルとALL_MAPのRangeは同じです。
よろしくお願いいたします。Excelは表計算ソフトであってドローイングソフトじゃないのですが。
2019/11/12(火) 22:53:31.89
>>485
自分の脳内設定が他人にも見えてる前提で語るのはやめよう
あまり理解していない単語で説明しようとするのも相手に混乱を招くのでやめよう
とりあえず主旨と思われる、
>RangeをALL_MAPの別シートにあるセルの値を変数にする
はそのコードのどの行でどういう動きをさせようとしてんの
自分の脳内設定が他人にも見えてる前提で語るのはやめよう
あまり理解していない単語で説明しようとするのも相手に混乱を招くのでやめよう
とりあえず主旨と思われる、
>RangeをALL_MAPの別シートにあるセルの値を変数にする
はそのコードのどの行でどういう動きをさせようとしてんの
487名無しさん＠そうだ選挙にいこう
2019/11/13(水) 09:33:34.99 >>485
不明な点
なんで環境変数USERNAME使わないの？
不満言ってるって事は職場で仕方なくだろ
他人に引き継ぐとか考えないん？
別シートにあるセル参照したいならシート名添えるだけだろ？あるいは名前定義
そもそもMAPが画像ならその画像ファイルを貼り付けるればええやん？
わざわざマクロ付きエクセルデータファイルを弄る理由がわからない
不明な点
なんで環境変数USERNAME使わないの？
不満言ってるって事は職場で仕方なくだろ
他人に引き継ぐとか考えないん？
別シートにあるセル参照したいならシート名添えるだけだろ？あるいは名前定義
そもそもMAPが画像ならその画像ファイルを貼り付けるればええやん？
わざわざマクロ付きエクセルデータファイルを弄る理由がわからない
2019/11/13(水) 16:37:59.86
EXCEL今まで工事やりたい時とか物品購入してもらうために稟議書作ったり
テナントに○○日工事やるからヨロシク〜っみたいなお知らせしか作ったことなく
来月から現場じゃなく本社に行かされEXCELやるような事務方の仕事なりそうなんです
けど、本当素人からEXCELやるのにオススメのサイトとか参考書ってあるでしょうか？
自宅にはofficeないのでLibreOfficeで少しでも今から練習しようと思ってまして…。
テナントに○○日工事やるからヨロシク〜っみたいなお知らせしか作ったことなく
来月から現場じゃなく本社に行かされEXCELやるような事務方の仕事なりそうなんです
けど、本当素人からEXCELやるのにオススメのサイトとか参考書ってあるでしょうか？
自宅にはofficeないのでLibreOfficeで少しでも今から練習しようと思ってまして…。
2019/11/13(水) 16:49:44.08
>>488
https://www.becoolusers.com/excel/lesson-basic01.html
1ヶ月使える体験版で練習すればいいよ
それに、仕事に必要な知識は会社で教えてくれるのが普通
あと、Officeのバージョンが違うと画面構成があちこち変わるんで、そればかりはどうしようもない
https://www.becoolusers.com/excel/lesson-basic01.html
1ヶ月使える体験版で練習すればいいよ
それに、仕事に必要な知識は会社で教えてくれるのが普通
あと、Officeのバージョンが違うと画面構成があちこち変わるんで、そればかりはどうしようもない
2019/11/13(水) 19:17:27.41
>>483
最終列番号 = 1
On Error Resume Next
最終列番号 = WorksheetFunction.Match(Null, Me.Rows(行番号), -1)
On Error Goto 0
MsgBox Me.Cells(行番号, 最終列番号).Value
最終列番号 = 1
On Error Resume Next
最終列番号 = WorksheetFunction.Match(Null, Me.Rows(行番号), -1)
On Error Goto 0
MsgBox Me.Cells(行番号, 最終列番号).Value
2019/11/13(水) 19:20:35.80
↑ごめん、範囲じゃダメか。
2019/11/13(水) 19:55:59.96
>>488
Libreは互換性はあるが多少勝手が違うからExcel知らないなら混乱の元だと思う
Libreは互換性はあるが多少勝手が違うからExcel知らないなら混乱の元だと思う
2019/11/13(水) 20:14:06.04
>自宅にはofficeないので
投資だと思って買っちゃうとか・・。
投資だと思って買っちゃうとか・・。
2019/11/13(水) 20:22:54.72
>>489>>492>>493
なるへそ、フリーのだと全くの初心者は厳しいそうなんで1ヶ月無料のでやった方が
良さそうですね…。
https://www.becoolusers.com/excel/index.html
今の所毎日↑のサイトとLIBREで仕事終わった後四則演算とかグラフ作ったり何となく
やってるんですけど1ヶ月フリーOffice入れるとしてどんな本とかサイトでやってけば
少しは役に立ちそうでしょうか？
なるへそ、フリーのだと全くの初心者は厳しいそうなんで1ヶ月無料のでやった方が
良さそうですね…。
https://www.becoolusers.com/excel/index.html
今の所毎日↑のサイトとLIBREで仕事終わった後四則演算とかグラフ作ったり何となく
やってるんですけど1ヶ月フリーOffice入れるとしてどんな本とかサイトでやってけば
少しは役に立ちそうでしょうか？
2019/11/13(水) 20:30:58.26
実務で覚えるのが一番速くて手っ取り早いが
496名無しさん＠そうだ選挙にいこう
2019/11/13(水) 22:18:37.52 ショートカットをマスターするのもいいかもな
車で例えるのなら道はさっぱりわからんけど運転技術は高いみたいな
車で例えるのなら道はさっぱりわからんけど運転技術は高いみたいな
2019/11/13(水) 22:37:26.65
そんなもん基本がわかってからでいい
2019/11/14(木) 10:34:22.07
2019/11/14(木) 12:21:07.68
>>498
とりあえず詳しくないことを伝えるのが先では…
とりあえず詳しくないことを伝えるのが先では…
2019/11/14(木) 21:15:03.08
SUMが使えて、罫線が引けて、色を染められて、印刷が出来れば大丈夫だと思うよ。
周り全員がプログラマーとか、極端な状況でもない限り。
周り全員がプログラマーとか、極端な状況でもない限り。
2019/11/14(木) 21:46:13.00
2019/11/14(木) 21:49:34.57
EXACTは地味に使うわ
2019/11/14(木) 22:17:17.72
2019/11/14(木) 23:12:09.22
>>503
sumproduct関数解ってなさそう
sumproduct関数解ってなさそう
2019/11/14(木) 23:16:48.45
sumproduct重たくなるから極力使わない
2019/11/14(木) 23:22:56.71
サムプロダクトって、式を1セルにまとめられるってだけでしょう?
2019/11/14(木) 23:23:26.62
間違えた。
サム・プロダクトね。
サム・プロダクトね。
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【神奈川県警】行方不明の岡﨑彩咲陽さん（20）元交際相手からのストーカー被害を警察に訴え…祖母の家に避難「事件性はない」★2 [ぐれ★]
- Z世代の8割が「AIと結婚するだろう」と回答🤖 [パンナ・コッタ★]
- 【大阪】西成・小学生７人負傷事件、殺人未遂容疑で逮捕の東京都東村山市の２８歳無職の男「全てが嫌になった」無差別殺人狙ったか ★3 [樽悶★]
- 【野球】巨人・田中将大 3回8安打3四球3失点で降板… 通算199勝目ならず 中13日登板も、初回にいきなり5連打され捕まる [冬月記者★]
- 【万博】インド館がついにお披露目 イギリス館では5000円“ティーセット”が物議…スコーンが1つ、紅茶は紙コップ [夜のけいちゃん★]
- いまの憲法「よい」51% 朝日世論調査 [少考さん★]
- 【超絶悲報】GM、業績予想を引き下げ、関税の影響は最大7300億円。関税は中国が払うのにいったいなぜ🤔 [519511584]
- ＿＿トランプ、ベセントが約200カ国と関税について交渉👈世界は195か国 [827565401]
- 【朗報】アップル、売上利益共に前四半期比5%増。トランプ大統領、関税でアメリカ経済を復活させてしまう😎 [519511584]
- JA全農、放出された備蓄米を備蓄してしまう [819669825]
- 4000円くらいで買えるスマホにBluetoothで繋げるツインのミニスピーカーいいね
- ワンチャン下水道管の中で3ヶ月間生き残れる可能性あるよな？ [535650357]