【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい・いいえ
【4 VBAでの回答の可否】 可・否
▼━関連スレ━━━━━━━━━━━━
前スレ
Excel総合相談所
https://find.5ch.net/search?q=excel+%E7%9B%B8%E8%AB%87%E6%89%80
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総合相談所 140
レス数が1000を超えています。これ以上書き込みはできません。
1名無しさん@そうだ選挙にいこう
2020/07/21(火) 08:00:43.482020/07/21(火) 08:21:42.45
関数を使って集計する方法を教えていただけないでしょうか。
index matchの組み合わせもしくは、sumifもしくはindex match sumifの複合で表示させたいです。
画像の出荷と書かれたセルに関数を入れて集計したいです。
集計は参照シートの黄色で書かれた「販売+その他出荷」の合計を表示したいです。
sumifでは縦の計算になってしまい、横の足し算が出来ない印象です。
上の数字はmatchを使った際の引用条件になると思い入れました。
説明わかりづらくてすいません。関数を教えていただけないでしょうか。
具体例のエクセルは簡単に書いてますが、実際に書くエクセルはデータが膨大なものです。
なぜかindexもうまく引用できていませんでした。
https://d.kuku.lu/ca513f39a8
index matchの組み合わせもしくは、sumifもしくはindex match sumifの複合で表示させたいです。
画像の出荷と書かれたセルに関数を入れて集計したいです。
集計は参照シートの黄色で書かれた「販売+その他出荷」の合計を表示したいです。
sumifでは縦の計算になってしまい、横の足し算が出来ない印象です。
上の数字はmatchを使った際の引用条件になると思い入れました。
説明わかりづらくてすいません。関数を教えていただけないでしょうか。
具体例のエクセルは簡単に書いてますが、実際に書くエクセルはデータが膨大なものです。
なぜかindexもうまく引用できていませんでした。
https://d.kuku.lu/ca513f39a8
2020/07/21(火) 09:11:18.62
>>2
前スレの232の方ですね。自分を含む数名から回答を受けて解決したのではありませんか?
前スレの232の方ですね。自分を含む数名から回答を受けて解決したのではありませんか?
2020/07/21(火) 12:58:01.52
VBAで質問です。
何十列もある表で不要な列を大量に削除したいと思っています。
Range("A1,N1:U1.....").entirecolumn.deleteといった感じで手作業、つまり目で列を確認してコードを書くしかないのでしょうか??
分かる方お願いします。
何十列もある表で不要な列を大量に削除したいと思っています。
Range("A1,N1:U1.....").entirecolumn.deleteといった感じで手作業、つまり目で列を確認してコードを書くしかないのでしょうか??
分かる方お願いします。
2020/07/21(火) 13:00:46.31
いやそんなことはない
でも何十くらいなら目チェックの方が早いし安いな
でも何十くらいなら目チェックの方が早いし安いな
2020/07/21(火) 14:13:59.28
それでいいので教えてください。
どうやって不要の列を決め打ちするので?
どうやって不要の列を決め打ちするので?
2020/07/21(火) 15:29:53.87
列削除だけのコード書くくらいなら手動で消していけばいいじゃん に対してのそれで良い なのか
いやそんなことはない に対してのそれで良いなのか
いやそんなことはない に対してのそれで良いなのか
2020/07/21(火) 17:25:11.10
2020/07/21(火) 18:44:44.50
それだと不要な列を目でみて1をつけないとならないので意味がナッシングです。
2020/07/21(火) 18:53:25.18
不要な列の条件が分からないのにどうしろと
114
2020/07/21(火) 18:57:20.94 >>10
> 不要な列の条件が分からないのにどうしろと
表に見出し(1行目)があるのでそれを見ながら削除しています。あ、この見出しの列は不要と判断します。不要な見出しをリスト化したら可能とかありますか?
> 不要な列の条件が分からないのにどうしろと
表に見出し(1行目)があるのでそれを見ながら削除しています。あ、この見出しの列は不要と判断します。不要な見出しをリスト化したら可能とかありますか?
2020/07/21(火) 19:33:37.64
不要な見出しリストが作れるならわりと簡単
2020/07/21(火) 19:36:09.53
目で見て比較しないとわからないような曖昧なリストしか作れない場合は無理
2020/07/21(火) 21:05:38.42
いいですよ!
1615
2020/07/21(火) 22:13:37.71 >>2>>14
様、大変長らくお待たせ致しました
以下がコードになりますのでご査収下さいませ
よろしくお願い致します
記
Sub Macro1()
不要な列を削除するための見出し = "aaa"
最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
If Cells(1, i).Value = 不要な列を削除するための見出し Then
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub
様、大変長らくお待たせ致しました
以下がコードになりますのでご査収下さいませ
よろしくお願い致します
記
Sub Macro1()
不要な列を削除するための見出し = "aaa"
最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
If Cells(1, i).Value = 不要な列を削除するための見出し Then
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub
2020/07/21(火) 22:59:32.28
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
1つの列にデータがずらっと並んでいて、そこから重複していないデータだけを別のシートに抽出する方法を教えてください
りんご
りんご
バナナ
みかん
みかん
が並んでいる場合、バナナだけを抽出したいです
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
1つの列にデータがずらっと並んでいて、そこから重複していないデータだけを別のシートに抽出する方法を教えてください
りんご
りんご
バナナ
みかん
みかん
が並んでいる場合、バナナだけを抽出したいです
2020/07/21(火) 23:08:54.67
>>18
作業列を作る
ifとcountifで重複ありを0、重複なしを1
もう1列作業列を作る
ifで1の場合rowを返す
もう1列作業列を作る
rowをrank付けする
別シートの列に
1
2
3
4
とか入力する
indexとmatchでrankを参照
作業列を作る
ifとcountifで重複ありを0、重複なしを1
もう1列作業列を作る
ifで1の場合rowを返す
もう1列作業列を作る
rowをrank付けする
別シートの列に
1
2
3
4
とか入力する
indexとmatchでrankを参照
2020/07/21(火) 23:10:14.31
2020/07/21(火) 23:18:32.05
if(countif(A:A、A1)=1、MAX($B$1,B1)+1、“”)
で上から1、2、3…って数字つける
それからIndex MATCH
で上から1、2、3…って数字つける
それからIndex MATCH
2020/07/21(火) 23:20:49.41
2020/07/21(火) 23:22:21.55
ルックアップでりんごとかのカズ数えて一個しかない奴を再度ルックアップすれば良い
2020/07/21(火) 23:22:59.51
もっとよくやるのは
countif($A$1:A1,a1)
で初登場を集める方法
countif($A$1:A1,a1)
で初登場を集める方法
2020/07/21(火) 23:23:33.89
すみませんが、VBSはちょっと、、、
VBAを使わない方法はないでしょうか。
VBAを使わない方法はないでしょうか。
2020/07/21(火) 23:25:28.34
>>25
ビデオもマクロも使ってない
ビデオもマクロも使ってない
2020/07/21(火) 23:27:12.57
2020/07/21(火) 23:56:29.41
2020/07/22(水) 00:40:46.43
作業列無しで関数で出す方法もあるけどメタクソ長い関数になるから作業列作ったほうが楽
31名無しさん@そうだ選挙にいこう
2020/07/22(水) 01:07:12.52 >>18
2007以降ならリボンのデータから重複の削除アイコンかある
2007以降ならリボンのデータから重複の削除アイコンかある
2020/07/22(水) 04:10:55.88
>>31
リンゴとか2つ以上あるやつはリンゴ1つにするのではなく、無視する方法を知りたいようだぞ
リンゴとか2つ以上あるやつはリンゴ1つにするのではなく、無視する方法を知りたいようだぞ
334
2020/07/22(水) 05:20:24.02 >>16
> >>2>>14
> 様、大変長らくお待たせ致しました
> 以下がコードになりますのでご査収下さいませ
> よろしくお願い致します
>
> 記
>
> Sub Macro1()
> 不要な列を削除するための見出し = "aaa"
> 最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
> For i = 最終列 To 1 Step -1
> If Cells(1, i).Value = 不要な列を削除するための見出し Then
> Columns(i).Delete Shift:=xlToLeft
> End If
> Next
> End Sub
すみません、1行目の不要な列を削除するための見出しが1個だけではなく何個もある場合はどうしたらいいでしょうか?
> >>2>>14
> 様、大変長らくお待たせ致しました
> 以下がコードになりますのでご査収下さいませ
> よろしくお願い致します
>
> 記
>
> Sub Macro1()
> 不要な列を削除するための見出し = "aaa"
> 最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
> For i = 最終列 To 1 Step -1
> If Cells(1, i).Value = 不要な列を削除するための見出し Then
> Columns(i).Delete Shift:=xlToLeft
> End If
> Next
> End Sub
すみません、1行目の不要な列を削除するための見出しが1個だけではなく何個もある場合はどうしたらいいでしょうか?
2020/07/22(水) 05:32:34.31
>>33
select case
select case
2020/07/22(水) 05:41:52.68
select Case cells(1,i).value
case"aaa","bbb"
columns(i).delete shift:=xlToleft
end select
case"aaa","bbb"
columns(i).delete shift:=xlToleft
end select
2020/07/22(水) 07:40:29.38
>>35
>select Case cells(1,i).value
>case"aaa","bbb"
>columns(i).delete shift:=xlToleft
>end select
見出しのリストも自動で作りたいのですが、可能で紹介?
>select Case cells(1,i).value
>case"aaa","bbb"
>columns(i).delete shift:=xlToleft
>end select
見出しのリストも自動で作りたいのですが、可能で紹介?
2020/07/22(水) 08:00:41.29
2020/07/22(水) 09:11:07.04
2020/07/22(水) 09:42:51.98
よくこんな釣りに構ってられるなお前ら
2020/07/22(水) 12:05:56.36
禿同
2020/07/22(水) 12:08:19.04
お前らも黙ってられないのか?
2020/07/22(水) 13:13:36.65
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A1〜F1のセルには1〜4いずれかの数字が入ります
G1のセルには自分の指定した数字(10〜20の範囲内)を入れます
G1の値になるようにA1〜F1の組み合わせを全て書き出す方法を教えて下さい
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A1〜F1のセルには1〜4いずれかの数字が入ります
G1のセルには自分の指定した数字(10〜20の範囲内)を入れます
G1の値になるようにA1〜F1の組み合わせを全て書き出す方法を教えて下さい
2020/07/22(水) 13:16:06.94
1ファイル12 Sheetで一年間のデータを管理しています。
1月〜12月がそれぞれ1Sheet〜でSeet1月〜Sheet12月、Sheetは1日〜月末まで日々のデータです。
これとは別に同ファイルに、1Sheetに1月〜12月までの表を12ヶ月分並べたもの(Sheet年間)があるのですが
月ごとにデータを入力したら、こちらのSheetの、該当日にも入力されているようにするにはどうやればいいのでしょうか?
1月〜12月がそれぞれ1Sheet〜でSeet1月〜Sheet12月、Sheetは1日〜月末まで日々のデータです。
これとは別に同ファイルに、1Sheetに1月〜12月までの表を12ヶ月分並べたもの(Sheet年間)があるのですが
月ごとにデータを入力したら、こちらのSheetの、該当日にも入力されているようにするにはどうやればいいのでしょうか?
2020/07/22(水) 13:17:42.68
書き忘れました
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel 2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel 2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
2020/07/22(水) 13:32:31.91
>>43
何をどう組み合わせてG1の値にしたいのか例を書いてくれ
何をどう組み合わせてG1の値にしたいのか例を書いてくれ
2020/07/22(水) 14:09:13.61
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
以前下記のExcelからメール作成するフォーマットをここで教えてもらい便利に使ってました
マクロ実行でB4がTO、B5がCC、B6が件名、B7が本文に入力されてメール作成画面が開きます
ところが会社の中国人が使いたいと言うので渡したところ
中国語のWindows10だと件名と本文が文字化けします
中国語等の外国語のWindows PCでも文字化けしないようにできますでしょうか
Sub createMail()
CreateObject("Wscript.Shell").Run _
"mailto:" & URLEncode(Range("B4").Value) & _
"?cc=" & URLEncode(Range("B5").Value) & _
"&subject=" & URLEncode(Range("B6").Value) & _
"&body=%FF%FE" & URLEncode(Range("B7").Value)
End Sub
Function URLEncode(ByVal strOrg As String) As String
With CreateObject("ScriptControl")
.Language = "JScript"
URLEncode = .CodeObject.encodeURI(strOrg)
End With
End Function
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
以前下記のExcelからメール作成するフォーマットをここで教えてもらい便利に使ってました
マクロ実行でB4がTO、B5がCC、B6が件名、B7が本文に入力されてメール作成画面が開きます
ところが会社の中国人が使いたいと言うので渡したところ
中国語のWindows10だと件名と本文が文字化けします
中国語等の外国語のWindows PCでも文字化けしないようにできますでしょうか
Sub createMail()
CreateObject("Wscript.Shell").Run _
"mailto:" & URLEncode(Range("B4").Value) & _
"?cc=" & URLEncode(Range("B5").Value) & _
"&subject=" & URLEncode(Range("B6").Value) & _
"&body=%FF%FE" & URLEncode(Range("B7").Value)
End Sub
Function URLEncode(ByVal strOrg As String) As String
With CreateObject("ScriptControl")
.Language = "JScript"
URLEncode = .CodeObject.encodeURI(strOrg)
End With
End Function
2020/07/22(水) 14:46:59.49
>>46
ありがとうございます
最低でもA1〜F1には1以上の数字を必ず入れます
G1は(A1+B1+C1+D1+E1+F1)の合計になります
例えばG1が11の場合、(A1+B1+C1+D1+E1+F1)のパターンを全て知りたいです
ありがとうございます
最低でもA1〜F1には1以上の数字を必ず入れます
G1は(A1+B1+C1+D1+E1+F1)の合計になります
例えばG1が11の場合、(A1+B1+C1+D1+E1+F1)のパターンを全て知りたいです
2020/07/22(水) 15:26:37.89
すみません、解決しました
以前教えてもらったMODとROW関数とフィルタで出来ました
以前教えてもらったMODとROW関数とフィルタで出来ました
2020/07/22(水) 17:11:54.93
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】はい
【4 VBAでの回答の可否】 可
色んなデータがあるサイトでピンポイントで一つのデータをスクレイピングしたいんですが、
そのデータがソースで毎回30行目で固定されてるんで、
行指定でデータ吸い取れたら良いんですが、やり方がわかりません。
お願いします。
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】はい
【4 VBAでの回答の可否】 可
色んなデータがあるサイトでピンポイントで一つのデータをスクレイピングしたいんですが、
そのデータがソースで毎回30行目で固定されてるんで、
行指定でデータ吸い取れたら良いんですが、やり方がわかりません。
お願いします。
2020/07/22(水) 17:24:27.10
>>50
HTMLソースを文字配列に読み込んで30番目を使う
HTMLソースを文字配列に読み込んで30番目を使う
2020/07/22(水) 20:49:56.57
>>43
ゴールシークという機能を使う
ゴールシークという機能を使う
2020/07/22(水) 21:39:14.22
>>35
caseの後のaaa、bbb………を別のシートにリスト化のような感じになっていたらcaseのあとに全部書く必要はなくないでしょうか?やり方を教えてほしいで。、
caseの後のaaa、bbb………を別のシートにリスト化のような感じになっていたらcaseのあとに全部書く必要はなくないでしょうか?やり方を教えてほしいで。、
2020/07/22(水) 22:00:00.49
2020/07/22(水) 22:22:31.15
>>47
中国語の環境がないから何とも言えないけど・・・
UTF-8になっているから逆に文字化けするのがおかしい気がする
メールソフトがutf-8に対応していないと思う。多分
メールソフトを変えてみると解決するかもしれない
メールソフトを帰るのが無理だと、中国語(euc-cn)などにエンコードすればいいかもしれないけど、すげー大変そう
>>53
sheet1のa1:a5がリスト。
findの返り値はsetしないと使えない事に気づくのに3分かかったわ
Sub Macro1()
最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
不要な列を削除するための見出し = Cells(1, i).Value
Set result = Sheets("sheet1").Range("a1:a5").Find( _
What:=不要な列を削除するための見出し, LookAt:=xlWhole)
If Not (result Is Nothing) Then
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub
中国語の環境がないから何とも言えないけど・・・
UTF-8になっているから逆に文字化けするのがおかしい気がする
メールソフトがutf-8に対応していないと思う。多分
メールソフトを変えてみると解決するかもしれない
メールソフトを帰るのが無理だと、中国語(euc-cn)などにエンコードすればいいかもしれないけど、すげー大変そう
>>53
sheet1のa1:a5がリスト。
findの返り値はsetしないと使えない事に気づくのに3分かかったわ
Sub Macro1()
最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
不要な列を削除するための見出し = Cells(1, i).Value
Set result = Sheets("sheet1").Range("a1:a5").Find( _
What:=不要な列を削除するための見出し, LookAt:=xlWhole)
If Not (result Is Nothing) Then
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub
2020/07/22(水) 23:09:25.93
>>55
どこでUTF-8になってると分かるのでしょうか?
どこでUTF-8になってると分かるのでしょうか?
2020/07/22(水) 23:19:57.85
2020/07/23(木) 08:11:32.20
>>47
ユニコードには表現方法がいくつもあって、ワークシートの文字列をVBAで扱う時はUCS-2形式のユニコードが使われるから、これをUTF-8形式に変換しないと基本的には文字化けする
具体的な方法は知らんけど、ADODB.StreamオブジェクトのCharsetプロパティでできるかもしれない
ユニコードには表現方法がいくつもあって、ワークシートの文字列をVBAで扱う時はUCS-2形式のユニコードが使われるから、これをUTF-8形式に変換しないと基本的には文字化けする
具体的な方法は知らんけど、ADODB.StreamオブジェクトのCharsetプロパティでできるかもしれない
2020/07/23(木) 08:39:15.61
>>52
ありがとうございます
ありがとうございます
2020/07/23(木) 09:34:12.59
ワークシート上の文字列をUTF-8に変換する関数
これでも文字化けするなら、さらに16進数に変換しないとだめかも
Function UTF8(text As String) As String
With New ADODB.Stream
.Open
.Type = adTypeText
.Charset = "UTF-8"
.WriteText text
.Position = 0
.Type = adTypeBinary
.Position = 3
UTF8 = .Read
.Close
End With
End Function
これでも文字化けするなら、さらに16進数に変換しないとだめかも
Function UTF8(text As String) As String
With New ADODB.Stream
.Open
.Type = adTypeText
.Charset = "UTF-8"
.WriteText text
.Position = 0
.Type = adTypeBinary
.Position = 3
UTF8 = .Read
.Close
End With
End Function
2020/07/23(木) 09:36:40.34
補足
ADODB.Streamを使う時は参照設定で「Microsoft ActiveX Data Objects x.x Libraryを追加
バージョンは2.5以上ならどれでもいいはず
ADODB.Streamを使う時は参照設定で「Microsoft ActiveX Data Objects x.x Libraryを追加
バージョンは2.5以上ならどれでもいいはず
2020/07/23(木) 17:22:53.93
> "&body=%FF%FE"
BOMだけパーセントエンコードがUTF-16LEになってる
BOMだけパーセントエンコードがUTF-16LEになってる
2020/07/23(木) 19:10:30.57
>>47です
>>57
すみません意味分かりません
>>58
>>61-62
その方法だと使うPC全てExcelのVBAでADODB.Streamオブジェクトを
使えるようにしなければなりませんよね?
>>63
そこを下記のようにsubjectの行と同じように変更し
自分の日本語Windows PCで中国語でニーハオとB6とB7に入力して
実行したら件名は文字化けしないけど本文だけ文字化けしました
"&subject=" & URLEncode(Range("B6").Value) & _
"&body=" & URLEncode(Range("B7").Value)
元々の
"&body=%FF%FE" & URLEncode(Range("B7").Value)
だと本文も文字化けしません
>>57
すみません意味分かりません
>>58
>>61-62
その方法だと使うPC全てExcelのVBAでADODB.Streamオブジェクトを
使えるようにしなければなりませんよね?
>>63
そこを下記のようにsubjectの行と同じように変更し
自分の日本語Windows PCで中国語でニーハオとB6とB7に入力して
実行したら件名は文字化けしないけど本文だけ文字化けしました
"&subject=" & URLEncode(Range("B6").Value) & _
"&body=" & URLEncode(Range("B7").Value)
元々の
"&body=%FF%FE" & URLEncode(Range("B7").Value)
だと本文も文字化けしません
2020/07/23(木) 20:28:24.08
ならそれでもう使えるだろ?
目的を明確にしてから質問してくれよな
目的を明確にしてから質問してくれよな
2020/07/23(木) 23:50:57.65
VBAでSUBTOTAL関数を使って2つの列の合計を別のセルに出したいです。非表示部分も合計されて出てしまいます。可視セルのみの合計を出したいです。よろしくお願いします。
2020/07/24(金) 01:20:03.05
2020/07/24(金) 09:31:26.77
>>66
アグリゲートにしたら?
アグリゲートにしたら?
2020/07/24(金) 10:24:16.75
どうやって?
2020/07/24(金) 10:40:35.91
アグリゲートってなんだ?
2020/07/24(金) 11:13:16.78
そこは自分で調べて理解しないと。
7266
2020/07/24(金) 11:55:05.05 <<67
オートフィルターメソッドのことですか?一応オートフィルターメソッドは使ってます。ありがとうございました。
<<68
初めて見る関数です。調べてみたいと思います。ありがとうございました。
なにぶん初心者なんで分からない事だらけで困ってます。
オートフィルターメソッドのことですか?一応オートフィルターメソッドは使ってます。ありがとうございました。
<<68
初めて見る関数です。調べてみたいと思います。ありがとうございました。
なにぶん初心者なんで分からない事だらけで困ってます。
2020/07/24(金) 12:51:57.90
>>70
サブトータルよりアグリゲートよく使ってるわ
サブトータルよりアグリゲートよく使ってるわ
2020/07/24(金) 16:13:54.86
100日後に死ぬアグリゲート
2020/07/24(金) 21:38:40.95
sumproductはオワコンなのか?
2020/07/24(金) 21:42:00.95
>>76
オワコンって訳じゃないけど
・範囲が見えない、うまく使わないと重くなりやすい。
・範囲が見えない、計算ミスの可能性が出やすい
・計算式が複雑になると見づらくなる
そもそも作業列の方が使い勝手がいいかなーとは思う
オワコンって訳じゃないけど
・範囲が見えない、うまく使わないと重くなりやすい。
・範囲が見えない、計算ミスの可能性が出やすい
・計算式が複雑になると見づらくなる
そもそも作業列の方が使い勝手がいいかなーとは思う
2020/07/24(金) 21:57:51.39
>>77
めちゃくちゃ重いじゃん
めちゃくちゃ重いじゃん
2020/07/24(金) 22:04:45.25
>>78
そこはケースバイケース
例えば頻度にしても毎日使うならみやすさ犠牲にしてsumproduct()にしても良い
重くても月1なら我慢しても良い
個人的には見出しがある方が使い勝手が良い
重くてもミスが減るならPCを買い替えてもらうという選択肢もあるし、
多少ミスってもいいような資料ならPCは買い換えられないなど
更に言うならクラウドにするという選択肢もアリか
どちらが良いというものではないね
そこはケースバイケース
例えば頻度にしても毎日使うならみやすさ犠牲にしてsumproduct()にしても良い
重くても月1なら我慢しても良い
個人的には見出しがある方が使い勝手が良い
重くてもミスが減るならPCを買い替えてもらうという選択肢もあるし、
多少ミスってもいいような資料ならPCは買い換えられないなど
更に言うならクラウドにするという選択肢もアリか
どちらが良いというものではないね
2020/07/24(金) 22:11:37.46
=SUMPRODUCT((○○=☓☓)*(□□=△△),●●)
みたいなのはSUMIF INDEX MATCHの方がいいよね
みたいなのはSUMIF INDEX MATCHの方がいいよね
2020/07/24(金) 22:15:21.78
2020/07/24(金) 22:25:38.30
>>80
どうやんのそれ?
どうやんのそれ?
2020/07/24(金) 23:13:27.07
2020/07/24(金) 23:44:05.11
sumifs(offset(MATCH、
のほうが追いかけられて好き
のほうが追いかけられて好き
2020/07/24(金) 23:58:39.02
>>84
高さがいつもわけ分からなくなる
高さがいつもわけ分からなくなる
2020/07/25(土) 00:06:59.14
>>85
表の最後に /END っていうセルをいれておいてMATCHでサイズを計る
表の最後に /END っていうセルをいれておいてMATCHでサイズを計る
2020/07/25(土) 00:55:45.28
2020/07/25(土) 01:03:21.30
高さもSUMIFの範囲で指定してあるから省略でもよくね?
2020/07/25(土) 01:03:24.14
2020/07/25(土) 01:10:19.20
SUMPRODUCTじゃダメなん?
=SUMPRODUCT(($B$3:$B$12=$B15)*INDEX($C$3:$G$12,,MATCH(C$14,$C$2:$G$2,0)))
=SUMPRODUCT(($B$3:$B$12=$B15)*INDEX($C$3:$G$12,,MATCH(C$14,$C$2:$G$2,0)))
2020/07/25(土) 01:11:36.32
>>90
重いんだもん
重いんだもん
2020/07/25(土) 01:20:10.16
B:B、2:2
みたいな指定で、表のサイズが変わっても使えるようにしたい
みたいな指定で、表のサイズが変わっても使えるようにしたい
2020/07/25(土) 01:46:18.01
>>92
そうそう
そうしたくて色々やってるけど酔っ払ってて頭こんがらがってきた
出来てんのか出来てないのかわからん
SUMIFの合計範囲のOFFSETのMATCHのOFFSETのMATCHとか頭おかしくなるわ
http://imgur.com/2RO6kwE.png
そうそう
そうしたくて色々やってるけど酔っ払ってて頭こんがらがってきた
出来てんのか出来てないのかわからん
SUMIFの合計範囲のOFFSETのMATCHのOFFSETのMATCHとか頭おかしくなるわ
http://imgur.com/2RO6kwE.png
94名無しさん@そうだ選挙にいこう
2020/07/25(土) 02:06:15.94 何で表のサイズに縛られないテーブルの構造化参照を使わないの?
2020/07/25(土) 02:17:01.79
>>83の2枚目をテーブル化でいいじゃん
2020/07/25(土) 09:41:05.12
2020/07/25(土) 10:08:47.85
>>96
書いてあるが
書いてあるが
2020/07/25(土) 12:15:40.42
合ってるかどうかはしらんけど>>93が大体それだろう
ただこんなややこしい式は真似しないほうがいいと思う
ただこんなややこしい式は真似しないほうがいいと思う
2020/07/25(土) 13:11:31.78
ユーザーフォームを呼び出すシート(Sheet1)のコンボボックスに
同ブック上別シート(Sheet2)のA1:A30項目をプルダウン表示させたいのですが
その際、重複項目と空欄を省いた状態で表示させるコードを教えて頂ける方いませんでしょうか
初心者には見当もつかず よろしくお願い致します
同ブック上別シート(Sheet2)のA1:A30項目をプルダウン表示させたいのですが
その際、重複項目と空欄を省いた状態で表示させるコードを教えて頂ける方いませんでしょうか
初心者には見当もつかず よろしくお願い致します
2020/07/25(土) 13:47:09.11
いいけど、何をやりたいのか、その説明ではわからないので、書き直してもらえますか?
2020/07/25(土) 14:12:07.72
2020/07/25(土) 14:55:36.89
2020/07/25(土) 15:03:49.80
2020/07/25(土) 15:05:17.71
99 詳細ですが
Sheet1に必要項目をユーザーフォームで入力していきたいんですが
その際Sheet2のマスターデータのA列から選択してコンボボックスのリストに表示させたいのです。
Sheet2には重複項目や空欄項目がありリストに列を表示させると同じ項目や空欄が表示されてしまうので
なくしたいのです。 よろしくお願いいたします
Sheet1に必要項目をユーザーフォームで入力していきたいんですが
その際Sheet2のマスターデータのA列から選択してコンボボックスのリストに表示させたいのです。
Sheet2には重複項目や空欄項目がありリストに列を表示させると同じ項目や空欄が表示されてしまうので
なくしたいのです。 よろしくお願いいたします
2020/07/25(土) 15:40:01.51
表示形式のBとNとnって何ですか
=TEXT(NOW(),REPT(CHAR (SEQUENCE(127-32,,32)),SEQUENCE(,6)))
BBやbは仏歴のbみたいです
=TEXT(NOW(),REPT(CHAR (SEQUENCE(127-32,,32)),SEQUENCE(,6)))
BBやbは仏歴のbみたいです
2020/07/25(土) 19:50:47.92
107102
2020/07/25(土) 20:03:06.492020/07/25(土) 20:52:40.37
99 Sheet2の内容は常に変わるので、コピーとかしたくありません
よろしくお願い申し上げます。
よろしくお願い申し上げます。
2020/07/25(土) 20:58:53.92
>>108
=UNIQUE(FILTER(Sheet2!A:A,Sheet2!A:A<>""))
=UNIQUE(FILTER(Sheet2!A:A,Sheet2!A:A<>""))
2020/07/25(土) 21:01:20.22
2020/07/25(土) 23:04:01.96
取得と変換使いこなしたいけどなんかいい解説サイトとかないかなオフィス田中は観てるけど違う角度の解説とかも参考にして学びたい
2020/07/25(土) 23:34:43.97
>>110
ありがとうございます。頂いた回答からこれらのページに辿りつきました
n、nn
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications
B1、B2
https://docs.microsoft.com/ja-jp/dotnet/api/documentformat.openxml.spreadsheet.numberingformats?view=openxml-2.8.1
https://answers.microsoft.com/en-us/msoffice/forum/all/hijri-date-conversion-to-gregorian-date-in-excel/81328470-a89d-4b91-a1d7-312c61c417e1
ありがとうございます。頂いた回答からこれらのページに辿りつきました
n、nn
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications
B1、B2
https://docs.microsoft.com/ja-jp/dotnet/api/documentformat.openxml.spreadsheet.numberingformats?view=openxml-2.8.1
https://answers.microsoft.com/en-us/msoffice/forum/all/hijri-date-conversion-to-gregorian-date-in-excel/81328470-a89d-4b91-a1d7-312c61c417e1
2020/07/25(土) 23:37:16.81
2020/07/26(日) 08:29:49.45
知識はあるけど問題解決に結びつけられない人ってどこにでもいるよね
2020/07/26(日) 15:32:46.70
質問があります。
A1に数字を入力すると、
複数のセルを使って関数を駆使し、
結果として一つの数字がB1に出力されるような場合、
A1を0〜100の範囲で1ずつ増やしながら、
A1をx軸、B1をy軸としたグラフを作ることはできませんでしょうか。
A1とB1を表にするのは大変なので、表にせずにグラフ化したいのです。
A1に数字を入力すると、
複数のセルを使って関数を駆使し、
結果として一つの数字がB1に出力されるような場合、
A1を0〜100の範囲で1ずつ増やしながら、
A1をx軸、B1をy軸としたグラフを作ることはできませんでしょうか。
A1とB1を表にするのは大変なので、表にせずにグラフ化したいのです。
2020/07/26(日) 16:09:51.53
>>115
グラフの種類を「散布図」にすれば希望の結果が得られると思う
グラフの種類を「散布図」にすれば希望の結果が得られると思う
2020/07/26(日) 16:33:18.30
>>116
ありがとうございます。
しかし、質問の意図が伝わっていないかもしれません。
やりたいことは、例えば、
A1→100
A2→=A1*100
A3→=A1/100
A4→=A2+30
B1→=A2+A3+A4
とあった場合、
A1を0〜100まで一つずつ増やした場合の
A1をx軸、B1をy軸としたグラフを書きたいのです。
A1、A2、A3、A4、B1を0〜100個作って、
X、Y
0、30
1、230.01
2、430.02
3、630.03
...
と表を作ればグラフを作ることはできますが、面倒なので、
表を作らずに、A1に0〜100を代入した場合のグラフを作りたいのです。
ありがとうございます。
しかし、質問の意図が伝わっていないかもしれません。
やりたいことは、例えば、
A1→100
A2→=A1*100
A3→=A1/100
A4→=A2+30
B1→=A2+A3+A4
とあった場合、
A1を0〜100まで一つずつ増やした場合の
A1をx軸、B1をy軸としたグラフを書きたいのです。
A1、A2、A3、A4、B1を0〜100個作って、
X、Y
0、30
1、230.01
2、430.02
3、630.03
...
と表を作ればグラフを作ることはできますが、面倒なので、
表を作らずに、A1に0〜100を代入した場合のグラフを作りたいのです。
2020/07/26(日) 17:57:44.26
2020/07/26(日) 18:19:50.72
>>115
1件1行に計算式をまとめられませんか?
A列は0から100までの数字を設定する列、
B列は1個目の計算式(A2の計算式)を、
C列は2個目の計算式(A3の計算式)を、
D列は3個目の計算式(A4の計算式)を、
E列は4個目の計算式(B1の計算式)を設定したらあとは簡単。
1件1行に計算式をまとめられませんか?
A列は0から100までの数字を設定する列、
B列は1個目の計算式(A2の計算式)を、
C列は2個目の計算式(A3の計算式)を、
D列は3個目の計算式(A4の計算式)を、
E列は4個目の計算式(B1の計算式)を設定したらあとは簡単。
2020/07/26(日) 19:58:23.94
それを書くのがとても面倒な気がします、、、
121名無しさん@そうだ選挙にいこう
2020/07/26(日) 20:48:46.742020/07/26(日) 20:50:50.67
ひとつ式を書けばコピペとかオートフィルでドラッグできるからそんなに面倒ではないと思う
2020/07/26(日) 21:22:55.75
2020/07/26(日) 21:31:45.85
2020/07/26(日) 23:09:16.43
!!!
2020/07/26(日) 23:10:07.64
Control + ;
を入力したところ
通常であれば、 2020/07/26 と入力されるはずが、
7/26/2020 と入力される様になってしまいました。
どうすれば直りますか?
を入力したところ
通常であれば、 2020/07/26 と入力されるはずが、
7/26/2020 と入力される様になってしまいました。
どうすれば直りますか?
2020/07/26(日) 23:27:04.87
書式の変更
2020/07/26(日) 23:31:39.30
129名無し募集中。。。
2020/07/26(日) 23:34:35.47 >>128
言語設定が日本になってる?
言語設定が日本になってる?
130名無しさん@そうだ選挙にいこう
2020/07/26(日) 23:35:46.10 新しく入社した会社の社内文章がほぼエクセル
エクセルで表入りの文書作る時って
学生時代から方眼紙コマ割り風に調整してから
枠指定して作成していたのだけど
今日、会社の先輩に注意されてしまった…
枠ごとに幅調整して作った方が良いのかね?
方眼紙に当て嵌めた方が、あとから行列追加も簡単だし
幅調整考えなくていいからと思ってたんだけど
エクセルで表入りの文書作る時って
学生時代から方眼紙コマ割り風に調整してから
枠指定して作成していたのだけど
今日、会社の先輩に注意されてしまった…
枠ごとに幅調整して作った方が良いのかね?
方眼紙に当て嵌めた方が、あとから行列追加も簡単だし
幅調整考えなくていいからと思ってたんだけど
2020/07/26(日) 23:38:58.29
>>129
Excelのバグだった様です。再起動したらなおりました。
Excelのバグだった様です。再起動したらなおりました。
2020/07/26(日) 23:57:32.82
エクセルで表入りの「文書」?
どうでもいいんじゃね?
「データ」なら困るけど。
どうでもいいんじゃね?
「データ」なら困るけど。
2020/07/26(日) 23:59:21.71
>>130
社会人だが、俺は方眼紙派。
計算しない文書なら方眼紙のほうが便利だよね。
「Excel方眼紙」は悪か、否定派と肯定派が激論
https://xtech.nikkei.com/it/atcl/column/14/346926/100101144/
社会人だが、俺は方眼紙派。
計算しない文書なら方眼紙のほうが便利だよね。
「Excel方眼紙」は悪か、否定派と肯定派が激論
https://xtech.nikkei.com/it/atcl/column/14/346926/100101144/
134名無しさん@そうだ選挙にいこう
2020/07/27(月) 00:01:47.20 >>132
あんまりうまい言い方が判らなかったが
別に計算とか一切ない、エクセルじゃなくてもいいような
社内文章もエクセル形式管理なのよ
別ソフトで吸い上げや読み取りする訳でも無いから良いジャン
とか思ってたから注意されたのが意外だったのよね
あんまりうまい言い方が判らなかったが
別に計算とか一切ない、エクセルじゃなくてもいいような
社内文章もエクセル形式管理なのよ
別ソフトで吸い上げや読み取りする訳でも無いから良いジャン
とか思ってたから注意されたのが意外だったのよね
2020/07/27(月) 00:11:16.19
否定派と肯定派が激論って、肯定派いたんかい!
136名無しさん@そうだ選挙にいこう
2020/07/27(月) 00:18:29.15 Excelのシートごとにレイヤー機能があったら社内文章がもっと楽に作れるのにな
137名無しさん@そうだ選挙にいこう
2020/07/27(月) 00:39:17.82 ナビタイムで検索した店舗をエクセルで一覧にできますか?
↓
https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&type=spot&from=freeword.spotlist
↓
https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&type=spot&from=freeword.spotlist
2020/07/27(月) 01:03:50.83
なぜ日本にはExcel職人はたくさんいるのにWord職人はいないのか
2020/07/27(月) 01:16:00.55
Wordて始末書、顛末書、改善報告書の提出求められた時しか使わねえからな
140名無しさん@そうだ選挙にいこう
2020/07/27(月) 01:22:44.532020/07/27(月) 07:57:41.03
2020/07/27(月) 08:38:08.89
いや、余計なお世話ですw
印刷するのに便利なのでこうしてるだけですから。他のエクセルからコピペできない?そんな問題あったらそもそも運用してませんから。
印刷するのに便利なのでこうしてるだけですから。他のエクセルからコピペできない?そんな問題あったらそもそも運用してませんから。
2020/07/27(月) 09:59:45.89
2020/07/27(月) 10:17:43.97
いえ1発でできますよこの程度なら
2020/07/27(月) 10:33:37.37
>>138
基本的に文書はワードを使う派だけど、スタイル設定してる段落の書式変更したらスタイルが解除されるのは何とかしてほしい
組版はワードに任せろって言うのは理解できるし俺個人なら許容するけどこの段落は次のページに持って行けと言う上司の存在がある限り面倒で仕方ない
基本的に文書はワードを使う派だけど、スタイル設定してる段落の書式変更したらスタイルが解除されるのは何とかしてほしい
組版はワードに任せろって言うのは理解できるし俺個人なら許容するけどこの段落は次のページに持って行けと言う上司の存在がある限り面倒で仕方ない
2020/07/27(月) 11:17:54.07
2020/07/27(月) 11:20:16.26
俺は一太郎で作ってWord形式で保存してる
2020/07/27(月) 11:51:49.94
2020/07/27(月) 12:04:51.83
2020/07/27(月) 12:09:33.65
>>148
ほかに方法がなければコピペ88回も考えますが、一発でできるそうなので楽な方法を知りたいのです
ほかに方法がなければコピペ88回も考えますが、一発でできるそうなので楽な方法を知りたいのです
2020/07/27(月) 12:18:04.76
コピペ5回で済むだろ
2020/07/27(月) 12:42:54.92
>>143
スクレイピングっていうやつですか??
スクレイピングっていうやつですか??
2020/07/27(月) 12:44:17.42
2020/07/27(月) 13:01:19.67
>>153
エラー
エラー
2020/07/27(月) 15:27:47.17
まだですか?
本当に困っているので早く教えてもらいたいです!
本当に困っているので早く教えてもらいたいです!
2020/07/27(月) 17:35:50.47
>>151
その方法を教えて下さいませんか?
その方法を教えて下さいませんか?
2020/07/27(月) 20:20:00.82
2020/07/27(月) 22:28:07.78
>>155
あんた誰?
あんた誰?
2020/07/27(月) 22:37:23.27
>>130
正直完全な文書なら方眼紙の方が便利だけどね
方眼紙にしないとマスが増えると全部微調整しなおしって事になる
変更が無いものに方眼紙はカッコワルイけど、個人的にはどっちでもいいんじゃね?と思う
>>135
どっちでもいい派
早く作れる方で作れば良い
ただデータが多い場合は方眼紙は止めて欲しい
>>137>>157
サイトをa14にテキスト貼り付け。あとはrowとindirectの組み合わせでぴこぴこやれば行ける
https://dotup.org/uploda/dotup.org2211931.xlsx
正直完全な文書なら方眼紙の方が便利だけどね
方眼紙にしないとマスが増えると全部微調整しなおしって事になる
変更が無いものに方眼紙はカッコワルイけど、個人的にはどっちでもいいんじゃね?と思う
>>135
どっちでもいい派
早く作れる方で作れば良い
ただデータが多い場合は方眼紙は止めて欲しい
>>137>>157
サイトをa14にテキスト貼り付け。あとはrowとindirectの組み合わせでぴこぴこやれば行ける
https://dotup.org/uploda/dotup.org2211931.xlsx
2020/07/27(月) 22:38:34.80
88回コピペするのですか?
2020/07/27(月) 22:54:42.92
>>160
実はスクレイピングはサイトによって大幅にコードが変わる
実際取得したいのはナビタイムじゃなくて他のサイトだろう
具体的にはソースの位置はもちろん、連続アクセスにひっかかったり広告位置が変わったりロード待ったりで本当にサイト次第
あと最難関は恐らくajaxで、これが絡むとソースから取得出来ないので俺はやらん
正直、手動の方がコード書くより楽
どうしてもスクレイピングしたいなら、以下のページがまとまってるから一度勉強して地力を付けた方が良い
https://tonari-it.com/ie-setting-navigate/
実はスクレイピングはサイトによって大幅にコードが変わる
実際取得したいのはナビタイムじゃなくて他のサイトだろう
具体的にはソースの位置はもちろん、連続アクセスにひっかかったり広告位置が変わったりロード待ったりで本当にサイト次第
あと最難関は恐らくajaxで、これが絡むとソースから取得出来ないので俺はやらん
正直、手動の方がコード書くより楽
どうしてもスクレイピングしたいなら、以下のページがまとまってるから一度勉強して地力を付けた方が良い
https://tonari-it.com/ie-setting-navigate/
2020/07/27(月) 22:56:42.58
派遣の仕事でよくVBA開発の求人あるけどそれに就くには相当なスキルいるものですか?趣味程度で簡単なシステム作れる程度じゃ無理?
2020/07/27(月) 23:18:36.86
>>162
体験で一回だけ行ったわ
質問に応えると、とりあえずset辺り使えるならまぁまぁ行けると思う。
以下、感じたこと
・零細企業に居候みたいな形で常駐
・クソみたいなクッソ古いコードをシコシコ保守
・大規模開発には全く向いてない言語ということを改めて気付かされる。予想以上にキツイ
・とにかく貧弱すぎるIDEが苦行
・その会社のvbaコード以外の知識は全くつかない。潰しは効かない
・どう考えてもシステムごと変えたほうがいいと思ってても死んでも言ってはいけない
・生産性はマイナス。存在価値はない
・在宅は一切ない
・上記の通りウンコすぎるので人がいない。供給がなさすぎるので給料はそこそこ良い
俺には無理だった
体験で一回だけ行ったわ
質問に応えると、とりあえずset辺り使えるならまぁまぁ行けると思う。
以下、感じたこと
・零細企業に居候みたいな形で常駐
・クソみたいなクッソ古いコードをシコシコ保守
・大規模開発には全く向いてない言語ということを改めて気付かされる。予想以上にキツイ
・とにかく貧弱すぎるIDEが苦行
・その会社のvbaコード以外の知識は全くつかない。潰しは効かない
・どう考えてもシステムごと変えたほうがいいと思ってても死んでも言ってはいけない
・生産性はマイナス。存在価値はない
・在宅は一切ない
・上記の通りウンコすぎるので人がいない。供給がなさすぎるので給料はそこそこ良い
俺には無理だった
2020/07/27(月) 23:24:40.35
2020/07/27(月) 23:25:40.37
2020/07/28(火) 00:31:56.23
>・その会社のvbaコード以外の知識は全くつかない。
ホントそうなるよな。
Win32APIが使えるから、その気になれば大抵のことは出来ちゃうので、
他の言語じゃないと出来ませんって言えないし。
ホントそうなるよな。
Win32APIが使えるから、その気になれば大抵のことは出来ちゃうので、
他の言語じゃないと出来ませんって言えないし。
2020/07/28(火) 08:11:34.50
そもそも派遣じゃん
ダメだろこの時点で
ダメだろこの時点で
2020/07/28(火) 08:31:12.19
正社員も派遣も同じ。
今残っているのは客先常駐で保守案件のみ
今残っているのは客先常駐で保守案件のみ
2020/07/28(火) 09:11:22.00
2020/07/28(火) 09:45:24.27
>>161
それでいいのでナビタイムでやる方法を教えてください。
それでいいのでナビタイムでやる方法を教えてください。
2020/07/28(火) 10:00:09.31
>>170
一発でできるんだけど
君がこっちに完全に丸投げレベルのスキルみたいだから
コピペ5回コースで妥協しておきな。
汎用性があることなら対応するんだけど
特定URLだけでしか動かないやつを
ゼロからこちらに投げられても
舐めんなとしか言いようがないというか。
一発でできるんだけど
君がこっちに完全に丸投げレベルのスキルみたいだから
コピペ5回コースで妥協しておきな。
汎用性があることなら対応するんだけど
特定URLだけでしか動かないやつを
ゼロからこちらに投げられても
舐めんなとしか言いようがないというか。
2020/07/28(火) 13:56:57.87
本当は知らないのに教えないフリをするクズw
2020/07/28(火) 14:56:20.01
2020/07/28(火) 15:40:09.74
175牧野 ◆Vbs7gX72NY
2020/07/28(火) 19:57:29.71 >>169
本当。一時本気でvbaで仕事を探したことがあるけど、正社員で客先常駐(実質派遣会社の正社員)か、派遣で客先常駐かしかない
仕事内容は一緒って意味だし、vbaだとキャリアなんて積めない
一番ひどかったのは、ローカルにあるC2DのPCをサーバーにしてAccess2003と2016が同時に快適に動くようにしてくれって要望
正社員と派遣、どっちが上じゃない、両方クソだった。俺は両方で体験入社したけど会社によるとしか言えない
これはカンだけど、タイミングさえ合えばまったり零細でのびのび帳票を自動出力するだけの仕事があると思う
>>170
ごめん、無理だった
酒のんで気分いいしやったるべ〜って試してたら3ページなのに速攻でアク禁食らった
まぁスクレイピングってこういう事なんですわって事が分かってくれればそれでいいと思う。ちなみにこのコードは修正中なので動かない
Sub foo()
For i = 1 To 3
sample ( "https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&p=" & i & "&type=spot&mode=", i )
Next
End Sub
Sub sample(url, ページ)
Set objIE = CreateObject("InternetExplorer.Application")
'IE(InternetExplorer)を表示する
objIE.Visible = True
Set objIE2 = objIE.Application
objIE2.navigate url
Do While objIE2.Busy = True Or objIE2.readyState <> 4
DoEvents
Loop
行で分割したソース = Split(objIE2.document.body.innerHTML, vbCrLf) '改行で縦一列に並べて分割っとかなんとか
For Each k In 行で分割したソース
Cells(, ページ) = k
Next
End Sub
本当。一時本気でvbaで仕事を探したことがあるけど、正社員で客先常駐(実質派遣会社の正社員)か、派遣で客先常駐かしかない
仕事内容は一緒って意味だし、vbaだとキャリアなんて積めない
一番ひどかったのは、ローカルにあるC2DのPCをサーバーにしてAccess2003と2016が同時に快適に動くようにしてくれって要望
正社員と派遣、どっちが上じゃない、両方クソだった。俺は両方で体験入社したけど会社によるとしか言えない
これはカンだけど、タイミングさえ合えばまったり零細でのびのび帳票を自動出力するだけの仕事があると思う
>>170
ごめん、無理だった
酒のんで気分いいしやったるべ〜って試してたら3ページなのに速攻でアク禁食らった
まぁスクレイピングってこういう事なんですわって事が分かってくれればそれでいいと思う。ちなみにこのコードは修正中なので動かない
Sub foo()
For i = 1 To 3
sample ( "https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&p=" & i & "&type=spot&mode=", i )
Next
End Sub
Sub sample(url, ページ)
Set objIE = CreateObject("InternetExplorer.Application")
'IE(InternetExplorer)を表示する
objIE.Visible = True
Set objIE2 = objIE.Application
objIE2.navigate url
Do While objIE2.Busy = True Or objIE2.readyState <> 4
DoEvents
Loop
行で分割したソース = Split(objIE2.document.body.innerHTML, vbCrLf) '改行で縦一列に並べて分割っとかなんとか
For Each k In 行で分割したソース
Cells(, ページ) = k
Next
End Sub
176牧野 ◆Vbs7gX72NY
2020/07/28(火) 19:58:20.662020/07/28(火) 20:24:06.76
動くコードももらえますか?
178牧野 ◆Vbs7gX72NY
2020/07/28(火) 21:32:04.60179牧野 ◆Vbs7gX72NY
2020/07/28(火) 21:33:21.96 もうちょい言うと、恐らく3ページじゃなくてUAで判定してるんだろうけど
そっちの方がはるかにキツイ
そっちの方がはるかにキツイ
2020/07/28(火) 21:53:34.14
糞コード貼り付けるなよ
2020/07/29(水) 00:11:15.22
今日は無事Excelを起動できたが、
明日起動しようとしたらJPEGになってたらどうしよう・・。
明日起動しようとしたらJPEGになってたらどうしよう・・。
2020/07/29(水) 01:39:17.28
2020/07/29(水) 08:40:49.16
ありがとうございます!
ナビタイムでもやってもらえないでしょうか?
ナビタイムでもやってもらえないでしょうか?
2020/07/29(水) 12:13:32.84
>>179
>もうちょい言うと、恐らく3ページじゃなくてUAで判定してるんだろうけど
>そっちの方がはるかにキツイ
んなわけねーべ
ちょっとウエイト入れたら余裕で全部スクレイプできたわ
しかもお前のコードだとちゃんとParseできねーぞ?
>もうちょい言うと、恐らく3ページじゃなくてUAで判定してるんだろうけど
>そっちの方がはるかにキツイ
んなわけねーべ
ちょっとウエイト入れたら余裕で全部スクレイプできたわ
しかもお前のコードだとちゃんとParseできねーぞ?
2020/07/29(水) 13:04:26.14
ナビタイムの結果に見えるが…?
186名無しさん@そうだ選挙にいこう
2020/07/29(水) 13:28:03.842020/07/29(水) 13:29:00.35
セルに
=sum2
=int8
と入れると「0」が返ります
どのように評価されているのでしょうか?
=text0
は#NAME?エラーでした
=sum2
=int8
と入れると「0」が返ります
どのように評価されているのでしょうか?
=text0
は#NAME?エラーでした
2020/07/29(水) 13:38:37.63
Win10のChromeとFireFoxとEdgeで試したけど20件ずつしか表示されない
どうやったら3ページ(600件ずつ?)になるんだ
どうやったら3ページ(600件ずつ?)になるんだ
2020/07/29(水) 13:51:25.38
お前理解が周回遅れ以下。
88回ページネーションすんだよ。
88回ページネーションすんだよ。
2020/07/29(水) 14:02:49.90
2020/07/29(水) 14:14:55.58
0.1秒間隔で全88ページ落としてみたけど別にアクセス制限なんかかかってないなあ
所要時間9秒程度だと連続アタックにはならないのか?
所要時間9秒程度だと連続アタックにはならないのか?
2020/07/29(水) 14:24:34.00
179は明らかに仕事できない人。ただの勘違いだろう。
2020/07/29(水) 14:46:45.16
2020/07/29(水) 14:51:49.70
データの重複がけっこうあるな
表記揺れで別の店と認識するのはしょうがないとして、住所が同じなのに座標が違うのはどういうことだ
表記揺れで別の店と認識するのはしょうがないとして、住所が同じなのに座標が違うのはどういうことだ
2020/07/29(水) 15:41:01.20
元データが腐ってるね。
2020/07/29(水) 15:47:59.64
そのデータでいいのでください!
2020/07/29(水) 16:10:17.94
2020/07/29(水) 21:05:18.52
何なのお前?
2020/07/29(水) 21:46:01.04
セルアドレスがたまたま関数名と同じになる列はけっこうたくさんあるね
バグが出た時にうっかり見落としそう
IF、OR、PI、ABS、AND、ASC、COS、DAY、EXP、INT、JIS、LEN、LOG
MAX、MID、MIN、MOD、NOT、NOW、ODD、ROW、SIN、SUM、TAN
バグが出た時にうっかり見落としそう
IF、OR、PI、ABS、AND、ASC、COS、DAY、EXP、INT、JIS、LEN、LOG
MAX、MID、MIN、MOD、NOT、NOW、ODD、ROW、SIN、SUM、TAN
2020/07/29(水) 21:58:33.80
本気で言ってんの?
2020/07/30(木) 13:08:47.41
2020/07/30(木) 13:16:56.44
>>202
入れてませんよ?
入れてませんよ?
2020/07/30(木) 13:43:31.79
=IF1+(OR2+ABS3-AND4*INT5-LEN6+(MAX7+MIN8)+MOD9+NOT10)+ROW11+(SIN12+SUM13)
2020/07/30(木) 15:21:08.22
スクレイピングって素人理解できます?
2020/07/30(木) 15:57:47.91
素人が理解できるよう説明する責任があるね、ここの人は。
2020/07/30(木) 16:31:00.84
88ページ読み込むのに70秒ぐらいかかる
Option Explicit
Dim httpObj As Object
Public Sub GetNAVITIMElist()
Dim p%, pp%, i%, r%, a$(), s$, t$, url$
Set httpObj = CreateObject("MSXML2.ServerXMLHTTP")
url = "https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&type=spot&from=freeword.spotlist&p="
pp = Int((Val(Split(GetUrl(url), "(1/")(1)) + 19) / 20) - 1
For p = 0 To pp
a = Split(GetUrl(url & p), " class=""")
For i = 1 To UBound(a)
s = a(i)
t = Replace(Replace(Split(Split(s, ">")(1), "<")(0), "<", "<"), ">", ">")
Select Case Split(s, """")(0)
Case "candidate_link": r = r + 1: Cells(r, 1) = t
Case "address_name": Cells(r, 2) = t
Case "phone_area": Cells(r, 3) = "'" & t
Case "spot_category_name": Cells(r, 4) = t
End Select
Next
Next
Set httpObj = Nothing
End Sub
Function GetUrl$(url$)
httpObj.Open "GET", url
httpObj.Send
Do While httpObj.readyState < 4
DoEvents
Loop
GetUrl = httpObj.responseText
End Function
Option Explicit
Dim httpObj As Object
Public Sub GetNAVITIMElist()
Dim p%, pp%, i%, r%, a$(), s$, t$, url$
Set httpObj = CreateObject("MSXML2.ServerXMLHTTP")
url = "https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&type=spot&from=freeword.spotlist&p="
pp = Int((Val(Split(GetUrl(url), "(1/")(1)) + 19) / 20) - 1
For p = 0 To pp
a = Split(GetUrl(url & p), " class=""")
For i = 1 To UBound(a)
s = a(i)
t = Replace(Replace(Split(Split(s, ">")(1), "<")(0), "<", "<"), ">", ">")
Select Case Split(s, """")(0)
Case "candidate_link": r = r + 1: Cells(r, 1) = t
Case "address_name": Cells(r, 2) = t
Case "phone_area": Cells(r, 3) = "'" & t
Case "spot_category_name": Cells(r, 4) = t
End Select
Next
Next
Set httpObj = Nothing
End Sub
Function GetUrl$(url$)
httpObj.Open "GET", url
httpObj.Send
Do While httpObj.readyState < 4
DoEvents
Loop
GetUrl = httpObj.responseText
End Function
2020/07/30(木) 17:24:58.95
動かないじゃん
2020/07/30(木) 17:33:56.87
検索結果をよく見ると、名前にも住所にも「マックスバリュ」が入ってない項目がいっぱいあるんだけど
いったい何を見せられてるんだ?
いったい何を見せられてるんだ?
2020/07/30(木) 18:19:25.64
ソースのサイトくらいみろよ、、、
211牧野 ◆Vbs7gX72NY
2020/07/30(木) 18:47:46.772020/07/30(木) 19:01:40.17
213名無しさん@そうだ選挙にいこう
2020/07/30(木) 20:54:16.05 DOMつかってないし
ボタン押してないし
まいいんだけどね
ボタン押してないし
まいいんだけどね
2020/07/30(木) 20:59:26.75
何でマックスバリューとカンケーない奴らがたくさん混じってんだよ!邪魔だ!
2020/07/30(木) 21:07:52.44
>>205
xlsxやcsvファイルでなくて、Webサイトの特定文字列なんかを
Excelでやるなら、こんな感じ。
Web Scraping In Power BI And Excel Power Query
https://datachant.com/2017/03/30/web-scraping-power-bi-excel-power-query/
xlsxやcsvファイルでなくて、Webサイトの特定文字列なんかを
Excelでやるなら、こんな感じ。
Web Scraping In Power BI And Excel Power Query
https://datachant.com/2017/03/30/web-scraping-power-bi-excel-power-query/
2020/07/30(木) 21:19:39.99
それ素人が理解できますかね?
質問、理解してます?
質問、理解してます?
217名無しさん@そうだ選挙にいこう
2020/07/30(木) 21:24:54.35 >>215
いいね
いいね
2020/07/30(木) 21:49:51.16
このスレID付けたほうがいいよね
2020/07/30(木) 22:53:04.77
単純なスクレイピングはWEBクエリより自分で書いた方が早いまである
価格comの詳細検索を一気に落としてExcelのオートフィルタで機種選びとかよくやってる
価格comの詳細検索を一気に落としてExcelのオートフィルタで機種選びとかよくやってる
220牧野 ◆Vbs7gX72NY
2020/07/30(木) 23:09:45.36 色々試したあげくapi使えば一瞬で終わるなんてことも
2020/07/30(木) 23:10:17.46
Web上のpdfファイルはPower Queryで読み込める模様
(スキャナ読み画像pdfを除く)
(スキャナ読み画像pdfを除く)
2020/07/30(木) 23:24:59.85
少なくともExcelでスクレイピングしようなんて考えるやつはセンスが無い
2020/07/30(木) 23:39:00.97
2020/07/30(木) 23:42:29.90
>>218
毎スレで言われてる気がする
毎スレで言われてる気がする
225牧野 ◆Vbs7gX72NY
2020/07/30(木) 23:45:11.65 >>223
pythonでスクレイピングしてもやることは>>207と大差ないよ
Xpathの使いやすさに違いはあると思うけど、pythonは環境構築と出力が手間になるので総合的にはvbaと労力は大差ない
個人的にはVBAの方が楽
個人的にはchrome拡張が非常に便利と思う。
https://blog.tanebox.com/archives/645/
pythonでスクレイピングしてもやることは>>207と大差ないよ
Xpathの使いやすさに違いはあると思うけど、pythonは環境構築と出力が手間になるので総合的にはvbaと労力は大差ない
個人的にはVBAの方が楽
個人的にはchrome拡張が非常に便利と思う。
https://blog.tanebox.com/archives/645/
2020/07/30(木) 23:58:16.88
中学生レベルのスキルなんだね
2020/07/31(金) 01:09:19.55
1ページ1秒弱とか遅すぎる
もっと早くできないものか
もっと早くできないものか
2020/08/01(土) 11:38:35.46
できる
パース処理に無駄な所が二箇所
ページごとじゃなくて全ページ処理する
半分の時間になったわ処理
パース処理に無駄な所が二箇所
ページごとじゃなくて全ページ処理する
半分の時間になったわ処理
2020/08/01(土) 11:45:35.94
httpオブジェクトを88個作って一気にGETすれば1秒で終わる
と妄想してみる
と妄想してみる
2020/08/01(土) 11:46:01.68
>>228
そのソース貼ってくれ
そのソース貼ってくれ
2020/08/01(土) 15:53:54.61
>>229
DoS攻撃やめれ
DoS攻撃やめれ
2020/08/01(土) 16:04:46.41
鯖側の仕様でGETで1秒待たされるのがどうしようもないね
たった1800件ならパース処理の無駄を省いても時間は大差ない
こんなもんか?もっと短縮できる?
Public Sub GetNAVITIMElist()
Dim p%, i&, r%, a$(), s$, url$
Set httpObj = CreateObject("MSXML2.ServerXMLHTTP")
url = "https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&type=spot&from=freeword.spotlist&p="
For p = 0 To Int((Val(Split(GetUrl(url), "(1/")(1)) + 19) / 20) - 1
s = s & GetUrl(url & p)
Next
a = Split(s, " class=""")
For i = 1 To UBound(a)
s = Split(Split(a(i), ">")(1), "<")(0)
Select Case Split(a(i), """")(0)
Case "candidate_link": r = r + 1: Cells(r, 1) = s
Case "address_name": Cells(r, 2) = s
Case "phone_area": Cells(r, 3) = "'" & s
Case "spot_category_name": Cells(r, 4) = Replace(Replace(s, "<", "<"), ">", ">")
End Select
Next
Set httpObj = Nothing
End Sub
たった1800件ならパース処理の無駄を省いても時間は大差ない
こんなもんか?もっと短縮できる?
Public Sub GetNAVITIMElist()
Dim p%, i&, r%, a$(), s$, url$
Set httpObj = CreateObject("MSXML2.ServerXMLHTTP")
url = "https://www.navitime.co.jp/freeword/?keyword=%E3%83%9E%E3%83%83%E3%82%AF%E3%82%B9%E3%83%90%E3%83%AA%E3%83%A5&type=spot&from=freeword.spotlist&p="
For p = 0 To Int((Val(Split(GetUrl(url), "(1/")(1)) + 19) / 20) - 1
s = s & GetUrl(url & p)
Next
a = Split(s, " class=""")
For i = 1 To UBound(a)
s = Split(Split(a(i), ">")(1), "<")(0)
Select Case Split(a(i), """")(0)
Case "candidate_link": r = r + 1: Cells(r, 1) = s
Case "address_name": Cells(r, 2) = s
Case "phone_area": Cells(r, 3) = "'" & s
Case "spot_category_name": Cells(r, 4) = Replace(Replace(s, "<", "<"), ">", ">")
End Select
Next
Set httpObj = Nothing
End Sub
233sage
2020/08/01(土) 16:52:40.46 リストボックスとかコンボボックスで選択したものを
今現在選択しているセルに出力する方法を教えてください。
「リンクするセル」に何て書けば良いでしょうか。
今現在選択しているセルに出力する方法を教えてください。
「リンクするセル」に何て書けば良いでしょうか。
2020/08/01(土) 17:23:26.56
2020/08/01(土) 18:19:57.70
>>234
オブジェクトのnameプロパティは、どうやって見るのですか?
オブジェクトのnameプロパティは、どうやって見るのですか?
2020/08/01(土) 18:37:36.71
>>235は撤回します。
下のように標準モジュールに書いたけどエラーでダメです。
どうしたらいいですか
Sub ボタン3_Click()
Dim shp As Shape
Set shp = Worksheets("sheet").Shapes("List Box 1")
ActiveCell.Value = shp.text ←これはエラー
ActiveCell.Value = shp.value ←これもエラー
End Sub
下のように標準モジュールに書いたけどエラーでダメです。
どうしたらいいですか
Sub ボタン3_Click()
Dim shp As Shape
Set shp = Worksheets("sheet").Shapes("List Box 1")
ActiveCell.Value = shp.text ←これはエラー
ActiveCell.Value = shp.value ←これもエラー
End Sub
2020/08/01(土) 19:39:22.72
2020/08/01(土) 19:40:32.91
>標準モジュールに
なんでやねん。
sheetでいいじゃん。
Sub ボタン3_Click()
ActiveCell.Value = Me.ListBox1.Value
End Sub
名前弄れるようにしたいなら
Sub ボタン3_Click()
ActiveCell.Value = Me.OLEObjects("List Box 1").Object.Value
End Sub
なんでやねん。
sheetでいいじゃん。
Sub ボタン3_Click()
ActiveCell.Value = Me.ListBox1.Value
End Sub
名前弄れるようにしたいなら
Sub ボタン3_Click()
ActiveCell.Value = Me.OLEObjects("List Box 1").Object.Value
End Sub
239牧野 ◆Vbs7gX72NY
2020/08/01(土) 19:41:33.55 >>236
captionかなんかだろって舐めてかかったらすげーめんどくさいなこれ
フォームコントロールとvbaはかなり相性が悪い。
Sub sample()
Set ctl = ActiveSheet.DropDowns("Drop Down 1")
Debug.Print Range(ctl.ListFillRange).Item(ctl.Value, 1)
End Sub
参考
https://excel-ubara.com/excelvba1/EXCELVBA436.html
言うまでも無いと思うけど標準機能使った方が良いと思う
https://dotup.org/uploda/dotup.org2215934.xlsx.html
captionかなんかだろって舐めてかかったらすげーめんどくさいなこれ
フォームコントロールとvbaはかなり相性が悪い。
Sub sample()
Set ctl = ActiveSheet.DropDowns("Drop Down 1")
Debug.Print Range(ctl.ListFillRange).Item(ctl.Value, 1)
End Sub
参考
https://excel-ubara.com/excelvba1/EXCELVBA436.html
言うまでも無いと思うけど標準機能使った方が良いと思う
https://dotup.org/uploda/dotup.org2215934.xlsx.html
2020/08/01(土) 20:20:36.46
フォームコントロールはレガシーだからできるだけ使うな、ActiveXを使えってガイドラインに出てなかったっけ?
2020/08/01(土) 20:26:56.73
配布したいんですよ。
242牧野 ◆Vbs7gX72NY
2020/08/01(土) 20:32:16.642020/08/01(土) 22:29:17.75
添付不可っていつの時代の話だよ・・・。
batとvbsはいまだに不可だが。
batとvbsはいまだに不可だが。
2020/08/01(土) 22:48:37.82
余計なお世話。
配布したいってニーズは変わりませんよ。
配布したいってニーズは変わりませんよ。
245牧野 ◆Vbs7gX72NY
2020/08/01(土) 22:58:51.302020/08/01(土) 23:19:26.58
添付制限なんてzipで固めて送ればいいんじゃないの?エクスプローラでフォルダ扱いになるんだから別に面倒でもないし
247牧野 ◆Vbs7gX72NY
2020/08/01(土) 23:22:39.312020/08/02(日) 00:07:05.77
パスワードzipでいいよ
249牧野 ◆Vbs7gX72NY
2020/08/02(日) 00:41:52.472020/08/02(日) 07:05:24.89
その程度の運用しか想像できないなら黙ってたら
時間の無駄です
時間の無駄です
2020/08/02(日) 07:13:59.99
ニヤニヤ
2020/08/02(日) 09:54:01.90
牧野は頭にウンコしか詰まってねえ文字通りの胸糞悪いクソゴミ
2020/08/03(月) 00:14:11.07
とても初歩的な事だと思うのですが解決しないので教えて頂けないでしょうか
00:00
01:10…のような4桁の時間形式を分かりやすく書くためにEXCELを使用したいのですが、
分単位の00、間の:、秒の00、を分けて別セルに組み合わせるようにすると、0が消えてしまいます。
https://i.imgur.com/vcKwTHq.png
00 : 01 を組み合わせてそのまま00 : 01を出せるようにしたいのですが…
書式設定を触ってみたのですが出来ませんでした。
宜しくお願いします。
00:00
01:10…のような4桁の時間形式を分かりやすく書くためにEXCELを使用したいのですが、
分単位の00、間の:、秒の00、を分けて別セルに組み合わせるようにすると、0が消えてしまいます。
https://i.imgur.com/vcKwTHq.png
00 : 01 を組み合わせてそのまま00 : 01を出せるようにしたいのですが…
書式設定を触ってみたのですが出来ませんでした。
宜しくお願いします。
2020/08/03(月) 00:20:39.09
>>253
すいません。書式を文字列でいけました。申し訳ございません。
すいません。書式を文字列でいけました。申し訳ございません。
2020/08/03(月) 07:43:31.05
時刻として扱いたいならTIMEVALUE(A1&B1&C1)で書式をhh:mmの方が扱いやすいんじゃないかな
2020/08/04(火) 10:12:26.73
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
特定の商品E5をA4〜A1000で探し特定期間7月をB4〜B1000で探し
一致するC4〜C1000を集計するのに下記のようなSUMIFS構文を利用してるのですが
これだと期間を変えるのにExcelの式を都度修正せねばならず時間かかり間違いやすいので
どこかのセルに7月なら7と入力すれば7月1日〜7月末までが範囲になるようにしたいです
前提として期間は1日〜月末ですが6月1日〜7月末のように複数月の場合もあります
どうすればよろしいでしょうか
=SUMIFS($C$4:$C$1000,$A$4:$A$1000,$E5,$B$4:$B$1000,">=2020/7/1”,$B$4:$B$1000,"<=2020/7/31)
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
特定の商品E5をA4〜A1000で探し特定期間7月をB4〜B1000で探し
一致するC4〜C1000を集計するのに下記のようなSUMIFS構文を利用してるのですが
これだと期間を変えるのにExcelの式を都度修正せねばならず時間かかり間違いやすいので
どこかのセルに7月なら7と入力すれば7月1日〜7月末までが範囲になるようにしたいです
前提として期間は1日〜月末ですが6月1日〜7月末のように複数月の場合もあります
どうすればよろしいでしょうか
=SUMIFS($C$4:$C$1000,$A$4:$A$1000,$E5,$B$4:$B$1000,">=2020/7/1”,$B$4:$B$1000,"<=2020/7/31)
2020/08/04(火) 12:19:21.48
>>256
開始日と終了日を入れるセルを作って参照
開始日と終了日を入れるセルを作って参照
2020/08/04(火) 12:20:52.91
">="&a1
2020/08/04(火) 13:09:14.20
>>256
複数月の増分を入れるセルも用意して
=SUMIFS($C$4:$C$1000,$A$4:$A$1000,$E5,$B$4:$B$1000,">="&DATE(YEAR(NOW()),どこかのセル,1),$B$4:$B$1000,"<="&DATE(YEAR(NOW()),どこかのセル+複数月の増分+1,1)-1)
複数月の増分を入れるセルも用意して
=SUMIFS($C$4:$C$1000,$A$4:$A$1000,$E5,$B$4:$B$1000,">="&DATE(YEAR(NOW()),どこかのセル,1),$B$4:$B$1000,"<="&DATE(YEAR(NOW()),どこかのセル+複数月の増分+1,1)-1)
260名無しさん@そうだ選挙にいこう
2020/08/07(金) 08:24:35.51 【1 OSの種類 .】 Windows 7
【2 Excelのバージョン 】 Excel 2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
*OSとExcelは年内にも更新予定。
ある設定をしたセルの書式だけ変える方法は有りますか?
例えば、フォントの色を赤にしたセルだけ青にするとか。
手持ちCDの曲目リストで区別のためフォント書式を色々分けていましたが、
作った当時の若かった頃はともかく、30年近く使い続けて年老いてくると
水色や桃色などの淡い色が読みづらくなってきました。
区別を保ったまま濃い色にしたいと考えています。
【2 Excelのバージョン 】 Excel 2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
*OSとExcelは年内にも更新予定。
ある設定をしたセルの書式だけ変える方法は有りますか?
例えば、フォントの色を赤にしたセルだけ青にするとか。
手持ちCDの曲目リストで区別のためフォント書式を色々分けていましたが、
作った当時の若かった頃はともかく、30年近く使い続けて年老いてくると
水色や桃色などの淡い色が読みづらくなってきました。
区別を保ったまま濃い色にしたいと考えています。
2020/08/07(金) 09:22:38.65
>>260
条件付き書式以外の方法で色を付けたセルの処理は、VBA使わないと無理
条件付き書式以外の方法で色を付けたセルの処理は、VBA使わないと無理
2020/08/07(金) 09:27:11.54
あるけどVBA不可じゃなぁ・・。
多分、
Sub a()
For i = 開始行 To 終了行
If フォントが赤のセル Then フォントの色を青
Next
End Sub
の5行で済むと思うけど、どうしてもVBA嫌か?
多分、
Sub a()
For i = 開始行 To 終了行
If フォントが赤のセル Then フォントの色を青
Next
End Sub
の5行で済むと思うけど、どうしてもVBA嫌か?
2020/08/07(金) 09:44:51.55
2020/08/07(金) 09:45:33.66
ならないよ
2020/08/07(金) 10:09:26.67
2020/08/07(金) 10:36:23.25
色を変えなくてもフォントを太くしたり大きくするだけでも読みやすくなる
267名無しさん@そうだ選挙にいこう
2020/08/07(金) 10:43:13.55 書式で検索して一括置換はできるんじゃないの
既存の書式を検索したいならセルから書式取得する機能もあるし
ただ2007でできるかどうかは知らん
既存の書式を検索したいならセルから書式取得する機能もあるし
ただ2007でできるかどうかは知らん
2020/08/07(金) 12:16:39.38
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ(VBAじゃないと無理ならがんばる)
【4 VBAでの回答の可否】 否(VBAじゃないと無理ならがんばる)
データをまとめる時にpdfでは公開されているのにcsvやxlsファイルでは配布されていないので
pdfのデータをコピーしてexcelに張ったところ
横一列になってしまいました
そこで区切りで見やすくはしたのですが、横一列のままです
これを5列(マス)ごとに改行したいのですが、どうすれば良いでしょうか?
A1〜A80あり、A1〜A5、B1〜B5....とズラしたいんです。
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ(VBAじゃないと無理ならがんばる)
【4 VBAでの回答の可否】 否(VBAじゃないと無理ならがんばる)
データをまとめる時にpdfでは公開されているのにcsvやxlsファイルでは配布されていないので
pdfのデータをコピーしてexcelに張ったところ
横一列になってしまいました
そこで区切りで見やすくはしたのですが、横一列のままです
これを5列(マス)ごとに改行したいのですが、どうすれば良いでしょうか?
A1〜A80あり、A1〜A5、B1〜B5....とズラしたいんです。
2020/08/07(金) 12:24:13.70
>>268
WordからPDFを開くとか
WordからPDFを開くとか
2020/08/07(金) 12:30:41.34
271名無しさん@そうだ選挙にいこう
2020/08/07(金) 13:01:02.43 >>269-270
ありがとうございました
ありがとうございました
2020/08/07(金) 13:56:23.96
>>261-262
やはり無理ですか。
ところで、シンボリック形式の解説をオンラインで読めるところは無いですかね?
昔々、Multiplanを使っていた頃、ファイルが壊れてエラーが続発すると
一度シンボリックにして回復させていたことを思い出し、小さな表で試してみました。
(当時のMultiplanの説明書にはシンボリックの説明も書かれていた)
シンボリックファイルはテキスト形式なので、セルの色指定の数値を置換すると
変えられました。ただ、色指定の数値は分かるものの、水色系や桃色系など
自分で作った中間色の色成分(RGBなど)の定義部分が分かりません。
これが分かれば、成分値を変えることで変更できそうです。
尤も、太字・斜体字など他にもあるし、数百万行のファイルになりそうだな。
やはり無理ですか。
ところで、シンボリック形式の解説をオンラインで読めるところは無いですかね?
昔々、Multiplanを使っていた頃、ファイルが壊れてエラーが続発すると
一度シンボリックにして回復させていたことを思い出し、小さな表で試してみました。
(当時のMultiplanの説明書にはシンボリックの説明も書かれていた)
シンボリックファイルはテキスト形式なので、セルの色指定の数値を置換すると
変えられました。ただ、色指定の数値は分かるものの、水色系や桃色系など
自分で作った中間色の色成分(RGBなど)の定義部分が分かりません。
これが分かれば、成分値を変えることで変更できそうです。
尤も、太字・斜体字など他にもあるし、数百万行のファイルになりそうだな。
2020/08/07(金) 14:43:08.91
>>272
新しいExcelで読み込んで、xlsx形式で保存、拡張子をzipに変換するとワークシートの中身がすべてテキストファイルで取り出せる
色の定義はxl\styles.xmlというテキストファイルにそのまま16進数のRGBで書いてあるから一括置換すればいい
RGBから色相、彩度、明度を求めて明るくしたり暗くする方法はネット検索すれば方程式が出てくる
新しいExcelで読み込んで、xlsx形式で保存、拡張子をzipに変換するとワークシートの中身がすべてテキストファイルで取り出せる
色の定義はxl\styles.xmlというテキストファイルにそのまま16進数のRGBで書いてあるから一括置換すればいい
RGBから色相、彩度、明度を求めて明るくしたり暗くする方法はネット検索すれば方程式が出てくる
274名無しさん@そうだ選挙にいこう
2020/08/07(金) 16:35:55.16 >>273
ありがとうございます。
こんな形で保存されているのですか。読み解くには時間がかかりそう。
これについても、検索すれば説明文があるのかな。
それにしても、桁の低いところで生じる端数をround関数で整えたはずなのに、
データには違う値が記録されているとは・・・
例えば、roundで数値も1.0としたのに1.000001だとか。
ありがとうございます。
こんな形で保存されているのですか。読み解くには時間がかかりそう。
これについても、検索すれば説明文があるのかな。
それにしても、桁の低いところで生じる端数をround関数で整えたはずなのに、
データには違う値が記録されているとは・・・
例えば、roundで数値も1.0としたのに1.000001だとか。
2020/08/07(金) 17:05:41.37
>>274
> これについても、検索すれば説明文があるのかな。
あるよ
http://www.ecma-international.org/publications/standards/Ecma-376.htm
3,000ページ以上あるけど
> これについても、検索すれば説明文があるのかな。
あるよ
http://www.ecma-international.org/publications/standards/Ecma-376.htm
3,000ページ以上あるけど
2020/08/07(金) 17:37:48.56
それは不動小数点の丸め誤差っぽいが
2020/08/07(金) 17:39:46.52
っていうか書式で検索して全て選択して色変えればいいだけじゃねえの
2020/08/07(金) 17:43:06.47
書式で検索できる方法、知ってるんですか
2020/08/07(金) 18:01:58.64
ごめんそもそも置換できたわ
ぐぐれ
ぐぐれ
2020/08/07(金) 19:51:08.15
>>276
不動?つまり固定小数点?
不動?つまり固定小数点?
281名無しさん@そうだ選挙にいこう
2020/08/07(金) 20:26:32.12 とりあえず現段階の方向として、シンボリックファイルで置換しようと思います。
色の定義方法は分析せず、新しい色を作って色番号を探り番号を置換することで。
お騒がせしました。
色の定義方法は分析せず、新しい色を作って色番号を探り番号を置換することで。
お騒がせしました。
282名無しさん@そうだ選挙にいこう
2020/08/07(金) 20:42:53.04 他人の助言まったく聞かないで無駄な遠回りして自己解決したのか
昭和のクソジジイすげーな
昭和のクソジジイすげーな
2020/08/07(金) 21:36:42.72
何でも自分の思い通りになると思ってます?
2020/08/07(金) 22:07:35.44
頭凝り固まった典型的な老害って感じ
自分が知ってる方法しかやる気がないし出来ないんだろう
自分が知ってる方法しかやる気がないし出来ないんだろう
2020/08/07(金) 23:08:38.35
2桁表示にしたく書式設定を「00」にしたのですが、
それらを組み合わせて=A1&B1&C1のようにすると、01が1になってしまいます。
1は01…のような状態で、そのままで別セルと結合する方法はないでしょうか?
それらを組み合わせて=A1&B1&C1のようにすると、01が1になってしまいます。
1は01…のような状態で、そのままで別セルと結合する方法はないでしょうか?
286名無しさん@そうだ選挙にいこう
2020/08/07(金) 23:34:30.33 >>285
=TEXT(A1,"00")&TEXT(b1,"00")&TEXT(c1,"00")
=TEXT(A1,"00")&TEXT(b1,"00")&TEXT(c1,"00")
2020/08/08(土) 01:54:11.73
2020/08/08(土) 05:52:16.15
それを人手で遣るんですか?
それは流石に道具の使い方間違っているとしか言えません
それは流石に道具の使い方間違っているとしか言えません
290牧野 ◆Vbs7gX72NY
2020/08/08(土) 08:11:13.26 >>260
一律背景色を濃くするマクロ
Sub foo()
濃くしたい濃度 = 10
For Each i In UsedRange
myColor = i.Interior.Color
r = myColor Mod 256
g = Int(myColor / 256) Mod 256
b = Int(myColor / 256 / 256)
If i.Interior.Color < 16777215 Then '白以外
r = WorksheetFunction.Max(r - 濃くしたい濃度, 0)
g = WorksheetFunction.Max(g - 濃くしたい濃度, 0)
b = WorksheetFunction.Max(b - 濃くしたい濃度, 0)
i.Interior.Color = RGB(r, g, b)
End If
Next
End Sub
動かしてから気がついたけど、本当は濃くしたいじゃなくてコントラストを強くしたいんだろうな〜
無理だな〜
一律背景色を濃くするマクロ
Sub foo()
濃くしたい濃度 = 10
For Each i In UsedRange
myColor = i.Interior.Color
r = myColor Mod 256
g = Int(myColor / 256) Mod 256
b = Int(myColor / 256 / 256)
If i.Interior.Color < 16777215 Then '白以外
r = WorksheetFunction.Max(r - 濃くしたい濃度, 0)
g = WorksheetFunction.Max(g - 濃くしたい濃度, 0)
b = WorksheetFunction.Max(b - 濃くしたい濃度, 0)
i.Interior.Color = RGB(r, g, b)
End If
Next
End Sub
動かしてから気がついたけど、本当は濃くしたいじゃなくてコントラストを強くしたいんだろうな〜
無理だな〜
2020/08/08(土) 08:21:06.75
あのー使えない糞コード邪魔何で貼らないでもらえます
2020/08/08(土) 10:33:51.30
質問とは関係ないコード書いて自己満足してるのか?
2020/08/08(土) 10:44:19.85
一度色を全部消して条件付き書式で入れ直した方がよかったりして
2020/08/08(土) 11:03:47.82
VBA以外の方法ありますか?
2020/08/08(土) 11:10:37.64
あります
2020/08/08(土) 12:28:01.67
VBAって楽しいね。
2020/08/08(土) 12:39:47.28
300牧野 ◆Vbs7gX72NY
2020/08/08(土) 13:37:35.472020/08/08(土) 19:53:30.82
高卒はこれだから
2020/08/09(日) 14:37:15.29
>>295
Excel4.0マクロは禁止されてないので、しばり的にはセーフだよね
例えば、Sheet1 の文字色薄い青のセルを青にしたい場合
1.Sheet1をシートコピー
2.コピー先シートA1で名前定義 名前は仮に色とでも =GET.CELL(24 , Sheet1!A1)+NOW()*0 これで、=色 でSheet1の同一アドレスの文字色No.が取得出来る
3.A1に、=IF(色=33, NA()) 表範囲全体に数式のみコピー
4.条件を指定してジャンプ->数式 論理値 で、文字色赤のセル以外が選択される -> 消去
6.全範囲を選択して、文字色を青に (エラー値で条件ジャンプで該当セルのみ選択できるけどその作業は不要)
7.コピー→Sheet1のA1を選択->形式を選択して貼り付け 書式、 空白セルを無視する
GET.CELL(24,Sheet1!A1)がセルの情報を取得するExcel4.0マクロで、24が文字色、薄い青は33
セルに直接入力は出来ないけど、現Excel2019でも、名前を介すと使用できる
Sheet1!A1の部分は相対参照で($がついたら消す)
太字、斜字はそれぞれ、24のところを、20、21に置き換える 戻り値は真偽値
Excel4.0マクロは禁止されてないので、しばり的にはセーフだよね
例えば、Sheet1 の文字色薄い青のセルを青にしたい場合
1.Sheet1をシートコピー
2.コピー先シートA1で名前定義 名前は仮に色とでも =GET.CELL(24 , Sheet1!A1)+NOW()*0 これで、=色 でSheet1の同一アドレスの文字色No.が取得出来る
3.A1に、=IF(色=33, NA()) 表範囲全体に数式のみコピー
4.条件を指定してジャンプ->数式 論理値 で、文字色赤のセル以外が選択される -> 消去
6.全範囲を選択して、文字色を青に (エラー値で条件ジャンプで該当セルのみ選択できるけどその作業は不要)
7.コピー→Sheet1のA1を選択->形式を選択して貼り付け 書式、 空白セルを無視する
GET.CELL(24,Sheet1!A1)がセルの情報を取得するExcel4.0マクロで、24が文字色、薄い青は33
セルに直接入力は出来ないけど、現Excel2019でも、名前を介すと使用できる
Sheet1!A1の部分は相対参照で($がついたら消す)
太字、斜字はそれぞれ、24のところを、20、21に置き換える 戻り値は真偽値
303名無しさん@そうだ選挙にいこう
2020/08/09(日) 14:39:53.99 クソパズルやめろやジジイ
ほんと疲れるわ
ほんと疲れるわ
304名無しさん@そうだ選挙にいこう
2020/08/09(日) 14:51:50.55 マルチプランだのcell関数だのは老人会のカラオケ大会ででも話しててくれよ頼むわ早く隠居するか死んでくれ
2020/08/09(日) 15:08:36.22
どうして生きているんだろうな
2020/08/09(日) 15:18:50.21
人に物を説明したことがない人なんだろうな
2020/08/09(日) 15:39:22.78
視野が狭いんだろうな
見識的な意味でも視覚的な意味でも
>特定の書式を使用して文字列または数値を検索するには、[書式] をクリックし、[書式の検索] ダイアログボックスで選択します。
https://support.microsoft.com/ja-jp/office/%E3%83%AF%E3%83%BC%E3%82%AF%E3%82%B7%E3%83%BC%E3%83%88%E3%81%AE%E6%96%87%E5%AD%97%E5%88%97%E3%81%A8%E6%95%B0%E5%80%A4%E3%82%92%E6%A4%9C%E7%B4%A2%E3%81%BE%E3%81%9F%E3%81%AF%E7%BD%AE%E6%8F%9B%E3%81%99%E3%82%8B-0e304ca5-ecef-4808-b90f-fdb42f892e90
見識的な意味でも視覚的な意味でも
>特定の書式を使用して文字列または数値を検索するには、[書式] をクリックし、[書式の検索] ダイアログボックスで選択します。
https://support.microsoft.com/ja-jp/office/%E3%83%AF%E3%83%BC%E3%82%AF%E3%82%B7%E3%83%BC%E3%83%88%E3%81%AE%E6%96%87%E5%AD%97%E5%88%97%E3%81%A8%E6%95%B0%E5%80%A4%E3%82%92%E6%A4%9C%E7%B4%A2%E3%81%BE%E3%81%9F%E3%81%AF%E7%BD%AE%E6%8F%9B%E3%81%99%E3%82%8B-0e304ca5-ecef-4808-b90f-fdb42f892e90
2020/08/09(日) 15:51:13.10
説明が下手
お前
お前
2020/08/09(日) 21:12:34.71
見識的な意味w
310名無しさん@そうだ選挙にいこう
2020/08/11(火) 21:45:52.90 てす
2020/08/13(木) 23:07:43.78
盆休みだから見てるけどどのチャンネルもワイドショーやべえな
こんなの毎日毎日見てたら脳が衰えてる年寄りは洗脳されるわ
それにしたって日本人は知性無くなりすぎだと思う
こんなの毎日毎日見てたら脳が衰えてる年寄りは洗脳されるわ
それにしたって日本人は知性無くなりすぎだと思う
2020/08/13(木) 23:11:37.00
またそのコピペか
2020/08/13(木) 23:30:13.66
Excelの話しようぜ!
2020/08/13(木) 23:31:44.93
SUMPRODUCTの必要性について
どうぞ
どうぞ
2020/08/14(金) 14:32:58.85
知ってるとドヤ顔できるけど役に立ったことはない
たいがい作業列を作れば解決できるし
たいがい作業列を作れば解決できるし
316名無しさん@そうだ選挙にいこう
2020/08/14(金) 19:48:42.45 Excel2019で、
ScreenUpdating = False にしても、CopyFromRecordset で勝手に描画する
という不具合が発生してるように見えるんですが、どうですか?
(もしくは ActiveChart.Axes を設定すると勝手に描画する、のいずれか)
具体的には別のシートに CopyFromRecordset を使っていて、そのシートを参照するグラフが表示中のシートにある
新しいデータを元に、ActiveChart.Axes を再設定する前(または設定しきる前)に、新しいデータがグラフに表示される
なので一瞬グラフが目盛の範囲外に吹っ飛んでから、正しい位置に補正される
Excel2013では起きなかった
ScreenUpdating = False にしても、CopyFromRecordset で勝手に描画する
という不具合が発生してるように見えるんですが、どうですか?
(もしくは ActiveChart.Axes を設定すると勝手に描画する、のいずれか)
具体的には別のシートに CopyFromRecordset を使っていて、そのシートを参照するグラフが表示中のシートにある
新しいデータを元に、ActiveChart.Axes を再設定する前(または設定しきる前)に、新しいデータがグラフに表示される
なので一瞬グラフが目盛の範囲外に吹っ飛んでから、正しい位置に補正される
Excel2013では起きなかった
317名無しさん@そうだ選挙にいこう
2020/08/14(金) 20:07:05.03 ていうかイミディエイトウィンドウで
Application.ScreenUpdating = False
?Application.ScreenUpdating
True
そもそも ScreenUpdating 自体を廃止?
Application.ScreenUpdating = False
?Application.ScreenUpdating
True
そもそも ScreenUpdating 自体を廃止?
318牧野 ◆Vbs7gX72NY
2020/08/14(金) 20:09:20.04 >>316
図形やオブジェクトが絡むと再描画されることが多い
理由は多分、単純に適用の範囲外かなんかだろう。誰か詳しい人が答えてくれると思う
何にしろ、図形を再描画しても
ScreenUpdating = False
自体はそのままなので図形を連続で描画でもしない限り、パフォーマンスにはそれほど影響しないはず
Sub foo()
Debug.Print ScreenUpdating
ScreenUpdating = False
Debug.Print ScreenUpdating
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 78, 162.75, 125.25, 121.5).Select
Debug.Print ScreenUpdating
ScreenUpdating = True
Debug.Print ScreenUpdating
End Sub
図形やオブジェクトが絡むと再描画されることが多い
理由は多分、単純に適用の範囲外かなんかだろう。誰か詳しい人が答えてくれると思う
何にしろ、図形を再描画しても
ScreenUpdating = False
自体はそのままなので図形を連続で描画でもしない限り、パフォーマンスにはそれほど影響しないはず
Sub foo()
Debug.Print ScreenUpdating
ScreenUpdating = False
Debug.Print ScreenUpdating
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 78, 162.75, 125.25, 121.5).Select
Debug.Print ScreenUpdating
ScreenUpdating = True
Debug.Print ScreenUpdating
End Sub
319名無しさん@そうだ選挙にいこう
2020/08/14(金) 20:21:04.49 >>318
さんくす
イミディエイトウィンドウでプロパティを設定しても保持されないのか
しかし、
Sub foo()
ScreenUpdating = False
Debug.Print ScreenUpdating
ActiveCell = 1
Debug.Print ScreenUpdating
End Sub
プロパティは保持されるものの、シートに「1」って表示されるw
そういうもんでしたっけ?
さんくす
イミディエイトウィンドウでプロパティを設定しても保持されないのか
しかし、
Sub foo()
ScreenUpdating = False
Debug.Print ScreenUpdating
ActiveCell = 1
Debug.Print ScreenUpdating
End Sub
プロパティは保持されるものの、シートに「1」って表示されるw
そういうもんでしたっけ?
320牧野 ◆Vbs7gX72NY
2020/08/14(金) 20:29:09.492020/08/14(金) 21:08:46.26
知らないなら書くなよ
322名無しさん@そうだ選挙にいこう
2020/08/14(金) 22:33:57.902020/08/14(金) 23:23:13.85
>>321
答えが出るまで1000年ROMってろ
答えが出るまで1000年ROMってろ
324牧野 ◆Vbs7gX72NY
2020/08/15(土) 10:59:34.17 >>322
あと、ScreenUpdatingについての根本的なお話
http://officetanaka.net/excel/vba/speed/s1.htm
ScreenUpdatingが不要になるような記述が好ましいかな、と思います
あと、ScreenUpdatingについての根本的なお話
http://officetanaka.net/excel/vba/speed/s1.htm
ScreenUpdatingが不要になるような記述が好ましいかな、と思います
2020/08/15(土) 11:59:09.22
おまえら根本的なところが間違ってるぞ
まず>>319はプロパティが設定できてない
まったく無関係なVariant型の変数にFalseを代入してるだけ
正しくはこう
Sub foo()
Application.ScreenUpdating = False
Debug.Print Application.ScreenUpdating
ActiveCell = 1
Debug.Print Application.ScreenUpdating
End Sub
そして、プロセスが終了するとこのプロパティは自動的にTrueに戻る仕様だから画面も書き換わる
まず>>319はプロパティが設定できてない
まったく無関係なVariant型の変数にFalseを代入してるだけ
正しくはこう
Sub foo()
Application.ScreenUpdating = False
Debug.Print Application.ScreenUpdating
ActiveCell = 1
Debug.Print Application.ScreenUpdating
End Sub
そして、プロセスが終了するとこのプロパティは自動的にTrueに戻る仕様だから画面も書き換わる
2020/08/15(土) 15:51:35.34
【1 OSの種類 .】 Windows8.1
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
マンションの駐車場の抽選を行います。
駐車場は45ヵ所あり,世帯数も45ヵ所あります。
駐車場を希望しない世帯がある反面,2台目を希望する世帯もあり,申込数は45を越えます。
まず,駐車場を希望するすべての世帯に必ず1台目の駐車場は割り当てられます。
全世帯に1ヵ所ずつの駐車場が割り当たったあと,残った駐車場に対して,2台目を希望する世帯で抽選します。
(1) 駐車場には1〜45までの番号が振ってあります。
(2) 世帯は201〜205,・・・1001〜1005の45世帯です。
(3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
(4) 各世帯にRAND関数などで,1〜45まで抽選順位を付けます。
(5) その順位によって,その世帯が希望する順位の高い番号の駐車場を割り当てます。
例年は,全世帯から一人ずつ集まり,くじ引きを行い,その数字が小さかった人から,希望する駐車場の場所を選んでいきました。
(3)のようなこともしていなかったため,その場で「う〜ん,どこがいいかしら?あら,ここがよかったんだけど,もう決まっちゃってるのね」と数分悩む方もいて,無駄に時間がかかっていました。
今年度は三密を避けるために,例年のように抽選会が開けないため,(4)の方法で順位を付けることになりましたが,
(5)においては,(3)の内容が記入された用紙を見ながらアナログで割り当てていくことにしました。
この(5)と(3)を関連付け,自動的に行うことはできないでしょうか?
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
マンションの駐車場の抽選を行います。
駐車場は45ヵ所あり,世帯数も45ヵ所あります。
駐車場を希望しない世帯がある反面,2台目を希望する世帯もあり,申込数は45を越えます。
まず,駐車場を希望するすべての世帯に必ず1台目の駐車場は割り当てられます。
全世帯に1ヵ所ずつの駐車場が割り当たったあと,残った駐車場に対して,2台目を希望する世帯で抽選します。
(1) 駐車場には1〜45までの番号が振ってあります。
(2) 世帯は201〜205,・・・1001〜1005の45世帯です。
(3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
(4) 各世帯にRAND関数などで,1〜45まで抽選順位を付けます。
(5) その順位によって,その世帯が希望する順位の高い番号の駐車場を割り当てます。
例年は,全世帯から一人ずつ集まり,くじ引きを行い,その数字が小さかった人から,希望する駐車場の場所を選んでいきました。
(3)のようなこともしていなかったため,その場で「う〜ん,どこがいいかしら?あら,ここがよかったんだけど,もう決まっちゃってるのね」と数分悩む方もいて,無駄に時間がかかっていました。
今年度は三密を避けるために,例年のように抽選会が開けないため,(4)の方法で順位を付けることになりましたが,
(5)においては,(3)の内容が記入された用紙を見ながらアナログで割り当てていくことにしました。
この(5)と(3)を関連付け,自動的に行うことはできないでしょうか?
2020/08/15(土) 15:53:42.21
追記
(3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
については,
希望順位1位=駐車場番号23
希望順位2位=駐車場番号11
希望順位3位=駐車場番号30
・・・
ということです。
(3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
については,
希望順位1位=駐車場番号23
希望順位2位=駐車場番号11
希望順位3位=駐車場番号30
・・・
ということです。
2020/08/15(土) 16:09:43.45
2020/08/15(土) 17:09:15.22
330牧野 ◆Vbs7gX72NY
2020/08/15(土) 17:11:19.96 >>326
・45世帯から用紙を徴収して、RAND順に並び替える
・駐車場の一覧で空きを見ながら順に決定していく
・2台目移行希望の人は2周目で同じように決めていく
一回キリだしエクセルに入力するよりも早いと思う
・45世帯から用紙を徴収して、RAND順に並び替える
・駐車場の一覧で空きを見ながら順に決定していく
・2台目移行希望の人は2周目で同じように決めていく
一回キリだしエクセルに入力するよりも早いと思う
2020/08/15(土) 17:21:34.46
紙でやれよ
2020/08/15(土) 17:45:16.12
そもそも
> (3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
とか面倒くさすぎるだろw
1〜3位
> (3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
とか面倒くさすぎるだろw
1〜3位
2020/08/15(土) 17:47:23.31
すまん、途中で書き込んでしまった
そもそも
> (3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
とか申請する方も面倒くさすぎるだろw
1〜3位ぐらいまで書いてもらって割り当てきらなかったらこっちで割り当てますってやった方がいいと思うよ
そもそも
> (3) 全世帯に,希望する駐車場所(駐車番号)を希望順位が高い順に1〜45まで記入して貰います。
とか申請する方も面倒くさすぎるだろw
1〜3位ぐらいまで書いてもらって割り当てきらなかったらこっちで割り当てますってやった方がいいと思うよ
2020/08/15(土) 17:50:19.99
目的と手段を取り違えてるね
そもそも避けたいのは三密だろうが
Excelでやる必要はない
そもそも避けたいのは三密だろうが
Excelでやる必要はない
2020/08/15(土) 17:50:44.88
どうせ人気な場所は集中するから
9区画にわけて順番つけてもらって、並びは管理人がしたらいい
9区画にわけて順番つけてもらって、並びは管理人がしたらいい
336名無しさん@そうだ選挙にいこう
2020/08/15(土) 18:08:05.52 紙をシャッフルしてRANDの代わりにすればいい
そうすれば1枚目から手作業で埋めていけばいい
それに45番まで書かない人とか絶対にでてくるから面倒くさくなるぞ
そうすれば1枚目から手作業で埋めていけばいい
それに45番まで書かない人とか絶対にでてくるから面倒くさくなるぞ
2020/08/15(土) 18:08:36.37
書込み中・・・
ERROR!
ERROR: レスアンカー多すぎます! (Anchor count:6)
問い合わせID:mevius/5c31c3e45f8eefaa
ホスト:118.206.30.125.bf.2iij.net
名前: 名無しさん@そうだ選挙にいこう
E-mail: sage
内容:
皆さん,レス,ありがとうございました。
>>330
今回は,まさしくその手順で行うことになっています。
>>332-333
駐車場所によって利便性や快適性などが異なるため,1〜45まで決めて貰うことになりました。
私もその点には賛成しました。
>>335
これまでも,抽選会に参加せず「完全委任」する方は,数台×6区画に分けたうちの,6区画にのみ1〜6位の希望順位を付けて貰っていました。
そういう方は,区画内の場所には細かくこだわらないため,それでよいのだと思います。
>>331
紙の方が速いようですね。
>>334
今年度は三密を避けたいという理由ですが,来年度以降も無駄に時間がかかる抽選会は勘弁して欲しいと思っています。
それで,EXCELでできれば,その方法を提案できると考えました。
今回は紙の方が速いとわかりました。
ただ,単純に後学のために手法を知りたいと思ったまでです。
ERROR!
ERROR: レスアンカー多すぎます! (Anchor count:6)
問い合わせID:mevius/5c31c3e45f8eefaa
ホスト:118.206.30.125.bf.2iij.net
名前: 名無しさん@そうだ選挙にいこう
E-mail: sage
内容:
皆さん,レス,ありがとうございました。
>>330
今回は,まさしくその手順で行うことになっています。
>>332-333
駐車場所によって利便性や快適性などが異なるため,1〜45まで決めて貰うことになりました。
私もその点には賛成しました。
>>335
これまでも,抽選会に参加せず「完全委任」する方は,数台×6区画に分けたうちの,6区画にのみ1〜6位の希望順位を付けて貰っていました。
そういう方は,区画内の場所には細かくこだわらないため,それでよいのだと思います。
>>331
紙の方が速いようですね。
>>334
今年度は三密を避けたいという理由ですが,来年度以降も無駄に時間がかかる抽選会は勘弁して欲しいと思っています。
それで,EXCELでできれば,その方法を提案できると考えました。
今回は紙の方が速いとわかりました。
ただ,単純に後学のために手法を知りたいと思ったまでです。
2020/08/15(土) 18:39:15.28
ふざけんなよ
他人に時間無駄に使わせんなよ
他人に時間無駄に使わせんなよ
2020/08/15(土) 18:39:46.56
>>329
まず45*46の二次元配列と、45項目の駐車場配列を用意
二次元配列の片方が46項目あるのは部屋番号を一緒に入れておくため
乱数で順番を決めて第一希望から順に選び、駐車場テーブルに部屋番号を入れてく
あとはその繰り返し
プログラムとしてはきわめて単純
データ入力が最大のネック
まず45*46の二次元配列と、45項目の駐車場配列を用意
二次元配列の片方が46項目あるのは部屋番号を一緒に入れておくため
乱数で順番を決めて第一希望から順に選び、駐車場テーブルに部屋番号を入れてく
あとはその繰り返し
プログラムとしてはきわめて単純
データ入力が最大のネック
2020/08/15(土) 18:41:42.16
47項目にして希望台数も入れた方がいいかな
希望台数をカウンターの代わりにして選ばれるたびにデクリメント
そうすれば、駐車場を使わない人の処理を別に作らなくて済む
希望台数をカウンターの代わりにして選ばれるたびにデクリメント
そうすれば、駐車場を使わない人の処理を別に作らなくて済む
2020/08/15(土) 18:53:20.81
住民アンケートもexcelでやりそう
統計の知識無しで
統計の知識無しで
2020/08/15(土) 19:00:46.31
エクセルを立ち上げたときにユーザーフォームのみが立ち上がって
起動メニューのようにしているのですが、
起動するときユーザーフォームの前に一瞬、ブック内のエクセルのシートがチラついて表示されてしまいます。
これは仕方のない事なのでしょうか?
起動メニューのようにしているのですが、
起動するときユーザーフォームの前に一瞬、ブック内のエクセルのシートがチラついて表示されてしまいます。
これは仕方のない事なのでしょうか?
2020/08/15(土) 19:30:47.52
>>339
> 二次元配列の片方が46項目あるのは部屋番号を一緒に入れておくため
老害すぎるw
Type 希望駐車場
部屋番号 As Integer
駐車場(1 To 45) As Integer
End Type
Dim 希望(1 To 45) As 希望駐車場
ってやるべきだろ
※ 型名/変数名はテキトー
> 二次元配列の片方が46項目あるのは部屋番号を一緒に入れておくため
老害すぎるw
Type 希望駐車場
部屋番号 As Integer
駐車場(1 To 45) As Integer
End Type
Dim 希望(1 To 45) As 希望駐車場
ってやるべきだろ
※ 型名/変数名はテキトー
2020/08/15(土) 19:39:05.00
部屋番号をintで持つのも違う気がする
stringじゃない?
stringじゃない?
2020/08/15(土) 20:20:14.28
そんなのを配布すんの?
やり方わからないってジジイの対応方法考える方が時間かかるわ
やり方わからないってジジイの対応方法考える方が時間かかるわ
2020/08/15(土) 20:38:31.41
2020/08/15(土) 21:01:28.85
もう二度と出てくるなよ!
2020/08/15(土) 21:59:09.83
お文具さんって知ってる?
2020/08/15(土) 22:25:49.44
sumproduct使うやつなんて今時いない
351名無しさん@そうだ選挙にいこう
2020/08/16(日) 02:57:31.89 >>326
A列に部屋番号
B列に希望順位
C列に希望注射場番号
D列に「乱数込みの希望順位」として =B2+RAND()
タイトルと45x45なので2026行できるはず
出来上がったら「乱数込みの希望順位」列でソートする
続いて目測で上から順に決定していく
自動判定の計算式を考える時間より目測のほうが遥かに早い
当選の〇を入力したら以下は斜線が引かれるなどの判定を補助する書式設定とかをつけた方がいいかもね
A列に部屋番号
B列に希望順位
C列に希望注射場番号
D列に「乱数込みの希望順位」として =B2+RAND()
タイトルと45x45なので2026行できるはず
出来上がったら「乱数込みの希望順位」列でソートする
続いて目測で上から順に決定していく
自動判定の計算式を考える時間より目測のほうが遥かに早い
当選の〇を入力したら以下は斜線が引かれるなどの判定を補助する書式設定とかをつけた方がいいかもね
2020/08/16(日) 05:00:45.01
それ使う意味ないだろ?
目的がわかってないの?
目的がわかってないの?
353牧野 ◆Vbs7gX72NY
2020/08/16(日) 06:43:44.04 >>351
>続いて目測で上から順に決定していく
>自動判定の計算式を考える時間より目測のほうが遥かに早い
>当選の〇を入力したら以下は斜線が引かれるなどの判定を補助する書式設定とかをつけた方がいいかもね
E列に一位判定用を作ってフィルタとかでいいんじゃないか
E2=B2<>B1
TRUEでフィルタすれば当選者一覧になるはず
>続いて目測で上から順に決定していく
>自動判定の計算式を考える時間より目測のほうが遥かに早い
>当選の〇を入力したら以下は斜線が引かれるなどの判定を補助する書式設定とかをつけた方がいいかもね
E列に一位判定用を作ってフィルタとかでいいんじゃないか
E2=B2<>B1
TRUEでフィルタすれば当選者一覧になるはず
2020/08/16(日) 06:52:07.04
>>350
sumproductの代わりに今時は何を使ってるんですか?
sumproductの代わりに今時は何を使ってるんですか?
2020/08/16(日) 17:57:37.36
>>354
SUM!
SUM!
2020/08/16(日) 20:56:15.53
2020/08/16(日) 22:53:24.33
>>356
aggregateでいけるかも
aggregateでいけるかも
2020/08/17(月) 00:05:17.52
SUMPRODUCT派って結構いるのかね?
2020/08/17(月) 01:01:29.14
フィルタならsubtotalだろうに
でもaggrigateはエラーを無視して合計出せるというので助かる
でもaggrigateはエラーを無視して合計出せるというので助かる
2020/08/17(月) 03:15:04.51
EXCEL2020でCtrlキーを押しながら複数の行を選択しながら行の幅を変えようとするとフリーズします。Ctrlキーを離して通常幅を変更すると問題なくできます。
対応方法はないでしょうか?
対応方法はないでしょうか?
2020/08/17(月) 04:07:51.68
あります
2020/08/17(月) 07:59:44.62
治りました
2020/08/17(月) 08:01:52.47
Excel2020!
2020/08/17(月) 15:36:04.93
お世話なります。VBAを勉強中のものでして
=IF(C2>=80,"優",IF(C2>=70,"良",IF(C2>=50,"可","不")))
これを
Function test(c) As String
If c >= 80 Then
test = "優"
End If
If c >= 70 Then
test = "良"
End If
If c >= 50 Then
test = "可"
Else
test = "不"
End If
End Function
とすると、74でも「可」しかでなくなりました。
知恵をお貸し頂ければ幸いです。
=IF(C2>=80,"優",IF(C2>=70,"良",IF(C2>=50,"可","不")))
これを
Function test(c) As String
If c >= 80 Then
test = "優"
End If
If c >= 70 Then
test = "良"
End If
If c >= 50 Then
test = "可"
Else
test = "不"
End If
End Function
とすると、74でも「可」しかでなくなりました。
知恵をお貸し頂ければ幸いです。
2020/08/17(月) 17:50:51.44
>>365
条件達成したらexit function
条件達成したらexit function
2020/08/17(月) 17:52:09.70
それか逆から判定するかselect caseで場合分けするか
2020/08/17(月) 18:27:40.34
369名無しさん@そうだ選挙にいこう
2020/08/17(月) 18:35:08.46 >>365
Function test(rng As Range) As String
Dim c As Long
c = rng.Value
If c >= 80 Then
test = "優"
ElseIf c < 80 And c >= 70 Then
test = "良"
ElseIf c < 70 And c >= 50 Then
test = "可"
Else
test = "不"
End If
End Function
シート上で"=test"を入力して得点が入力されているセル番地を入力すれば答えが出る
Function test(rng As Range) As String
Dim c As Long
c = rng.Value
If c >= 80 Then
test = "優"
ElseIf c < 80 And c >= 70 Then
test = "良"
ElseIf c < 70 And c >= 50 Then
test = "可"
Else
test = "不"
End If
End Function
シート上で"=test"を入力して得点が入力されているセル番地を入力すれば答えが出る
2020/08/17(月) 19:41:34.42
>>365
VBA の Select Case でいいかと
Function test(c) As String
Select Case c
Case Is >= 80
test = "優"
Case Is >= 70
test = "良"
Case Is >= 50
test = "可"
Case Else
test = "不"
End Select
End Function
VBA の Select Case でいいかと
Function test(c) As String
Select Case c
Case Is >= 80
test = "優"
Case Is >= 70
test = "良"
Case Is >= 50
test = "可"
Case Else
test = "不"
End Select
End Function
371牧野 ◆Vbs7gX72NY
2020/08/17(月) 20:57:27.04 >>369
可読性悪いかねぇ
Function test(rng As Range) As String
Dim c As Long
c = rng.Value * 1
If c >= 80 Then
test = "優"
ElseIf c >= 70 Then
test = "良"
ElseIf c >= 50 Then
test = "可"
Else
test = "不"
End If
End Function
可読性悪いかねぇ
Function test(rng As Range) As String
Dim c As Long
c = rng.Value * 1
If c >= 80 Then
test = "優"
ElseIf c >= 70 Then
test = "良"
ElseIf c >= 50 Then
test = "可"
Else
test = "不"
End If
End Function
2020/08/17(月) 21:21:36.98
373名無しさん@そうだ選挙にいこう
2020/08/17(月) 22:19:23.29374牧野 ◆Vbs7gX72NY
2020/08/17(月) 22:26:29.34375名無しさん@そうだ選挙にいこう
2020/08/17(月) 22:31:21.19 >>374
最初に質問者のコードを見たときにエラーが出るんじゃないかと思って変えた
でも、後から変える前の奴を試してもちゃんと動いたから、いらない変更だった
個人的には自分の奴のほうがわかりやすいとは思うけど
最初に質問者のコードを見たときにエラーが出るんじゃないかと思って変えた
でも、後から変える前の奴を試してもちゃんと動いたから、いらない変更だった
個人的には自分の奴のほうがわかりやすいとは思うけど
376名無しさん@そうだ選挙にいこう
2020/08/18(火) 00:33:43.22 >>365
Function test(c) As String
test = WorksheetFunction.HLookup(c, Array(Array(0, 50, 70, 80), Array("不", "可", "良", "優")), 2, True)
End Function
俺からも
可読性いいでしょw
Function test(c) As String
test = WorksheetFunction.HLookup(c, Array(Array(0, 50, 70, 80), Array("不", "可", "良", "優")), 2, True)
End Function
俺からも
可読性いいでしょw
377376
2020/08/18(火) 01:30:49.20 Function test2(c) As String
test2 = Choose(1 - (c >= 50) - (c >= 70) - (c >= 80), "不", "可", "良", "優")
End Function
可読性を損なわず、もうちょっと短くできたよw
test2 = Choose(1 - (c >= 50) - (c >= 70) - (c >= 80), "不", "可", "良", "優")
End Function
可読性を損なわず、もうちょっと短くできたよw
2020/08/18(火) 06:03:31.70
test = Mid("不不不不不可可良優優優", c \ 10 + 1, 1)
2020/08/18(火) 06:14:12.18
test = Mid("不可良優",1 - (c >= 50) - (c >= 70) - (c >= 80),1)
2020/08/18(火) 09:29:30.44
test=IIF(c>=80, "優" , IIF(c>=70 , "良" , IIF(c>=50 , "可" , "不")))
2020/08/18(火) 11:52:29.69
>>365
その書き方だと得点の高い方から判定するとおかしくなる
50点以上なら80点でも100点でもみんな可になってしまう
こういう時は低い方から判定すればいい
Function test(c) As String
test = "不"
If c >= 50 Then test = "可"
If c >= 70 Then test = "良"
If c >= 80 Then test = "優"
End Function
その書き方だと得点の高い方から判定するとおかしくなる
50点以上なら80点でも100点でもみんな可になってしまう
こういう時は低い方から判定すればいい
Function test(c) As String
test = "不"
If c >= 50 Then test = "可"
If c >= 70 Then test = "良"
If c >= 80 Then test = "優"
End Function
2020/08/18(火) 12:16:31.42
アホ
Selectでやれ
Selectでやれ
2020/08/18(火) 13:02:59.74
>>381
いまだにこんなコーディングするアホがいるのか?w
いまだにこんなコーディングするアホがいるのか?w
384>>365
2020/08/18(火) 17:16:18.12 皆様ありがとうございます。
様々なレスがついて驚きました。
やはり書き方は千差万別なんですね。
関数ばかり触ってきたのでIFのネストが癖になっており
IF〜End IF , IF〜End IFでSelect Caseのような分岐ができると
ばかり思っていました。
ElseIfを知り、無事に(?)自身のなかでの問題が解決しました。
レスをしていただいた皆様、本当に感謝します。
様々なレスがついて驚きました。
やはり書き方は千差万別なんですね。
関数ばかり触ってきたのでIFのネストが癖になっており
IF〜End IF , IF〜End IFでSelect Caseのような分岐ができると
ばかり思っていました。
ElseIfを知り、無事に(?)自身のなかでの問題が解決しました。
レスをしていただいた皆様、本当に感謝します。
385>>365
2020/08/18(火) 17:27:57.082020/08/18(火) 17:53:51.54
自己解決しました。
2020/08/18(火) 20:34:01.60
別にIFのネストは問題なくできる
書き方が悪いだけ
書き方が悪いだけ
2020/08/18(火) 20:54:59.74
初心者です
初めて書き込みます
毎日にその日の取引先をプリントアウトし、事前にある定められた((取引会社名)(送り先)約100)に該当するものを目視でチェックしマーカーを引いています。
物凄い時間がかかり何とかならないかと思っています
該当する取引先だけ背景が色を変えるとか
最悪、該当する取引先だけ抽出できないでしょうか?
初めて書き込みます
毎日にその日の取引先をプリントアウトし、事前にある定められた((取引会社名)(送り先)約100)に該当するものを目視でチェックしマーカーを引いています。
物凄い時間がかかり何とかならないかと思っています
該当する取引先だけ背景が色を変えるとか
最悪、該当する取引先だけ抽出できないでしょうか?
2020/08/18(火) 20:58:09.20
2020/08/18(火) 21:09:46.50
その日の取引先名称、送り先名称、日付やら品名やら取引番号などのデータ
一覧から
予め決められた取引先名称or送り先名称があるところをわかるようにしたい
今は一覧をプリントアウトして、いちいち人力でその該当する取引をチェックしています
一覧から
予め決められた取引先名称or送り先名称があるところをわかるようにしたい
今は一覧をプリントアウトして、いちいち人力でその該当する取引をチェックしています
2020/08/18(火) 21:14:19.84
完成形というか一覧に手書きのチェックだけです
手書きのチェックは面倒ではありませんが、片手に別紙で100もの取引先名称と送り先名称を確認しながら、プリントアウトした一覧にチェックを入れています
手書きのチェックは面倒ではありませんが、片手に別紙で100もの取引先名称と送り先名称を確認しながら、プリントアウトした一覧にチェックを入れています
2020/08/18(火) 21:15:31.55
確認作業が面倒で時間がかかります
2020/08/18(火) 21:32:25.99
どんな作業してんのか全然わからん
説明下手すぎかよ
説明下手すぎかよ
2020/08/18(火) 21:34:26.15
エスパーすると条件付き書式で検索しろ
2020/08/18(火) 21:38:41.39
とんでもない無能臭がする
2020/08/18(火) 21:59:57.87
http://www.onnet.co.jp/wp/wp-content/uploads/-e1433306608865.png
例えば、この表を例にでも、、、
予め決められた約100ものリストから該当する得意先と出庫置場であれば
この表の行のカラーを変えるとか該当するものだけ抽出できればいいわけです
勿論、この表をexcelで扱っての話
例えば、この表を例にでも、、、
予め決められた約100ものリストから該当する得意先と出庫置場であれば
この表の行のカラーを変えるとか該当するものだけ抽出できればいいわけです
勿論、この表をexcelで扱っての話
2020/08/18(火) 22:12:19.04
>>396
エクセルの一番左端に1とか2とか書いてありますよね?
それを「行(ぎょう)」と言います
その1とか2とか書いてあるところを左クリックします
クリックした行全ての色が変わりましたね?
エクセルの上の方にペンキマークと▼マークがあると思います
ペンキマークの右側の▼マークを左クリックしてください
沢山の色が出てきました
好きな色を選んで左クリックしてください
これで完成です
エクセルの一番左端に1とか2とか書いてありますよね?
それを「行(ぎょう)」と言います
その1とか2とか書いてあるところを左クリックします
クリックした行全ての色が変わりましたね?
エクセルの上の方にペンキマークと▼マークがあると思います
ペンキマークの右側の▼マークを左クリックしてください
沢山の色が出てきました
好きな色を選んで左クリックしてください
これで完成です
2020/08/18(火) 22:15:40.69
C#のくっそ安っぽいウインドウきらい
2020/08/18(火) 22:19:58.13
システム作った部門に脳ミソが1グラムでも入ってたら
“エクセルに出力”ボタンつけるよね…
“エクセルに出力”ボタンつけるよね…
2020/08/18(火) 22:21:01.09
ひとつ人力で行の色を変えろと?(笑)
例えば
予め定められたリストとして
(得意先) (出庫置場名)
金沢商店 山下倉庫
渡辺エンジニア 木沢倉庫3
以下50 以下50
の表もあるとします
できれば、この表にある得意先や出庫置場に該当するところだけ、396の表の行を変えたいもしくは抽出できればと思っています
例えば
予め定められたリストとして
(得意先) (出庫置場名)
金沢商店 山下倉庫
渡辺エンジニア 木沢倉庫3
以下50 以下50
の表もあるとします
できれば、この表にある得意先や出庫置場に該当するところだけ、396の表の行を変えたいもしくは抽出できればと思っています
2020/08/18(火) 22:23:28.68
2020/08/18(火) 22:23:34.68
勿論、エクセルで扱えるからきいているんです
2020/08/18(火) 22:25:19.40
>>402
あんた誰?
あんた誰?
2020/08/18(火) 22:25:49.70
countifでいいんじゃないですか
2020/08/18(火) 22:26:52.58
>>388
お前みたいな奴に条件付き書式は使いこなせないから人力で色塗りな
お前みたいな奴に条件付き書式は使いこなせないから人力で色塗りな
2020/08/18(火) 22:36:50.09
画面に細く切ったセロファンを貼れば色塗りしなくていいよ
http://wamblog.ascii.jp/images/nkmr090330_03.jpg
http://wamblog.ascii.jp/images/nkmr090330_03.jpg
2020/08/18(火) 22:40:14.62
それを社内のバソコン全部に貼るのですか?
2020/08/18(火) 22:44:02.56
いくつか質問があるんだけんどまず1つ
A B C
1
2 あああ AAA 100
3 いいい BBB 200
4 ううう EEE 300
5 おおお AAA 400
6 あああ CCC 500
7 あああ AAA 600
みたいな元データがあるとします
=UNIQUE(A:A)
とすると先頭に0が出てきますが
=UNIQUE(INDIRECT("A2:A"&COUNTA(A:A)+1))
としないとダメ?
A B C
1
2 あああ AAA 100
3 いいい BBB 200
4 ううう EEE 300
5 おおお AAA 400
6 あああ CCC 500
7 あああ AAA 600
みたいな元データがあるとします
=UNIQUE(A:A)
とすると先頭に0が出てきますが
=UNIQUE(INDIRECT("A2:A"&COUNTA(A:A)+1))
としないとダメ?
2020/08/18(火) 22:44:58.72
>>408
ごめん、AA編集モードで書いたからズレた
ごめん、AA編集モードで書いたからズレた
2020/08/18(火) 22:47:39.47
膨大にあるのでマーカーでレ点をパッパッと付けていっているだけなので、綺麗さは求めませんが、、、
一覧用紙で欲しいのです(笑)
モニターに抽出されたものであればそれを見て手でチェックするという方法でも、100倍効率があがると思っています
一覧用紙で欲しいのです(笑)
モニターに抽出されたものであればそれを見て手でチェックするという方法でも、100倍効率があがると思っています
2020/08/18(火) 22:55:28.98
2つめ
A B C
1
2 あああ AAA 100
3 いいい BBB 200
4 ううう EEE 300
5 おおお AAA 400
6 あああ CCC 500
7 あああ AAA 600
この元データの集計表をテーブル化しないでうまい事作りたい
左端は
=UNIQUE(INDIRECT("A2:A"&COUNTA(A:A)+1))
上は
=TRANSPOSE(UNIQUE(INDIRECT("B2:B"&COUNTA(B:B)+1)))
でマトリックス表を作り
マトリの中身をどうすればいいか悩んでます
SUMIFSで何とかなりそうだけどテーブル化してないとA列が行増えたりB列にFFFみたいに新しい項目が入った時に対応出来ないんですよねぇぇぇ
A B C
1
2 あああ AAA 100
3 いいい BBB 200
4 ううう EEE 300
5 おおお AAA 400
6 あああ CCC 500
7 あああ AAA 600
この元データの集計表をテーブル化しないでうまい事作りたい
左端は
=UNIQUE(INDIRECT("A2:A"&COUNTA(A:A)+1))
上は
=TRANSPOSE(UNIQUE(INDIRECT("B2:B"&COUNTA(B:B)+1)))
でマトリックス表を作り
マトリの中身をどうすればいいか悩んでます
SUMIFSで何とかなりそうだけどテーブル化してないとA列が行増えたりB列にFFFみたいに新しい項目が入った時に対応出来ないんですよねぇぇぇ
2020/08/18(火) 23:03:47.13
>>411
D列とか好きなところに
if(countif($A$1:A1,A1)=1、MAX($D$1:D1)+1、“”)
という式をつくってユニークなナンバーを振り当てて
マトリックスにはIndex( MATCH(
で項目つくる
中身はsumifsで、縦と横からデータとってきて集計する
D列とか好きなところに
if(countif($A$1:A1,A1)=1、MAX($D$1:D1)+1、“”)
という式をつくってユニークなナンバーを振り当てて
マトリックスにはIndex( MATCH(
で項目つくる
中身はsumifsで、縦と横からデータとってきて集計する
2020/08/18(火) 23:08:42.38
2020/08/18(火) 23:11:11.06
テーブル化しないのはシステムから出てくるエクセルを文字列で張り付けて更新するから?
2020/08/18(火) 23:12:45.20
2020/08/18(火) 23:13:52.43
>>408
=UNIQUE(FILTER(A:A,A:A<>"",""))
=UNIQUE(FILTER(A:A,A:A<>"",""))
2020/08/18(火) 23:15:03.39
2020/08/18(火) 23:24:24.53
>>415
名前定義すると楽よ
名前定義すると楽よ
2020/08/18(火) 23:46:29.73
テーブルのある列に入力されている値から、重複しないデータの入力規則を作りたくて困ってます、助けてください
現在は、VBAでDictionaryを使って登録していき、JoinでKeysをカンマ区切りして登録しています
Itemを使わないのがモヤっとするので、他に良い方法がありましたら御教授いただけると幸いです
現在は、VBAでDictionaryを使って登録していき、JoinでKeysをカンマ区切りして登録しています
Itemを使わないのがモヤっとするので、他に良い方法がありましたら御教授いただけると幸いです
2020/08/18(火) 23:49:16.58
>>418
ほうほう
勝手に名前増えていかない?
あとFILTERの含むの所ってANDとかORって使えない?
配列っぽいから出来ないかな?
って思ったけどANDは*でORは+でいけたわ!
名前が勝手に増えていかなければこれでいこうかなあああああ!!!
ありがとうよ!
ほうほう
勝手に名前増えていかない?
あとFILTERの含むの所ってANDとかORって使えない?
配列っぽいから出来ないかな?
って思ったけどANDは*でORは+でいけたわ!
名前が勝手に増えていかなければこれでいこうかなあああああ!!!
ありがとうよ!
2020/08/19(水) 00:08:14.52
2020/08/19(水) 00:14:45.35
>>411
e2 =UNIQUE(FILTER(A:A,A:A<>"",""))
f1 =TRANSPOSE(UNIQUE(FILTER(B:B,B:B<>"","")))
f2 =SUMIFS(C:C,A:A,E2#,B:B,F1#)
e2 =UNIQUE(FILTER(A:A,A:A<>"",""))
f1 =TRANSPOSE(UNIQUE(FILTER(B:B,B:B<>"","")))
f2 =SUMIFS(C:C,A:A,E2#,B:B,F1#)
2020/08/19(水) 02:55:59.94
上下にスクロールするのに、セル単位でのスクロールではなくスムーズにスクロールする機能は今も実装されてないのでしょうか?
ホイールクリックからスムーズにスクロールできますが使いづらくて・・・
ホイールクリックからスムーズにスクロールできますが使いづらくて・・・
424名無しさん@そうだ選挙にいこう
2020/08/19(水) 03:21:50.702020/08/19(水) 06:58:36.67
>>423
ScrollLockキーとか、PageUp/PageDownキーとか
ScrollLockキーとか、PageUp/PageDownキーとか
2020/08/19(水) 07:42:25.06
>>422
最後の,""いらなくね?
最後の,""いらなくね?
2020/08/19(水) 09:15:23.54
うるさいんだよお前
2020/08/19(水) 11:20:00.77
VBAで動作させる場合(視認性は別として)
IFネストで
条件1-条件2=処理1
条件1-条件3=処理2
とするのと
IF 条件1&条件2=処理1
IF 条件1&条件3=処理2
とするの
どちらが軽量で処理が早いですか?
IFネストで
条件1-条件2=処理1
条件1-条件3=処理2
とするのと
IF 条件1&条件2=処理1
IF 条件1&条件3=処理2
とするの
どちらが軽量で処理が早いですか?
2020/08/19(水) 11:33:32.48
430名無しさん@そうだ選挙にいこう
2020/08/19(水) 14:04:49.07 =SUM(C2:D2:D2)
ってどういう意味でしょうか?
ってどういう意味でしょうか?
2020/08/19(水) 17:08:14.72
>>430
うち間違えでは?
うち間違えでは?
432牧野 ◆Vbs7gX72NY
2020/08/19(水) 20:14:34.57 >>430
=SUM(B3:C4:A1:D2)
試してみたけど、最も左上から最も左下のセルを参照するっぽい挙動
MSDNにも2つの参照と書いてあるので、あまり良くない使い方ではあると思う
https://support.microsoft.com/ja-jp/office/%E6%BC%94%E7%AE%97%E5%AD%90%E3%81%A8-excel-%E3%81%A7%E3%81%AE%E5%84%AA%E5%85%88%E9%A0%86%E4%BD%8D-48be406d-4975-4d31-b2b8-7af9e0e2878a
googleスプレッドシートでも同じ挙動
=SUM(B3:C4:A1:D2)
試してみたけど、最も左上から最も左下のセルを参照するっぽい挙動
MSDNにも2つの参照と書いてあるので、あまり良くない使い方ではあると思う
https://support.microsoft.com/ja-jp/office/%E6%BC%94%E7%AE%97%E5%AD%90%E3%81%A8-excel-%E3%81%A7%E3%81%AE%E5%84%AA%E5%85%88%E9%A0%86%E4%BD%8D-48be406d-4975-4d31-b2b8-7af9e0e2878a
googleスプレッドシートでも同じ挙動
2020/08/19(水) 20:16:44.21
434牧野 ◆Vbs7gX72NY
2020/08/19(水) 20:21:29.26436牧野 ◆Vbs7gX72NY
2020/08/19(水) 20:28:28.47 >>419
UNIQUE関数とか
=UNIQUE(A:A,FALSE,FALSE)
後はピボットに放り込んで一意のリストを作るってのはたまにやるかな
でもvba使えて実現できているならそれでいいんじゃない
UNIQUE関数とか
=UNIQUE(A:A,FALSE,FALSE)
後はピボットに放り込んで一意のリストを作るってのはたまにやるかな
でもvba使えて実現できているならそれでいいんじゃない
437名無しさん@そうだ選挙にいこう
2020/08/19(水) 22:18:30.72 >>435
VBAを使って自分好みのスクロールになるように作ればいい
VBAを使って自分好みのスクロールになるように作ればいい
439名無しさん@そうだ選挙にいこう
2020/08/19(水) 22:35:57.99 >>438
ごめん、セルの途中で止まってるようにの意味がわからない
ごめん、セルの途中で止まってるようにの意味がわからない
2020/08/20(木) 12:28:59.79
すいませんエクセル2019ですが
数字を入力しているセルに追加で数式を入力する場合
f.2を押してカーソルキーでセルの頭までカーソルを動かし、”=”を入力するという事をやっているのですが
何故か”=”に限ってセルの頭で入力しもセル末尾に入力されてしまいます
[12345]
↑
ここにカーソルを持って来て”=”を入力すると
[12345=]
↑
何故かここに入力される
この現象が起きるのはテンキーの”=”だけでフルキーだと普通に入力されます
質問としては
1.何故この様な事が起きるのか? ひょっとしたらエクセルではなくATOKのお節介?(ただエクセル2010ではこのようなことは無かった)
2.回避方法はどうすればいいか?
3.あるいは、こんなマヌケな方法ではなく、一発で数字の入ったセルの頭に”=”をいれたり
”=”を入れ無くても計算式として認識する方法があるのか?
(”=”なしでいきなり”+54321”とか数式を入れると文字列に変換される)
よろしくお願いします
数字を入力しているセルに追加で数式を入力する場合
f.2を押してカーソルキーでセルの頭までカーソルを動かし、”=”を入力するという事をやっているのですが
何故か”=”に限ってセルの頭で入力しもセル末尾に入力されてしまいます
[12345]
↑
ここにカーソルを持って来て”=”を入力すると
[12345=]
↑
何故かここに入力される
この現象が起きるのはテンキーの”=”だけでフルキーだと普通に入力されます
質問としては
1.何故この様な事が起きるのか? ひょっとしたらエクセルではなくATOKのお節介?(ただエクセル2010ではこのようなことは無かった)
2.回避方法はどうすればいいか?
3.あるいは、こんなマヌケな方法ではなく、一発で数字の入ったセルの頭に”=”をいれたり
”=”を入れ無くても計算式として認識する方法があるのか?
(”=”なしでいきなり”+54321”とか数式を入れると文字列に変換される)
よろしくお願いします
2020/08/20(木) 12:59:20.64
100 100 100 計
200 200 200 計
300 300 300 計
計を出すとき普通はSUMですがスピルだとどうやりますか?
200 200 200 計
300 300 300 計
計を出すとき普通はSUMですがスピルだとどうやりますか?
442名無しさん@そうだ選挙にいこう
2020/08/20(木) 13:42:29.92 テンキーにイコールあるんかいな
443名無しさん@そうだ選挙にいこう
2020/08/20(木) 16:00:16.25 質問です
ウィンドウ枠の固定で、固定した行より上の行、固定した列より左の列を表示する方法はありますか。
固定して表示する行と列は1行・1列ですが上の行や左の列に入れた内容を見たり修正したいので。
ウィンドウ枠の固定で、固定した行より上の行、固定した列より左の列を表示する方法はありますか。
固定して表示する行と列は1行・1列ですが上の行や左の列に入れた内容を見たり修正したいので。
2020/08/20(木) 16:09:03.55
ウインドウの分割?
2020/08/20(木) 16:22:58.65
そうだな
B2をアクティブにしてウインドウの分割なり固定なりを選べばいい
B2をアクティブにしてウインドウの分割なり固定なりを選べばいい
2020/08/20(木) 16:32:32.86
2020/08/20(木) 16:52:01.22
440
普通のキーボードならテンキーにイコールってないから、外付けのキーボードを使ってる?
あんまり普通じゃないから、そのキーボードのせいじゃないかな
普通のキーボードならテンキーにイコールってないから、外付けのキーボードを使ってる?
あんまり普通じゃないから、そのキーボードのせいじゃないかな
2020/08/20(木) 17:23:12.40
お世話になります。
A1 + B1 = C1
A2 + B2 = C2
の時、C列の1つでも5を超えるとき"×"が表示されるような
判定は関数で作成できますでしょうか?
無理であればVBAでも構いません。
何かヒントを頂けると幸いです。
A1 + B1 = C1
A2 + B2 = C2
の時、C列の1つでも5を超えるとき"×"が表示されるような
判定は関数で作成できますでしょうか?
無理であればVBAでも構いません。
何かヒントを頂けると幸いです。
449>>448
2020/08/20(木) 17:28:18.66 {=IF(AND(C:C<=5),"×","〇"}
自己解決しました
自己解決しました
2020/08/20(木) 17:30:59.36
>>448
COUNTIFS関数の検索条件として「5よりおおきい」を指定します。「=COUNTIFS(C:C,」に続いて『">5")』と入力し、【Enter】キーを押します。検索条件は「"(ダブルクォーテーション)」で囲みます。
つまり
=if(COUNTIFS(C:C,">5")>0,“×”,“ok”)
COUNTIFS関数の検索条件として「5よりおおきい」を指定します。「=COUNTIFS(C:C,」に続いて『">5")』と入力し、【Enter】キーを押します。検索条件は「"(ダブルクォーテーション)」で囲みます。
つまり
=if(COUNTIFS(C:C,">5")>0,“×”,“ok”)
451名無しさん@そうだ選挙にいこう
2020/08/20(木) 17:59:01.98 >>446
ありがとうございました
ありがとうございました
2020/08/20(木) 18:24:57.08
2020/08/20(木) 18:55:03.04
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel365
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
工事シートと支払シートでそれぞれ入力しているシートがあり、工事Noからそれらを紐づけて
工事No1 工事名 支払1 支払額
工事No1 工事名 支払2 支払額
工事No2 工事名 支払1 支払額
というように二つの情報をマージするようなシートを新しく出力処理を考えています
For i = 1 To 工事件数
小項番数 = 1
For j = 1 To 支払件数
If 工事データ(i, 1) = 支払データ(j, 1) Then
.Cells(tempRow, 1) = 工事データ(i, 1)
.Cells(tempRow, 2) = 小項番数
小項番数 = 小項番数 + 1
.Cells(tempRow, 3) = 工事データ(i, 2) '物件名
.Cells(tempRow, 4) = 支払データ(j, 16) '業者名
.Cells(tempRow, 5) = 支払データ(j, 17) '支払金額
tempRow = tempRow + 1
End If
Next
Next
どちらとも1000件あるので、処理時に結構時間がかかってしまうのですが完了まで1〜5分かかります
1000件ループ中に、更に1000件回すからだと思うんですが、もっと効率的な処理ありませんか…?
【2 Excelのバージョン 】 Excel365
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
工事シートと支払シートでそれぞれ入力しているシートがあり、工事Noからそれらを紐づけて
工事No1 工事名 支払1 支払額
工事No1 工事名 支払2 支払額
工事No2 工事名 支払1 支払額
というように二つの情報をマージするようなシートを新しく出力処理を考えています
For i = 1 To 工事件数
小項番数 = 1
For j = 1 To 支払件数
If 工事データ(i, 1) = 支払データ(j, 1) Then
.Cells(tempRow, 1) = 工事データ(i, 1)
.Cells(tempRow, 2) = 小項番数
小項番数 = 小項番数 + 1
.Cells(tempRow, 3) = 工事データ(i, 2) '物件名
.Cells(tempRow, 4) = 支払データ(j, 16) '業者名
.Cells(tempRow, 5) = 支払データ(j, 17) '支払金額
tempRow = tempRow + 1
End If
Next
Next
どちらとも1000件あるので、処理時に結構時間がかかってしまうのですが完了まで1〜5分かかります
1000件ループ中に、更に1000件回すからだと思うんですが、もっと効率的な処理ありませんか…?
2020/08/20(木) 19:02:13.17
2020/08/20(木) 19:06:13.80
あと支払い回数に上限があるならexit forでjのループを抜ける
456牧野 ◆Vbs7gX72NY
2020/08/20(木) 19:55:30.28 >>440
聞いたことないけど、キーボードの不調な気がする。「=」押すとendキーか↓キー辺りと合体してしまっているような
1.ATOKはしらんけどgoogleimeなどに買えてみると問題の切り分けが出来る
2.分解して埃を取るかテンキー買い替え。テンキーが独立したキーボードならドライバ再インストールなど
3.=ではなく+にしてみる。+sum(a1:b2)でも数式として認識してくれるよ。確か@でも行けた気もするけどかなりキモイからオススメしない
聞いたことないけど、キーボードの不調な気がする。「=」押すとendキーか↓キー辺りと合体してしまっているような
1.ATOKはしらんけどgoogleimeなどに買えてみると問題の切り分けが出来る
2.分解して埃を取るかテンキー買い替え。テンキーが独立したキーボードならドライバ再インストールなど
3.=ではなく+にしてみる。+sum(a1:b2)でも数式として認識してくれるよ。確か@でも行けた気もするけどかなりキモイからオススメしない
457牧野 ◆Vbs7gX72NY
2020/08/20(木) 19:58:41.69 >>453
もうちょい正確なデータをアップしてくれればかなり短縮できそうだけど、この辺で良い気がする
イベントを止める
Application.EnableEvents = False
再描画を止める
Application.ScreenUpdating = False
再計算を止める
Application.Calculation = xlCalculationManual
この3つだけでokです。
https://15g.jp/post-314/
もうちょい正確なデータをアップしてくれればかなり短縮できそうだけど、この辺で良い気がする
イベントを止める
Application.EnableEvents = False
再描画を止める
Application.ScreenUpdating = False
再計算を止める
Application.Calculation = xlCalculationManual
この3つだけでokです。
https://15g.jp/post-314/
2020/08/20(木) 20:29:11.08
>>440
そんなもんじゃないの?
俺もIndexMatch使う時、
=INDEX(C:C,MATCH(A:A,C:C,0))
↑ここにカンマ打ちたいのに、
=INDEX(C:CMATCH(A:A,C:C,0)),
↑何度やってもここに打たれちゃうことがある
しょうがないから、メモ帳に書いてからコピペしてるわ。
俺のは2013だけど、2019でも直ってないの?
そんなもんじゃないの?
俺もIndexMatch使う時、
=INDEX(C:C,MATCH(A:A,C:C,0))
↑ここにカンマ打ちたいのに、
=INDEX(C:CMATCH(A:A,C:C,0)),
↑何度やってもここに打たれちゃうことがある
しょうがないから、メモ帳に書いてからコピペしてるわ。
俺のは2013だけど、2019でも直ってないの?
2020/08/20(木) 20:39:55.57
IMEをONのまま半角入力モードにしてると入力位置がずれることがある
この場合はIMEをOFFにすればたいてい直る
この場合はIMEをOFFにすればたいてい直る
2020/08/20(木) 20:41:35.88
もちろんOFFだよ。
2020/08/20(木) 20:49:05.64
エクセルあるあるだな。
コマンドボタンがどこかにすっ飛んでいくとか、
ボタンを押下した状態の画像と、離した状態の画像が別の位置にあるとか、色々あるけど、
一番笑ったのは、何かファイルが重いな〜と思ったら、1万本の直線が綺麗に重なっていたこと。
どっから湧いてきたんだよwww
コマンドボタンがどこかにすっ飛んでいくとか、
ボタンを押下した状態の画像と、離した状態の画像が別の位置にあるとか、色々あるけど、
一番笑ったのは、何かファイルが重いな〜と思ったら、1万本の直線が綺麗に重なっていたこと。
どっから湧いてきたんだよwww
462名無しさん@そうだ選挙にいこう
2020/08/20(木) 23:23:45.97 俺のエクセルはウインドウ枠の固定をしているシートだけ、マウスクリックを数回するだけで勝手に複数のセル範囲を選択してしまう
おそらく、SHIFTキーを押した状態になっているからだと思う
あと、画面電源オフからオンにするだけでCtrlキーが押しぱっなし状態になってwindowsを再起動をする必要が出てくる
エクセルを3回再インストールしたけど直らんから諦めているわ
おそらく、SHIFTキーを押した状態になっているからだと思う
あと、画面電源オフからオンにするだけでCtrlキーが押しぱっなし状態になってwindowsを再起動をする必要が出てくる
エクセルを3回再インストールしたけど直らんから諦めているわ
2020/08/20(木) 23:36:41.15
464名無しさん@そうだ選挙にいこう
2020/08/20(木) 23:46:35.87465牧野 ◆Vbs7gX72NY
2020/08/20(木) 23:50:17.89 windows再インストールした方が良いと思う
2020/08/21(金) 08:01:21.78
>>440
俺も似たような現象で困ってる
IME Onのまま「=123 …」って打ってから画面見たら「ほ123 …」ってなってるからIME Offにしてカーソルを「ほ」の後ろに持って行って Delキー と = キーを打つとなぜかカーソルが最後尾に移って「123 …=」ってなる
※ 「ほ」ってなってるのはかなタイパーだから
俺も似たような現象で困ってる
IME Onのまま「=123 …」って打ってから画面見たら「ほ123 …」ってなってるからIME Offにしてカーソルを「ほ」の後ろに持って行って Delキー と = キーを打つとなぜかカーソルが最後尾に移って「123 …=」ってなる
※ 「ほ」ってなってるのはかなタイパーだから
2020/08/21(金) 09:13:55.64
468名無しさん@そうだ選挙にいこう
2020/08/21(金) 11:02:19.23 日付データを数値に変換する関数はありますか?
text(a1,"0")でも可能ですが、なんか他にないかなと
text(a1,"0")でも可能ですが、なんか他にないかなと
469名無しさん@そうだ選挙にいこう
2020/08/21(金) 11:37:22.39 ワークシート関数なら=N(A1)とかの話?
2020/08/21(金) 11:49:20.03
>>467
できる
できる
2020/08/21(金) 12:09:13.57
>>442
あ、ごめん。そういやそうですよね><
リアルフォースのテンキーレス91キーと、リアルフォースの=キー付きテンキーを使ってます
https://www.realforce.co.jp/products/23U_WC0100/images/mainphoto.jpg
長年PC-98キーボードを使っていてどうしてもATキーに慣れないので
最近までコンバーター使ってPC-98キーボードを使ってたし
因みにPC-98キーボードはコレ(WINキー無しバージョン)
http://nkmm.org/yagura/kbd/m699/m699.jpg
どう考えてもこれの方が使い易いと思うが。特にテンキー側に=とカンマが無いのは許しがたい
=は一応キーアサインがあるので対応してるテンキーもあるが、カンマはどうやらシングルキーアサインが無いらしく
ATアーキテクチャだとどうやっても出せ無いっぽい
あ、ごめん。そういやそうですよね><
リアルフォースのテンキーレス91キーと、リアルフォースの=キー付きテンキーを使ってます
https://www.realforce.co.jp/products/23U_WC0100/images/mainphoto.jpg
長年PC-98キーボードを使っていてどうしてもATキーに慣れないので
最近までコンバーター使ってPC-98キーボードを使ってたし
因みにPC-98キーボードはコレ(WINキー無しバージョン)
http://nkmm.org/yagura/kbd/m699/m699.jpg
どう考えてもこれの方が使い易いと思うが。特にテンキー側に=とカンマが無いのは許しがたい
=は一応キーアサインがあるので対応してるテンキーもあるが、カンマはどうやらシングルキーアサインが無いらしく
ATアーキテクチャだとどうやっても出せ無いっぽい
2020/08/21(金) 12:12:48.60
>>447
ATでも一応テンキー側の=というキーコードはあるみたいで(ハード的には無いが)
これが原因かも知れません
フルキー側の数字キーとテンキー側の数字キーでキーコードが違うような物
ただエクセル2019でのみ発生するのが謎(97、10、19しか使ったことが無いが)
ATでも一応テンキー側の=というキーコードはあるみたいで(ハード的には無いが)
これが原因かも知れません
フルキー側の数字キーとテンキー側の数字キーでキーコードが違うような物
ただエクセル2019でのみ発生するのが謎(97、10、19しか使ったことが無いが)
2020/08/21(金) 12:18:14.91
>>456
ありがとうございます
> 聞いたことないけど、キーボードの不調な気がする。「=」押すとendキーか↓キー辺りと合体してしまっているような
エクセル2019のみの現象なので違うと思う。2010、97では発生しない
> 1.ATOKはしらんけどgoogleimeなどに買えてみると問題の切り分けが出来る
それもそうだw と言う事でやってみたけど同じ。つまりFEPは関係無し
> 3.=ではなく+にしてみる。+sum(a1:b2)でも数式として認識してくれるよ。確か@でも行けた気もするけどかなりキモイからオススメしない
おおっ求めていたのはコレだ!=より+の方が押しやすい位置にあるのでこれで全解決。
しかもリターン押すと自動的に=に変換される。素晴らしい
ありがとうございます
> 聞いたことないけど、キーボードの不調な気がする。「=」押すとendキーか↓キー辺りと合体してしまっているような
エクセル2019のみの現象なので違うと思う。2010、97では発生しない
> 1.ATOKはしらんけどgoogleimeなどに買えてみると問題の切り分けが出来る
それもそうだw と言う事でやってみたけど同じ。つまりFEPは関係無し
> 3.=ではなく+にしてみる。+sum(a1:b2)でも数式として認識してくれるよ。確か@でも行けた気もするけどかなりキモイからオススメしない
おおっ求めていたのはコレだ!=より+の方が押しやすい位置にあるのでこれで全解決。
しかもリターン押すと自動的に=に変換される。素晴らしい
2020/08/21(金) 12:29:05.94
とやってみたところで、別件でもう一つ謎の挙動を発見した
エクセル2019でいきなりテンキー側の−(マイナス)キーを押すと入力されずに「範囲選択の拡張」モードになる
所謂f.8を押したときと挙動が同じ
f.2を押した後にテンキー側の−を押すと普通に−で入力される
(f.2→f.8だと派に選択の拡張モードになる)
Lotus1.2.3互換で/キーでALTメニューが出るのは知っていたが、これって普通?
長年気付かなかったけど
エクセル2019でいきなりテンキー側の−(マイナス)キーを押すと入力されずに「範囲選択の拡張」モードになる
所謂f.8を押したときと挙動が同じ
f.2を押した後にテンキー側の−を押すと普通に−で入力される
(f.2→f.8だと派に選択の拡張モードになる)
Lotus1.2.3互換で/キーでALTメニューが出るのは知っていたが、これって普通?
長年気付かなかったけど
475名無しさん@そうだ選挙にいこう
2020/08/21(金) 14:49:43.62 ショートカット系はテンキー側だと変わるよ
単純な例だと[ctrl]+[1]の書式設定はテンキー側だと出ない
単純な例だと[ctrl]+[1]の書式設定はテンキー側だと出ない
476牧野 ◆Vbs7gX72NY
2020/08/21(金) 19:51:12.38477名無しさん@そうだ選挙にいこう
2020/08/22(土) 12:24:52.24 質問!
京都 25 →25
東京 65 25
大阪
福岡 69 69
長野 45 69
栃木 52 69
みたいにランダムに振られた数値で
隣接する数値があった場合に上の数字と同じになる
みたいなのがやりたいんだけど
関数やり方教えて!
京都 25 →25
東京 65 25
大阪
福岡 69 69
長野 45 69
栃木 52 69
みたいにランダムに振られた数値で
隣接する数値があった場合に上の数字と同じになる
みたいなのがやりたいんだけど
関数やり方教えて!
2020/08/22(土) 12:33:51.90
わかりました。目的は何ですか?
2020/08/22(土) 12:57:50.40
Aというファイルのシート1をコピーして別名ファイルBに貼り付けて作業用に使ってたんですが
今日からいきなり貼り付けのオプションで値貼り付けとかが出なくなりました
excelのオプション詳細設定のチェックボックスは入ってます
今までは普通にBシート1→Aシート1に貼り付け出来ていたのですが
コピー元と貼り付け先別々のファイルでも今まで貼り付け出来てたのが出来なくなったのはファイルA側で何かされたのが原因ですか?
毎日作業用にコピーしたファイルBをずっと使用してました
ファイルBでのコピーが何だか勝手にテキスト扱いになってる気がします・・・
excelのバージョンは詳しく覚えてないですが2013以降なのは間違い無いです
拙い文章ですいません
今日からいきなり貼り付けのオプションで値貼り付けとかが出なくなりました
excelのオプション詳細設定のチェックボックスは入ってます
今までは普通にBシート1→Aシート1に貼り付け出来ていたのですが
コピー元と貼り付け先別々のファイルでも今まで貼り付け出来てたのが出来なくなったのはファイルA側で何かされたのが原因ですか?
毎日作業用にコピーしたファイルBをずっと使用してました
ファイルBでのコピーが何だか勝手にテキスト扱いになってる気がします・・・
excelのバージョンは詳しく覚えてないですが2013以降なのは間違い無いです
拙い文章ですいません
2020/08/22(土) 13:09:10.46
2020/08/22(土) 20:56:46.36
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
例えば16枚のシールを3列に、できるだけ均等に貼り付けようとする時用に
A B C D E
1 元の枚数 列数 1列目 2列目 3列目
2 16 3 6 5 5
という表を作りたくて、ネットで見つけた式をもとにC2を
=IF($B2<COLUMN(A2),"",INT($A2/$B2)+(MOD($A2,$B2)>=COLUMN(A2)))
で右に式コピーして、これはうまくいきましたが、表の位置を↓のようにして式をG3に
E F G H I
2 元の枚数 列数 1列目 2列目 3列目
3 16 3 6 5 5
=IF($F3<COLUMN(E3),"",INT($E3/$F3)+(MOD($E3,$F3)>=COLUMN(E3)))
とすると1列目・2列目・3列目が空白になってしまいます。どう改変すればいいでしょうか?
よろしくお願いします。
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
例えば16枚のシールを3列に、できるだけ均等に貼り付けようとする時用に
A B C D E
1 元の枚数 列数 1列目 2列目 3列目
2 16 3 6 5 5
という表を作りたくて、ネットで見つけた式をもとにC2を
=IF($B2<COLUMN(A2),"",INT($A2/$B2)+(MOD($A2,$B2)>=COLUMN(A2)))
で右に式コピーして、これはうまくいきましたが、表の位置を↓のようにして式をG3に
E F G H I
2 元の枚数 列数 1列目 2列目 3列目
3 16 3 6 5 5
=IF($F3<COLUMN(E3),"",INT($E3/$F3)+(MOD($E3,$F3)>=COLUMN(E3)))
とすると1列目・2列目・3列目が空白になってしまいます。どう改変すればいいでしょうか?
よろしくお願いします。
2020/08/22(土) 21:00:42.22
$の付け方が間違ってる
483牧野 ◆Vbs7gX72NY
2020/08/22(土) 21:05:16.28484牧野 ◆Vbs7gX72NY
2020/08/22(土) 21:14:45.88 >>481
G3=IF($F3<COLUMN(A1),"",INT($E3/$F3)+(MOD($E3,$F3)>=COLUMN(A1)))
COLUMN(A1)はセル番地ではなく「1列目」の意味で使っている
COLUMN(B1)は「2」列目という意味のようだ
G3=IF($F3<COLUMN(A1),"",INT($E3/$F3)+(MOD($E3,$F3)>=COLUMN(A1)))
COLUMN(A1)はセル番地ではなく「1列目」の意味で使っている
COLUMN(B1)は「2」列目という意味のようだ
486名無しさん@そうだ選挙にいこう
2020/08/23(日) 05:43:03.73 excelとワード2003がもう限界なんだけど、新しいのはバージョン何を買えば良いの?
月額とかは払いたくない
コスパ良いバージョンは何?
月額とかは払いたくない
コスパ良いバージョンは何?
2020/08/23(日) 06:54:03.17
ドケチは何も使うな
それが一番コスパいい
それが一番コスパいい
488牧野 ◆Vbs7gX72NY
2020/08/23(日) 06:59:44.02 >>486
googleスプレッドシートとかでもいいんじゃない?
無料だよ
https://docs.google.com/spreadsheets/u/0/
新しいのは2019。amazonの15000円
https://www.ama
zon.co.jp/dp/B07LBNQXF6
他にも中古で安いのは色々あるけど、海賊版などが多くてどれもオススメできない
googleスプレッドシートとかでもいいんじゃない?
無料だよ
https://docs.google.com/spreadsheets/u/0/
新しいのは2019。amazonの15000円
https://www.ama
zon.co.jp/dp/B07LBNQXF6
他にも中古で安いのは色々あるけど、海賊版などが多くてどれもオススメできない
2020/08/23(日) 07:03:44.80
でコスパいいのはどれなの?
2020/08/23(日) 07:06:33.65
質問に答えてなくて草
>>488
>>>486
>googleスプレッドシートとかでもいいんじゃない?
>無料だよ
>https://docs.google.com/spreadsheets/u/0/
>
>新しいのは2019。amazonの15000円
>https://www.ama
>zon.co.jp/dp/B07LBNQXF6
>
>他にも中古で安いのは色々あるけど、海賊版などが多くてどれもオススメできない
>>488
>>>486
>googleスプレッドシートとかでもいいんじゃない?
>無料だよ
>https://docs.google.com/spreadsheets/u/0/
>
>新しいのは2019。amazonの15000円
>https://www.ama
>zon.co.jp/dp/B07LBNQXF6
>
>他にも中古で安いのは色々あるけど、海賊版などが多くてどれもオススメできない
491牧野 ◆Vbs7gX72NY
2020/08/23(日) 07:16:35.72 >>489
やることによって違うので何とも言えないが
・家計簿ぐらいの利用でネットにも繋がっていない環境ならそもそも2003でも十分
・xlsxを使うなら2019。アップグレードが長く続くのでもっともコスパが良い
やることによって違うので何とも言えないが
・家計簿ぐらいの利用でネットにも繋がっていない環境ならそもそも2003でも十分
・xlsxを使うなら2019。アップグレードが長く続くのでもっともコスパが良い
2020/08/23(日) 07:33:30.91
>>486
Officeアプリにコスパなんて考え方は普通しないから、質問の意味がわからん
限界とはどういう状態のことか、2003では何ができなくて何をやりたいのか
そもそも今正規に買い切れるのは最新の2019しかない
Officeアプリにコスパなんて考え方は普通しないから、質問の意味がわからん
限界とはどういう状態のことか、2003では何ができなくて何をやりたいのか
そもそも今正規に買い切れるのは最新の2019しかない
2020/08/23(日) 07:55:49.77
>>486の求めるパフォーマンスが何かわからんからコスパとか言われてもな
2020/08/23(日) 08:06:26.81
xlsxって何?
便利なの?
便利なの?
495俺は486
2020/08/23(日) 08:33:21.542020/08/23(日) 08:46:44.89
>>495
だからその「挙動がめちゃくちゃ」「ワードもおかしい」の部分を、もうちょっと具体的に書いて欲しいのよ
保証はないけど一応基本的な機能はWin10+2003でも使えるのを多くの人が確認してるから、原因がどこにあるのかをまず共有しないと質問に答えられない
とりま今から買える正規品は2019と365だけ
それ以外は海賊版か中古、運が良ければどこかのショップやオークションで長期在庫品が見つかるかも知れないってレベル
だからその「挙動がめちゃくちゃ」「ワードもおかしい」の部分を、もうちょっと具体的に書いて欲しいのよ
保証はないけど一応基本的な機能はWin10+2003でも使えるのを多くの人が確認してるから、原因がどこにあるのかをまず共有しないと質問に答えられない
とりま今から買える正規品は2019と365だけ
それ以外は海賊版か中古、運が良ければどこかのショップやオークションで長期在庫品が見つかるかも知れないってレベル
2020/08/23(日) 08:50:51.54
498牧野 ◆Vbs7gX72NY
2020/08/23(日) 09:03:04.30 >>494
2007からファイル形式が変わってxlsxになった
2003以前のxls形式はセキュリティ的に終わっているので、大半の人はxlsxを使っている
他の人とファイルをやり取りする時にはxlsx形式の方が都合が良い
自分のPC内で家計簿付けるだけなら、2003のxls形式でも何一つ問題はない
>>495
互換モードってのがあるからそれを試してみてはどうかな
https://pc-karuma.net/windows-10-apps-compatibility-mode/
それでも動かないなら2019で良いだろう
2007からファイル形式が変わってxlsxになった
2003以前のxls形式はセキュリティ的に終わっているので、大半の人はxlsxを使っている
他の人とファイルをやり取りする時にはxlsx形式の方が都合が良い
自分のPC内で家計簿付けるだけなら、2003のxls形式でも何一つ問題はない
>>495
互換モードってのがあるからそれを試してみてはどうかな
https://pc-karuma.net/windows-10-apps-compatibility-mode/
それでも動かないなら2019で良いだろう
499俺は486
2020/08/23(日) 09:35:59.46 >>496
挙動について
ワードはページが360ページあるんだけど、
箇条書きボタンを押して●や数字を表示させようとすると、10秒から20秒位ワードがフリーズする
その時にタスクマネージャーを見ると使用率が1%位から13%位まであがる
CPUのファンも高速回転する
エクセルのおかしい挙動は
データがたてに5000セル位分横に4列位あって、それが関係しているかどうかわからないが
この横4列のどれかのでデータをデリートとかで削除しようとすると、ワードのときと同じくフリーズして、CPU稼働率アップする
他には、
関数使った時に、うまくいくときと行かないときがある
それが俺の操作ミスなのか、バージョンがだめなのかって検証するのもだるいくらい頻繁に多くトラブルが起きる。
他には
Win10の2年くらい前のアップデートのときは、エクセルに文字を入れてエンターで確定させるとワードのときと同じ挙動が起きていた
去年のWin10バージョンアップをしたらそれではエクセルの文字入力エンターのトラブルは起きなくなった
>>498
互換性のタブがワードもエクセルのプロパティになかった
>>497
IEは使ってない
挙動について
ワードはページが360ページあるんだけど、
箇条書きボタンを押して●や数字を表示させようとすると、10秒から20秒位ワードがフリーズする
その時にタスクマネージャーを見ると使用率が1%位から13%位まであがる
CPUのファンも高速回転する
エクセルのおかしい挙動は
データがたてに5000セル位分横に4列位あって、それが関係しているかどうかわからないが
この横4列のどれかのでデータをデリートとかで削除しようとすると、ワードのときと同じくフリーズして、CPU稼働率アップする
他には、
関数使った時に、うまくいくときと行かないときがある
それが俺の操作ミスなのか、バージョンがだめなのかって検証するのもだるいくらい頻繁に多くトラブルが起きる。
他には
Win10の2年くらい前のアップデートのときは、エクセルに文字を入れてエンターで確定させるとワードのときと同じ挙動が起きていた
去年のWin10バージョンアップをしたらそれではエクセルの文字入力エンターのトラブルは起きなくなった
>>498
互換性のタブがワードもエクセルのプロパティになかった
>>497
IEは使ってない
2020/08/23(日) 10:00:44.48
それパソコン買い換えた方がいいだろ
2020/08/23(日) 10:13:19.63
2003で困ることなんて、65536行までしか入らないくらいしかないけどな。
2020/08/23(日) 12:33:41.38
>>501
xlsx開けないのはストレス
xlsx開けないのはストレス
503名無しさん@そうだ選挙にいこう
2020/08/23(日) 12:50:45.93 PCが低スペックなのが原因だったら2019買っても治らないんじゃないのかな。悪化するかも。
2020/08/23(日) 12:51:20.05
2003でもxlsx開けるじゃん
2020/08/23(日) 12:59:46.75
>>502
そういう単純な理由ならMicrosoft Office 互換機能パックを入れれば開くことは出来る
2018年についに公開中止になったけど、探せば見つかるし2003とかの人はまず入れてるんじゃ無いかな
すぐにセキュリティガー!とか言う人は必ずいるけど
そういう単純な理由ならMicrosoft Office 互換機能パックを入れれば開くことは出来る
2018年についに公開中止になったけど、探せば見つかるし2003とかの人はまず入れてるんじゃ無いかな
すぐにセキュリティガー!とか言う人は必ずいるけど
2020/08/23(日) 13:03:47.52
>>503
後、ファイルがおかしくなってるというパターンもある
その場合どのPCやオフィスで開いても同じ様な現象が出る
昔のエクセルはセルの書式設定の上限が決まっていて、上限を超えるとある日突然開け無くなると言う
致命的な「仕様」があったからな
救済方法も無いとか明らかに酷いけどMSは仕様だと言い張っていたし
長年コピーペーストを駆使して複数ワークシートを作成していたブックとかで起きやすい
後、ファイルがおかしくなってるというパターンもある
その場合どのPCやオフィスで開いても同じ様な現象が出る
昔のエクセルはセルの書式設定の上限が決まっていて、上限を超えるとある日突然開け無くなると言う
致命的な「仕様」があったからな
救済方法も無いとか明らかに酷いけどMSは仕様だと言い張っていたし
長年コピーペーストを駆使して複数ワークシートを作成していたブックとかで起きやすい
2020/08/23(日) 13:32:25.17
excelとwordだけほしいんだけど、2つでこんな高いの?
安いバージョンとかないもんなんこれ?
安いバージョンとかないもんなんこれ?
2020/08/23(日) 14:04:57.42
visio安くして欲しい
2020/08/23(日) 14:08:46.04
その価格を払う価値が無いと思うのであればOpenOfficeやグーグルスプレッドシートを使うしか無い
ただ将来仕事で使うとかの予定があるのであれば間違い無く必要な投資と考えた方がいい
97や2003あたりは10年使う人も多かったし、2010でも未だに現役な人は多いから決して高くは無いと思うが
ただ将来仕事で使うとかの予定があるのであれば間違い無く必要な投資と考えた方がいい
97や2003あたりは10年使う人も多かったし、2010でも未だに現役な人は多いから決して高くは無いと思うが
2020/08/23(日) 14:16:24.66
ヤフオクで打ってるやつって入札いっぱいはいってるけどこれ使うとどうなるの?
2020/08/23(日) 14:33:05.44
で2つ合わせて譲ってくれる人いないの?
七千五百円までならだす。
七千五百円までならだす。
2020/08/23(日) 14:39:54.25
いない
2020/08/23(日) 14:42:11.59
こいつの問題はPCがいかれてること
Excel新しいの買っても解決にならない
それ以前に大したことに使ってないみたいだけどな
Excel新しいの買っても解決にならない
それ以前に大したことに使ってないみたいだけどな
2020/08/23(日) 14:54:07.18
2020/08/23(日) 15:57:59.55
2020/08/23(日) 16:56:22.72
excele2019の体験版ってないの?365って月学でしょ?いらんわ
2020/08/23(日) 17:55:58.49
2020/08/23(日) 18:04:47.47
>>516
たかすぎなんだよこれ
たかすぎなんだよこれ
2020/08/23(日) 18:45:11.54
さっきから、高いだの旧バージョンはないかだの、うるさいなあ
高いと思うなら買わなきゃいい。
旧いのほしけりゃ、ジコセキニンでオクででも探せ
高いと思うなら買わなきゃいい。
旧いのほしけりゃ、ジコセキニンでオクででも探せ
2020/08/23(日) 18:49:26.18
すきにしなはったらよろしいでおま
2020/08/23(日) 19:00:05.92
オクで買ってことある?
522牧野 ◆Vbs7gX72NY
2020/08/23(日) 19:36:55.18 >>499
Wordはあまり詳しくないけど・・・
>その時にタスクマネージャーを見ると使用率が1%位から13%位まであがる
i7 3770辺りの8コアでマルチスレッド非対応と仮定すると、1コアを限界まで使い切って頭打ちになっているかもしれない
全然違うかもしれない。
ただどういうPCにしろ、360ページは重すぎると思う
>互換性のタブがワードもエクセルのプロパティになかった
ファイルじゃなくてexcel.exeの方
https://i.imgur.com/1DbFWZV.png
>IEは使ってない
IEじゃない、マクロでIeをコントロールとして使っている場合。
Wordはあまり詳しくないけど・・・
>その時にタスクマネージャーを見ると使用率が1%位から13%位まであがる
i7 3770辺りの8コアでマルチスレッド非対応と仮定すると、1コアを限界まで使い切って頭打ちになっているかもしれない
全然違うかもしれない。
ただどういうPCにしろ、360ページは重すぎると思う
>互換性のタブがワードもエクセルのプロパティになかった
ファイルじゃなくてexcel.exeの方
https://i.imgur.com/1DbFWZV.png
>IEは使ってない
IEじゃない、マクロでIeをコントロールとして使っている場合。
523牧野 ◆Vbs7gX72NY
2020/08/23(日) 19:40:01.532020/08/23(日) 20:47:31.21
どこで買ったの?500円は安い。
525牧野 ◆Vbs7gX72NY
2020/08/23(日) 20:54:16.52 >>524
ヤフオク
https://auctions.yahoo.co.jp/closedsearch/closedsearch?p=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&va=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&b=1&n=50
なんなら100円で落とされてる。2000円ぐらい出せば今でも即決で買えるようだ
今なら1000円で即購入できる
https://auctions.yahoo.co.jp/search/search?p=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&va=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&b=1&n=50
プロダクトキーが無いものもあるから気をつけて
ヤフオク
https://auctions.yahoo.co.jp/closedsearch/closedsearch?p=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&va=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&b=1&n=50
なんなら100円で落とされてる。2000円ぐらい出せば今でも即決で買えるようだ
今なら1000円で即購入できる
https://auctions.yahoo.co.jp/search/search?p=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&va=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB97&b=1&n=50
プロダクトキーが無いものもあるから気をつけて
2020/08/23(日) 21:00:40.63
名前をつけたセル範囲の、特定のセルだけ参照する方法はありますか?
=名前(1)
みたいに配列っぽくアクセスできませんでしょうか。
=名前(1)
みたいに配列っぽくアクセスできませんでしょうか。
2020/08/23(日) 21:05:49.84
>>526
indexとか使わないと無理
indexとか使わないと無理
528牧野 ◆Vbs7gX72NY
2020/08/23(日) 21:06:25.062020/08/23(日) 21:37:46.39
キーないと買っても意味ないんだよね?
こんなの売っていいの?
こんなの売っていいの?
2020/08/23(日) 21:38:39.20
97っていつのバージョンだよ
もっと欲に立つの紹介しろよ
もっと欲に立つの紹介しろよ
2020/08/23(日) 21:47:19.34
>>522
互換性モードをWin8とXpサービスパック3に変えてもだめでした
私のパソコンはi7 3770kです 2012年あたりに買いました メモリは16Gです
グラボはついていません SSD500Gです
互換性モードをWin8とXpサービスパック3に変えてもだめでした
私のパソコンはi7 3770kです 2012年あたりに買いました メモリは16Gです
グラボはついていません SSD500Gです
2020/08/23(日) 21:59:20.32
早く買い換えなさい。
時間の無駄です。
時間の無駄です。
2020/08/23(日) 22:14:41.13
534牧野 ◆Vbs7gX72NY
2020/08/23(日) 22:34:50.62 >>529
大体当ててる自信はあったけどドンピシャとはだまげたなぁ
俺はi5 2400を使ってたんだけど、どうやってもだめで365を購入した。
結構いい年なので、そっちの方がコスパが安い。労力・セキュリティ面を含めたコスパだ
10代なら2019を購入し、また10年後にこういう質問をしただろうな
君はどこかで、2003を無限に使えると思っていると思うが、恐らくハード的に完全に限界だ
労力を含めたコスパを考えるなら、2019を買うのがどう考えてもベストなんだ
どうしても安く済ませたいなら、その代償に君の時給が下がり続ける事になり、それに見合った糞エクセルが提供されることになるだろう
大体当ててる自信はあったけどドンピシャとはだまげたなぁ
俺はi5 2400を使ってたんだけど、どうやってもだめで365を購入した。
結構いい年なので、そっちの方がコスパが安い。労力・セキュリティ面を含めたコスパだ
10代なら2019を購入し、また10年後にこういう質問をしただろうな
君はどこかで、2003を無限に使えると思っていると思うが、恐らくハード的に完全に限界だ
労力を含めたコスパを考えるなら、2019を買うのがどう考えてもベストなんだ
どうしても安く済ませたいなら、その代償に君の時給が下がり続ける事になり、それに見合った糞エクセルが提供されることになるだろう
2020/08/23(日) 22:54:30.83
無限に使えないと思ってるから聞いてるんだけど
2020/08/24(月) 07:16:39.15
アマゾンで1000円以下で売ってるな
2020/08/24(月) 07:24:41.87
2019を安く買う方法は?
2020/08/24(月) 09:29:05.52
2019ですがピポット棒グラフでを作ったときに、軸のラベルが一個置きに表示されること無いですか?
例えば軸が日付だとして
1/1 ■■■■
■■■■
1/3 ■■■■
■■■■
1/5 ■■■■
の様になる。棒はちゃんと全部表示される
これは勿論エクセルの自動機能のお陰なんですか、たまに
[軸の書式設定]→[軸のオプション]→[ラベル]→間隔の単位=1
とやっても直らない(というかデフォルトで1のはず)
謎1
縦が短すぎるかフォントが大きすぎるのかと思って縦を思いっきり延ばしたり、フォントを思いっきり小さくしても同じ
謎2
[軸の書式設定]→[サイズとプロパティ]
に4方向の余白やテキストのはみ出しを設定するっぽいのがあって、これかとも思うのですが
この設定は常にグレーアウトしていて設定出来た試しがありません
謎3
軸の行をフィルターしたりして表示する内容を変えると(例えば4月を表示していたのを10月にするとか)直ったりする
この謎の挙動はなんなんですかね?
例えば軸が日付だとして
1/1 ■■■■
■■■■
1/3 ■■■■
■■■■
1/5 ■■■■
の様になる。棒はちゃんと全部表示される
これは勿論エクセルの自動機能のお陰なんですか、たまに
[軸の書式設定]→[軸のオプション]→[ラベル]→間隔の単位=1
とやっても直らない(というかデフォルトで1のはず)
謎1
縦が短すぎるかフォントが大きすぎるのかと思って縦を思いっきり延ばしたり、フォントを思いっきり小さくしても同じ
謎2
[軸の書式設定]→[サイズとプロパティ]
に4方向の余白やテキストのはみ出しを設定するっぽいのがあって、これかとも思うのですが
この設定は常にグレーアウトしていて設定出来た試しがありません
謎3
軸の行をフィルターしたりして表示する内容を変えると(例えば4月を表示していたのを10月にするとか)直ったりする
この謎の挙動はなんなんですかね?
2020/08/24(月) 10:08:12.43
その行の軸データに入らない空白が入ってる
別に困ってないなら聞くなよ
別に困ってないなら聞くなよ
2020/08/25(火) 09:37:11.90
>>539
「困ってない」ってどこを読んだら読み取れるの?w
「困ってない」ってどこを読んだら読み取れるの?w
2020/08/25(火) 10:01:30.69
不思議に思ってるだけって書いてあるだろ
2020/08/25(火) 12:02:31.44
お世話になります。
状況が限定的かもしれませんがお知恵をお貸しください。
VBAを使用し、ユーザー定義関数で処理を行っています。
シートが1,2,3とあり、同じフォーマットがコピーされている状況で
引用される数値がそれぞれシート毎に違い、算出される結果は異なるはずなのですが
最終更新したシートの数値が別シートにも反映されてしまいます。
(例)シート1=結果100 の時にシートを切り替える⇒シート2=結果100
ただし、シート2で適当なセルを更新すると結果が正しい数値に治ります。
処理落ちのような感じなのですが
解決する方法はありますでしょうか?
宜しくお願い致します。
状況が限定的かもしれませんがお知恵をお貸しください。
VBAを使用し、ユーザー定義関数で処理を行っています。
シートが1,2,3とあり、同じフォーマットがコピーされている状況で
引用される数値がそれぞれシート毎に違い、算出される結果は異なるはずなのですが
最終更新したシートの数値が別シートにも反映されてしまいます。
(例)シート1=結果100 の時にシートを切り替える⇒シート2=結果100
ただし、シート2で適当なセルを更新すると結果が正しい数値に治ります。
処理落ちのような感じなのですが
解決する方法はありますでしょうか?
宜しくお願い致します。
2020/08/25(火) 12:13:14.33
>>542
変なタイミングで自動計算が手動計算になってない?
変なタイミングで自動計算が手動計算になってない?
544名無しさん@そうだ選挙にいこう
2020/08/25(火) 13:51:44.83 どんな関数かわからんからあれだけど、volatile入れれば動くようになる系じゃないのかな
function 関数名(引数)
application.volatile
処理
end function
https://docs.microsoft.com/ja-jp/office/vba/api/excel.application.volatile
function 関数名(引数)
application.volatile
処理
end function
https://docs.microsoft.com/ja-jp/office/vba/api/excel.application.volatile
545>>542
2020/08/25(火) 14:10:05.61 回答ありがとうございます。
全シート確認しましたが、自動計算になっています。
又、関数ですが Application.Volatile True になっています。
シート変更した時に再計算するVBAでも仕込んだ方が
賢そうですかね…。これ以上重くはしたくないのですが…。
全シート確認しましたが、自動計算になっています。
又、関数ですが Application.Volatile True になっています。
シート変更した時に再計算するVBAでも仕込んだ方が
賢そうですかね…。これ以上重くはしたくないのですが…。
546>>542
2020/08/25(火) 14:44:45.57 Application.Calculate も適用されません。
打つ手なしです…(汗)
打つ手なしです…(汗)
2020/08/25(火) 19:15:20.64
win10、Microsoft365E、VBA不可
Excelでふたつのテーブルを比較させて不一致のレコードを抽出したい
EXACTでは追加や削除があった場合、それ以降すべて不一致として判定されるので使えません
互いの行がずれても正しく判定する方法があればおしえてください
Excelでふたつのテーブルを比較させて不一致のレコードを抽出したい
EXACTでは追加や削除があった場合、それ以降すべて不一致として判定されるので使えません
互いの行がずれても正しく判定する方法があればおしえてください
2020/08/25(火) 19:18:48.07
ソートする
2020/08/25(火) 19:24:54.46
>>547
vlookupでエラー吐かせれば?
vlookupでエラー吐かせれば?
550牧野 ◆Vbs7gX72NY
2020/08/25(火) 19:36:46.612020/08/25(火) 19:55:53.58
回答ありがとうございます。
明日、countifで試してみようと思います。
明日、countifで試してみようと思います。
552名無しさん@そうだ選挙にいこう
2020/08/25(火) 21:15:36.32 >>547
レコードとかテーブルという用語を使ってる時点でクエリしか無いだろう。
レコードとかテーブルという用語を使ってる時点でクエリしか無いだろう。
2020/08/25(火) 21:40:30.84
2020/08/25(火) 22:27:58.54
A1セルとB1セルが空欄の時にB1セルに
"要入力"と表示され、かつB1セルを入力
可能のままにしたいのですが、方法は
ありますか?
プレースホルダーみたいなイメージです。
"要入力"と表示され、かつB1セルを入力
可能のままにしたいのですが、方法は
ありますか?
プレースホルダーみたいなイメージです。
2020/08/25(火) 22:41:04.89
>>554
別セルでIF関数使って実現しな
プレースホルダーはユーザー負荷高いからおすすめしないhttps://u-site.jp/alertbox/form-design-placeholders
それか、未入力なら(IF関数)、背景を黄色なりで色塗るよう条件付き書式設定してやればユーザーには優しいかもしれない
別セルでIF関数使って実現しな
プレースホルダーはユーザー負荷高いからおすすめしないhttps://u-site.jp/alertbox/form-design-placeholders
それか、未入力なら(IF関数)、背景を黄色なりで色塗るよう条件付き書式設定してやればユーザーには優しいかもしれない
2020/08/25(火) 23:24:06.03
C1を右揃え、要入力 と入力し、C列の幅を極小にする
557名無しさん@そうだ選挙にいこう
2020/08/26(水) 08:42:15.67 IF や VLOOKUP などの関数でときどき誤動作を起こします。
例えば IF(A1=1,"○","×") で、A1 が 1 なのに × になるとか。
詳しく調べると、A1 の表示は 1 なのに値は 1.000005 のような表示されない誤差。
A1 の式は 0.000005 の誤差が出ないはずですがEXCELの仕様?
とは言えすべての式を IF(ROUND(A1,0)=1,"○","×") のようにするのは面倒です。
計算結果も含め「小数*位以下の差は無視する」を既定設定で出来ますか?
例えば IF(A1=1,"○","×") で、A1 が 1 なのに × になるとか。
詳しく調べると、A1 の表示は 1 なのに値は 1.000005 のような表示されない誤差。
A1 の式は 0.000005 の誤差が出ないはずですがEXCELの仕様?
とは言えすべての式を IF(ROUND(A1,0)=1,"○","×") のようにするのは面倒です。
計算結果も含め「小数*位以下の差は無視する」を既定設定で出来ますか?
2020/08/26(水) 08:55:11.21
それ仕様
559名無しさん@そうだ選挙にいこう
2020/08/26(水) 08:59:11.83 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
tsvをコピーして貼り付けた際、今までは自動でタブ文字でセルが別れていました
しかし最近は1列にまとまってしまい、区切り文字→タブで区切り、セルを分ける必要が出てきています
貼り付けた時、自動的にタブ文字でセルが分かれるような設定ってあるのでしょうか?
元になるtsvは専用ソフトから出力されていますが、
手動で作ってみても同じでした
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
tsvをコピーして貼り付けた際、今までは自動でタブ文字でセルが別れていました
しかし最近は1列にまとまってしまい、区切り文字→タブで区切り、セルを分ける必要が出てきています
貼り付けた時、自動的にタブ文字でセルが分かれるような設定ってあるのでしょうか?
元になるtsvは専用ソフトから出力されていますが、
手動で作ってみても同じでした
2020/08/26(水) 09:42:33.98
2020/08/26(水) 10:08:14.08
2020/08/26(水) 14:52:24.42
>>561
ありがとうございます
オプション設定をしましたが、セルの値が 1.000005 なら表示が 1 でも × ですね。
結局、計算結果を参照して判断するなら ROUND 関数で計算誤差を丸めないと。
仕様とはいえ、微少な計算誤差は指定した桁で丸めるオプション設定が欲しい。
ありがとうございます
オプション設定をしましたが、セルの値が 1.000005 なら表示が 1 でも × ですね。
結局、計算結果を参照して判断するなら ROUND 関数で計算誤差を丸めないと。
仕様とはいえ、微少な計算誤差は指定した桁で丸めるオプション設定が欲しい。
2020/08/26(水) 17:14:06.20
VBAの引数は流用するように宣言できますか?
2020/08/26(水) 17:39:54.26
SET1 = Range("A1")+Range("A2")
SET2 = Range("B1")+Range("B2")
みたいなのをひとつだけ書いておいて
複数のプロシージャで使用したいです。
SET2 = Range("B1")+Range("B2")
みたいなのをひとつだけ書いておいて
複数のプロシージャで使用したいです。
2020/08/26(水) 17:56:22.61
>>562
2未満でいいじゃん
2未満でいいじゃん
2020/08/26(水) 19:08:12.51
>>564
一瞬、範囲を結合してSet出来るのかと思ったわ。
一瞬、範囲を結合してSet出来るのかと思ったわ。
2020/08/26(水) 19:35:18.81
2020/08/26(水) 21:15:46.99
2020/08/26(水) 21:32:07.41
>>564
public変数として宣言
public変数として宣言
570>>564
2020/08/27(木) 09:32:10.382020/08/27(木) 10:51:58.18
>>570
Public Function ××() As Integer
×× = Range略
End Function
で動くよ
別にPublic Property Getで同じような書き方してもいいけど
Public Function ××() As Integer
×× = Range略
End Function
で動くよ
別にPublic Property Getで同じような書き方してもいいけど
2020/08/27(木) 11:17:42.51
>>571
Public Function xx() As Integer
xx = 条件1 and 条件2
End Function
を
Call xx しても反映されないですが
何か間違っているでしょうか?
Public Function xx() As Integer
xx = 条件1 and 条件2
End Function
を
Call xx しても反映されないですが
何か間違っているでしょうか?
2020/08/27(木) 12:16:39.03
Aの欄に日付が入っています
Bの欄に数が並んでいます
Cの欄に分類のための番号が入っています
Aを横軸、Bを縦軸としたグラフをCごとの系列で作りたいのですが、
今まではIFを使って別シートにCの値でカラム分けした表を作ってからグラフにしていました
もっと簡単にできる方法があれば教えてください
Bの欄に数が並んでいます
Cの欄に分類のための番号が入っています
Aを横軸、Bを縦軸としたグラフをCごとの系列で作りたいのですが、
今まではIFを使って別シートにCの値でカラム分けした表を作ってからグラフにしていました
もっと簡単にできる方法があれば教えてください
2020/08/27(木) 13:39:34.34
>>572
callして使うんじゃなくて変数的に使うものだから
callして使うんじゃなくて変数的に使うものだから
2020/08/27(木) 14:22:03.64
お世話になります。
Excel VBAで印刷時にシート1〜4を再計算し印刷
というのを組んでいるのですが
各シート印刷時は再計算されるのですが、複数シートを選択すると
シート2以降が再計算されず困っています。
また、PDFとして保存する際はどのようなコードを書けばよいのでしょうか?
回答お待ちしております。
Excel VBAで印刷時にシート1〜4を再計算し印刷
というのを組んでいるのですが
各シート印刷時は再計算されるのですが、複数シートを選択すると
シート2以降が再計算されず困っています。
また、PDFとして保存する際はどのようなコードを書けばよいのでしょうか?
回答お待ちしております。
2020/08/27(木) 14:26:42.51
質問と困ってることが全然違うんですが、質問は何ですか?
577>>575
2020/08/27(木) 14:34:35.472020/08/27(木) 15:31:20.06
>>577
Excelファイル PDF出力 VBAでググれば後者は簡単に解決すると思います
Excelファイル PDF出力 VBAでググれば後者は簡単に解決すると思います
2020/08/27(木) 17:03:08.94
このスレのおかげで
気象庁サイトの過去の気象データ検索から
特定地点の1時間値を1日ごとにPower Queryで読み取って
1年分くらいをまとめるVBAが
なんとか出来まスた。
感謝。
気象庁サイトの過去の気象データ検索から
特定地点の1時間値を1日ごとにPower Queryで読み取って
1年分くらいをまとめるVBAが
なんとか出来まスた。
感謝。
2020/08/27(木) 17:39:19.18
2020/08/27(木) 20:09:56.41
>>579
ExcelをPDFにするんじゃなくて、PDFに計算式入れたら?
ExcelをPDFにするんじゃなくて、PDFに計算式入れたら?
583牧野 ◆Vbs7gX72NY
2020/08/27(木) 20:55:03.40 >>575
再計算は
calculate
を一行入れるだけじゃダメか
pdfへの出力と合わせると
Sub outputPDF()
'再計算
calculate
Dim fileName As String '保存先フォルダパス&ファイル名
fileName = ThisWorkbook.Path & "\201603請求書_株式会社ホゲホゲ御中.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End Sub
参考
https://tonari-it.com/excel-vba-pdf/
再計算は
calculate
を一行入れるだけじゃダメか
pdfへの出力と合わせると
Sub outputPDF()
'再計算
calculate
Dim fileName As String '保存先フォルダパス&ファイル名
fileName = ThisWorkbook.Path & "\201603請求書_株式会社ホゲホゲ御中.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
End Sub
参考
https://tonari-it.com/excel-vba-pdf/
2020/08/28(金) 11:08:28.08
しーと2が再計算されないんです
2020/08/28(金) 13:26:08.94
>>541
「不思議」で検索してもお前の書込しかヒットしないが?
「不思議」で検索してもお前の書込しかヒットしないが?
2020/08/28(金) 14:51:59.40
2020/08/28(金) 14:52:16.86
urlの貼り付けをミスりました。
https://imgur.com/QSNKruC.jpg
https://imgur.com/QSNKruC.jpg
2020/08/28(金) 15:19:35.13
連投申し訳ございません。
人名のデータリストがあったとして、それにフリガナを振ろうと思っております。
その時、フリガナも統一したいと思ったため(田中なら全員タナカ 仮にデンナカでも問題なし)、VBAでフリガナを一度消して振り直すコードを書いて実行しました。
しかし、エクセルは前のフリガナを記憶しているようで、同じ田中でもフリガナが違う場合があります。
それだと名前順にソートしたときに、同じ名前なのにバラバラの行に振り分けられてしまい、まずいです。
同じ漢字なら同じフリガナを振り直すには、どうすればよいのでしょうか
なお上のフィルターの質問は、vbaを使わない方法があれば教えていただきたいです。
どうかよろしくお願いいたします。
人名のデータリストがあったとして、それにフリガナを振ろうと思っております。
その時、フリガナも統一したいと思ったため(田中なら全員タナカ 仮にデンナカでも問題なし)、VBAでフリガナを一度消して振り直すコードを書いて実行しました。
しかし、エクセルは前のフリガナを記憶しているようで、同じ田中でもフリガナが違う場合があります。
それだと名前順にソートしたときに、同じ名前なのにバラバラの行に振り分けられてしまい、まずいです。
同じ漢字なら同じフリガナを振り直すには、どうすればよいのでしょうか
なお上のフィルターの質問は、vbaを使わない方法があれば教えていただきたいです。
どうかよろしくお願いいたします。
2020/08/28(金) 15:29:59.81
2020/08/28(金) 15:43:21.08
>>589
そのようにしております。
そのようにしております。
2020/08/28(金) 15:44:58.05
592名無しさん@そうだ選挙にいこう
2020/08/28(金) 17:12:49.56 初心者質問で申し訳ありません。
列全体(決められたセル数ではなく、これからもデータが追加されるため列全体)の
-の数値(小数点第2位まで)だけを 色変更したいのですが
どのような数式になりますか?
列全体(決められたセル数ではなく、これからもデータが追加されるため列全体)の
-の数値(小数点第2位まで)だけを 色変更したいのですが
どのような数式になりますか?
2020/08/28(金) 18:22:45.52
2020/08/28(金) 19:55:41.07
2020/08/28(金) 20:00:07.17
2020/08/28(金) 20:57:49.34
誰がなんの質問してるかわからないから名前書くかトリップつけろ
2020/08/28(金) 21:28:23.69
◆香具師
こうかな?
こうかな?
2020/08/28(金) 23:44:17.83
>>587
VBAなしということなら
他の行に飛ばしてそこの表示をフィルターかける感じでいいなら
連番(番号の重複がない)の場合はindexとmatchでとばすだけ
重複があるなら
countifで検索して該当箇所にsumで行番つけてindex・match・rowで拾う感じにするかな
VBAなしということなら
他の行に飛ばしてそこの表示をフィルターかける感じでいいなら
連番(番号の重複がない)の場合はindexとmatchでとばすだけ
重複があるなら
countifで検索して該当箇所にsumで行番つけてindex・match・rowで拾う感じにするかな
599ヨガウンコ←名前付けたぞ
2020/08/29(土) 10:33:19.50 >>587
クエリーテーブルだな。
Select A.*
From 範囲1 As A, 範囲2 As B
Where A.番号 = B.番号
これで範囲2の番号書き換えて更新すれば、フィルタがかかったみたいになるだろう。
クエリーテーブルだな。
Select A.*
From 範囲1 As A, 範囲2 As B
Where A.番号 = B.番号
これで範囲2の番号書き換えて更新すれば、フィルタがかかったみたいになるだろう。
600ヨガウンコ
2020/08/29(土) 10:35:37.94 ああ、これ回答する方が名前書いても意味ないのか。
次からやめるわ。
次からやめるわ。
2020/08/29(土) 10:49:22.04
それ以前にお前存在する理由あるの?
2020/08/29(土) 10:54:13.64
VBAで質問です。
何十列もある表で不要な列を大量に削除したいと思っています。
Range("A1,N1:U1.....").entirecolumn.deleteといった感じで手作業、つまり目で列を確認してコードを書くしかないのでしょうか??
分かる方お願いします。
何十列もある表で不要な列を大量に削除したいと思っています。
Range("A1,N1:U1.....").entirecolumn.deleteといった感じで手作業、つまり目で列を確認してコードを書くしかないのでしょうか??
分かる方お願いします。
2020/08/29(土) 10:59:47.92
>>602
列が不要かどうかを機械でも判断できるような条件なら自動化できる
列が不要かどうかを機械でも判断できるような条件なら自動化できる
2020/08/29(土) 13:26:46.07
不要の列はどのように確認すれば?
2020/08/29(土) 17:36:07.22
VBA使えません。
@テーブル化されてる(色がシマシマ)データを解除して普通にデータにする方法教えてください。
コピペで新しいシートに123形式で貼る以外に方法ありますか?
A絞り込みして見えてる部分に対してオートフィルで連番できないのは仕方ないのでしょうか?
@テーブル化されてる(色がシマシマ)データを解除して普通にデータにする方法教えてください。
コピペで新しいシートに123形式で貼る以外に方法ありますか?
A絞り込みして見えてる部分に対してオートフィルで連番できないのは仕方ないのでしょうか?
2020/08/29(土) 17:39:43.18
できるよ
2020/08/29(土) 18:35:47.58
>>605
テーブル解除
テーブル解除
2020/08/29(土) 18:53:26.88
>>606ー607
テーブル解除で検索してみた、範囲に変換っていう変な名前のボタンがそれだったみたい(´;ω;`)ありがとう。
テーブル解除で検索してみた、範囲に変換っていう変な名前のボタンがそれだったみたい(´;ω;`)ありがとう。
609牧野 ◆Vbs7gX72NY
2020/08/29(土) 18:57:32.92 >>602
1行目に行挿入
不要な列に「1」を入力
イカコードを走らせる
最後に一行目を削除
とか
Sub Macro1()
最終列 = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
If Cells(1, i) = 1 Then
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub
1行目に行挿入
不要な列に「1」を入力
イカコードを走らせる
最後に一行目を削除
とか
Sub Macro1()
最終列 = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 最終列 To 1 Step -1
If Cells(1, i) = 1 Then
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub
2020/08/29(土) 23:04:35.40
イカってなんですか
611名無しさん@そうだ選挙にいこう
2020/08/30(日) 00:58:49.95 >>602
selection.entirecolumn.delete
selection.entirecolumn.delete
2020/08/30(日) 08:07:17.14
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
アンケートの清書みたいな感じで
質問の答えのA・B・Cのどれかに○をつける作業が
1ファイルあたり30項目くらいで、ファイルが50くらいあります。
ファイルの内容や書式は共通ですがABCどれに○かはそれぞれ違います。
A・B・Cはアルファベットもナカポツも各1セルで5セルに入っています。
この○付け作業は、今まで図形の○付けでやってきましたが、やたら時間がかかります。
リスト選択にして、記号の○付き文字に変えるとすると、文字サイズを揃える必要が出てきます。
何か効率的に○付けをしていける方法は、ないでしょうか?
できればABC各何個か集計も出来ると助かります。ファイルごとや全体でも。
良い方法を教えてください。
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
アンケートの清書みたいな感じで
質問の答えのA・B・Cのどれかに○をつける作業が
1ファイルあたり30項目くらいで、ファイルが50くらいあります。
ファイルの内容や書式は共通ですがABCどれに○かはそれぞれ違います。
A・B・Cはアルファベットもナカポツも各1セルで5セルに入っています。
この○付け作業は、今まで図形の○付けでやってきましたが、やたら時間がかかります。
リスト選択にして、記号の○付き文字に変えるとすると、文字サイズを揃える必要が出てきます。
何か効率的に○付けをしていける方法は、ないでしょうか?
できればABC各何個か集計も出来ると助かります。ファイルごとや全体でも。
良い方法を教えてください。
2020/08/30(日) 08:52:40.76
オプションボックスにしたらいいのでは?
2020/08/30(日) 10:52:01.21
オプションボックスとは何ですか?
初心者にも分かるように書いてもらえますか?
初心者にも分かるように書いてもらえますか?
615牧野 ◆Vbs7gX72NY
2020/08/30(日) 11:06:02.71 >>612
前提がめんどくさすぎる。
フォントサイズごとコピーするのが一番早いと思う
Aの回答→?
Bの回答→?
Cの回答→?
そもそものフォーマットを変更できるならした方が良いと思う
https://i.imgur.com/K1bXRNp.png
後はgoogleフォームを使うと、アンケートや集計が楽になるよ
前提がめんどくさすぎる。
フォントサイズごとコピーするのが一番早いと思う
Aの回答→?
Bの回答→?
Cの回答→?
そもそものフォーマットを変更できるならした方が良いと思う
https://i.imgur.com/K1bXRNp.png
後はgoogleフォームを使うと、アンケートや集計が楽になるよ
616牧野 ◆Vbs7gX72NY
2020/08/30(日) 11:06:22.232020/08/30(日) 11:14:25.30
>>615
フォーマットは変更不可なので悩んでいるところです
フォーマットは変更不可なので悩んでいるところです
2020/08/30(日) 11:33:17.03
Excelにこだわらずforms使った方が早くない?
619牧野 ◆Vbs7gX72NY
2020/08/30(日) 11:50:27.73 >>617
フォーマットの変更不可はキツイな
vbaで○はつけられるけどエクセルは図形がとにかくずれるのであまりやらないほうが良い
それに結局どこに○を付けるかを指定する必要があるので、それを考えると囲み文字にしてしまったほうが早い
フォーマットの変更不可はキツイな
vbaで○はつけられるけどエクセルは図形がとにかくずれるのであまりやらないほうが良い
それに結局どこに○を付けるかを指定する必要があるので、それを考えると囲み文字にしてしまったほうが早い
2020/08/30(日) 12:32:52.94
>>619
やっぱり囲み文字をリスト選択にして、マクロでフォントサイズ指定が現実的なところですかね
やっぱり囲み文字をリスト選択にして、マクロでフォントサイズ指定が現実的なところですかね
621牧野 ◆Vbs7gX72NY
2020/08/30(日) 12:41:59.662020/08/30(日) 13:43:15.16
等幅フォントで全角Aに囲み合成文字(U+20DD)とか
A⃝
A⃝
2020/08/30(日) 15:45:45.82
後で集計できるように記録できますか
2020/08/30(日) 23:53:52.26
このデータをアイウエオ順に並べ替えたいのですが、どうすればいいかわかりますか?
百均のサンダル(東南アジアは必須)
百均のS字フック
百均の吸盤フック
百均のジッパー付き小物入れ
百均のジッパー付き手提げ袋(大)
※ 荷物が増えてバッグに入らなくなった場合等の緊急用
百均の財布または小銭入れ
百均の靴下
百均の使い捨てパンツ
百均の靴中敷き
百均の小型物干しまたは洗濯ばさみ
百均の爪切り
百均のハサミ
百均の絆創膏
百均のサージカルテープ
百均のガーゼ
百均のハンガー
百均の南京錠
百均の自転車用ワイヤーロック
百均のウェットティッシュ
百均の手袋(寒い時)または軍手
百均の製氷皿(暑い時)
百均のペットボトルホルダー
百均の方位磁石
百均の指示棒
百均のボールペン
百均の小型置時計
百均のサンダル(東南アジアは必須)
百均のS字フック
百均の吸盤フック
百均のジッパー付き小物入れ
百均のジッパー付き手提げ袋(大)
※ 荷物が増えてバッグに入らなくなった場合等の緊急用
百均の財布または小銭入れ
百均の靴下
百均の使い捨てパンツ
百均の靴中敷き
百均の小型物干しまたは洗濯ばさみ
百均の爪切り
百均のハサミ
百均の絆創膏
百均のサージカルテープ
百均のガーゼ
百均のハンガー
百均の南京錠
百均の自転車用ワイヤーロック
百均のウェットティッシュ
百均の手袋(寒い時)または軍手
百均の製氷皿(暑い時)
百均のペットボトルホルダー
百均の方位磁石
百均の指示棒
百均のボールペン
百均の小型置時計
2020/08/31(月) 00:02:55.27
>>624
ふりがなを追加入力してソートすれば簡単にできる
ふりがなを追加入力してソートすれば簡単にできる
626名無しさん@そうだ選挙にいこう
2020/08/31(月) 01:42:22.68 2007利用です
数値を加算するSUMについて
SUMに利用したセルを着色なり枠に色をつけるなり出来ませんか
どのセルを利用しているのか分かりやすくしたいです
数値を加算するSUMについて
SUMに利用したセルを着色なり枠に色をつけるなり出来ませんか
どのセルを利用しているのか分かりやすくしたいです
627名無しさん@そうだ選挙にいこう
2020/08/31(月) 08:03:58.08 >>624 関連
1、-1、2、-2、3、-3 をソートすると -3、-2、-1、1、2、3 と並び替えられますが、
A1、A2、A3、A-1、A-2、A-3 だと A1、A-1、A2、A-2、A3、A-3 となり、
A01、A001 やAと数値の間に空白や"*"、"_"などを入れると、また変わります。
A-3、A-2、A-1、A1、A2、A3 と、数値の部分を正しく並び替える方法はありますか。
以前のバージョンと異なっているようで、昔作った表がうまく並び替えられない。
(2003以前と2007以降とで変わったような)
1、-1、2、-2、3、-3 をソートすると -3、-2、-1、1、2、3 と並び替えられますが、
A1、A2、A3、A-1、A-2、A-3 だと A1、A-1、A2、A-2、A3、A-3 となり、
A01、A001 やAと数値の間に空白や"*"、"_"などを入れると、また変わります。
A-3、A-2、A-1、A1、A2、A3 と、数値の部分を正しく並び替える方法はありますか。
以前のバージョンと異なっているようで、昔作った表がうまく並び替えられない。
(2003以前と2007以降とで変わったような)
2020/08/31(月) 08:45:41.92
>>626
一時的でいいんなら、数式の入ったセルを編集状態にすると数式で使われてるセルに色が付く
一時的でいいんなら、数式の入ったセルを編集状態にすると数式で使われてるセルに色が付く
2020/08/31(月) 08:47:52.51
2020/08/31(月) 09:01:24.44
2020/08/31(月) 12:04:13.51
常に表示できませんか?
2020/08/31(月) 19:05:41.45
>>631
バージョンアップして条件付き書式とformulatext
バージョンアップして条件付き書式とformulatext
2020/08/31(月) 19:16:25.06
2019に「1-1」と入力したら「1月1日」と変換しない設定とか追加されてますか?
2020/08/31(月) 19:35:31.49
2020/08/31(月) 20:17:14.87
>>634
ありがとう
ありがとう
2020/09/01(火) 13:48:13.81
2020/09/01(火) 13:48:34.51
>>599
Excel2013です
Excel2013です
2020/09/01(火) 16:44:12.42
>>637
フィルターの詳細設定を使って別の範囲に抽出ならできる
フィルターの詳細設定を使って別の範囲に抽出ならできる
2020/09/01(火) 18:44:30.06
すいません質問です。
例えばA1に5が入っている時にB1に=A1と入力すると5が返りますよね?
これをマクロなら
range(“B1")=range("A1")を実行すると出来ると思います。
質問したい事は上記のマクロを実行しないで自動的にB1にA1のものを参照する事はできますか?勿論、B1に=A1などの計算式を入れる事もダメとします。
例えばA1に5が入っている時にB1に=A1と入力すると5が返りますよね?
これをマクロなら
range(“B1")=range("A1")を実行すると出来ると思います。
質問したい事は上記のマクロを実行しないで自動的にB1にA1のものを参照する事はできますか?勿論、B1に=A1などの計算式を入れる事もダメとします。
2020/09/01(火) 18:46:45.36
アホか
2020/09/01(火) 19:03:17.82
>>639
powerquery
powerquery
2020/09/01(火) 19:30:54.60
関数もマクロも使いたくないならExcel使う意味よ
2020/09/01(火) 20:24:41.40
外部からリアルタイムで操作させたいと?
644牧野 ◆Vbs7gX72NY
2020/09/01(火) 20:41:01.84 >>627
すごい力技だけど
https://blog-tips.sekenkodqx.jp/2019/10/09/excel-num-char-extract/
>>639
こういうコードを入れておくとシートの内容が変わるたびに自動的にコピーされる
https://i.imgur.com/kLkOD0L.png
すごい力技だけど
https://blog-tips.sekenkodqx.jp/2019/10/09/excel-num-char-extract/
>>639
こういうコードを入れておくとシートの内容が変わるたびに自動的にコピーされる
https://i.imgur.com/kLkOD0L.png
645牧野 ◆Vbs7gX72NY
2020/09/01(火) 20:44:24.76 コード貼り忘れた
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(1, 1).Value = Cells(1, 2).Value
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(1, 1).Value = Cells(1, 2).Value
Application.EnableEvents = True
End Sub
2020/09/01(火) 20:46:57.86
>>645
逆じゃね?
逆じゃね?
2020/09/01(火) 21:59:24.47
>>637
2013でも使える。
2013でも使える。
648639
2020/09/01(火) 22:41:56.85 返事をくれた方々ありがとうございました。
2020/09/02(水) 07:48:55.40
お世話になります。
ExcelVBAにて、コードを実行しようとすると
"このプロジェクトのマクロは無効に設定されています…"と表示されます。
ブックを開いたときに、マクロを有効にするかどうかも聞かれていますし
ファイル>オプション>トラストセンター>マクロの設定
を"警告を表示してすべてのマクロを無効にする"か"すべてのマクロを有効にする"
に設定しても症状が治りません。
お判りの方いましたらご助言頂きますようよろしくお願い致します。
ExcelVBAにて、コードを実行しようとすると
"このプロジェクトのマクロは無効に設定されています…"と表示されます。
ブックを開いたときに、マクロを有効にするかどうかも聞かれていますし
ファイル>オプション>トラストセンター>マクロの設定
を"警告を表示してすべてのマクロを無効にする"か"すべてのマクロを有効にする"
に設定しても症状が治りません。
お判りの方いましたらご助言頂きますようよろしくお願い致します。
2020/09/02(水) 09:21:11.00
>>649
特定のブックだけでなくすべてのマクロが動かない、どのフォルダーに入れてもだめならグループポリシーの可能性
特定のブックだけでなくすべてのマクロが動かない、どのフォルダーに入れてもだめならグループポリシーの可能性
2020/09/02(水) 20:23:33.74
グループポリシーはどこで設定しますか?
2020/09/02(水) 20:40:27.03
すいません、エクセル2019ですが
時間が
0.15、0.3、0.45…
の様に入力されているセルを使って時間計算する方法ってありますかね?
0.15=0:15
0.3=0:30
0.45=0:45
です
試しに
=LEFT(A1,1)&":"&RIGHT(A1,2)
とやって時間文字列に変換してみたのですが
0.15とかだと上手くいきますが、0.3の場合「0:.3」となとなって上手くいきません
それならばと
=LEFT(A1,1)&":"&MID(A1,3,2)
とかにすると、やはり0.3の場合「0:3」となります
TEXT関数やTIMEVALUEなどもいろいろやってみましたがどうも無理っぽい
こういった計算をなるべくシンプルな式で実現する方法ってありますかね?
時間が
0.15、0.3、0.45…
の様に入力されているセルを使って時間計算する方法ってありますかね?
0.15=0:15
0.3=0:30
0.45=0:45
です
試しに
=LEFT(A1,1)&":"&RIGHT(A1,2)
とやって時間文字列に変換してみたのですが
0.15とかだと上手くいきますが、0.3の場合「0:.3」となとなって上手くいきません
それならばと
=LEFT(A1,1)&":"&MID(A1,3,2)
とかにすると、やはり0.3の場合「0:3」となります
TEXT関数やTIMEVALUEなどもいろいろやってみましたがどうも無理っぽい
こういった計算をなるべくシンプルな式で実現する方法ってありますかね?
653名無しさん@そうだ選挙にいこう
2020/09/02(水) 21:10:49.17 >>652
SUBSTITUTE( ,".",":")
SUBSTITUTE( ,".",":")
2020/09/02(水) 21:19:24.35
2020/09/02(水) 21:53:44.16
>>652
Excelは
0.5/24=0:30
に出来る機能があります
なので、(0.5×5/3)/24=0:50となるはず
これの応用でなんとかならないかな?
5/72を全てのセルにかけるようにするとか
Excelは
0.5/24=0:30
に出来る機能があります
なので、(0.5×5/3)/24=0:50となるはず
これの応用でなんとかならないかな?
5/72を全てのセルにかけるようにするとか
2020/09/03(木) 01:16:10.84
2020/09/03(木) 01:17:06.43
>>653
それだと30分が3分になってしまう
それだと30分が3分になってしまう
2020/09/03(木) 03:54:42.79
>>652
対応表を作ってindexmatch
対応表を作ってindexmatch
2020/09/03(木) 03:59:50.77
15分ごとならchoose(A1/0.15,00:15,00:30,00:45)みたいに並べるとか
660652
2020/09/03(木) 17:07:28.55 皆様ありがとうございます
>>653
これだと、0.15とか1.43とかだといいのですが
下記のケースだと
0.3→0:3
1.2→1:2
とかになって上手くいかないです
念の為書式で「.00」を設定してみましたがやはりダメでした
>>655
なるほど、これもありましたね
なので単純に
(A1/24)/(6/10)
とやってみたら
0.3→0:30
になったので一瞬喜んだのですが、よくよく考えると時と分の単位が違うので1.5とかの1時間を越える分だと上手く行きません
一桁目と小数点以下を分離した上で計算すれば出来そうですが、ちょっと複雑になりそうでやめました。すいません
>>654
!!!これバッチリです。文字列を弄ってなんとか出来ないか四苦八苦してましたが、純粋に計算でいけますね。素晴らしい
これで行こうと思います。ありがとうございました
>>653
これだと、0.15とか1.43とかだといいのですが
下記のケースだと
0.3→0:3
1.2→1:2
とかになって上手くいかないです
念の為書式で「.00」を設定してみましたがやはりダメでした
>>655
なるほど、これもありましたね
なので単純に
(A1/24)/(6/10)
とやってみたら
0.3→0:30
になったので一瞬喜んだのですが、よくよく考えると時と分の単位が違うので1.5とかの1時間を越える分だと上手く行きません
一桁目と小数点以下を分離した上で計算すれば出来そうですが、ちょっと複雑になりそうでやめました。すいません
>>654
!!!これバッチリです。文字列を弄ってなんとか出来ないか四苦八苦してましたが、純粋に計算でいけますね。素晴らしい
これで行こうと思います。ありがとうございました
2020/09/03(木) 20:32:53.03
答えが出てるようなので今更だけど、普通に秒に直すという発想はなかったんかい。
2020/09/04(金) 00:14:11.72
=--TEXT(A1*100,"0"":""00")
2020/09/04(金) 11:49:06.26
【1 OSの種類 .】 Windows
【2 Excelのバージョン 】 Excel for office 365 mso
【3 VBAが使えるか .】 ・いいえ
【4 VBAでの回答の可否】 否
普段関数をつかわない超初心者です。
エクセル内で、URLの一部を別のタブの数字に変換してリストをつくりたいです。
自分で調べたところ
=hyperlink("http〜"&タブ)
にすると最後を置き換えられることがわかりました。
しかし最後に.htmlをつけるのがどうしても上手くいきません。
ご存じの方がいたら教えて下さい。
検索方法のヒントでも構いません。
よろしくお願い致します。
【2 Excelのバージョン 】 Excel for office 365 mso
【3 VBAが使えるか .】 ・いいえ
【4 VBAでの回答の可否】 否
普段関数をつかわない超初心者です。
エクセル内で、URLの一部を別のタブの数字に変換してリストをつくりたいです。
自分で調べたところ
=hyperlink("http〜"&タブ)
にすると最後を置き換えられることがわかりました。
しかし最後に.htmlをつけるのがどうしても上手くいきません。
ご存じの方がいたら教えて下さい。
検索方法のヒントでも構いません。
よろしくお願い致します。
2020/09/04(金) 12:06:07.01
2020/09/04(金) 12:25:49.29
>>664
正直、質問の意味がよくわからないんだけど、その式の最後にhtmlを付けるだけなら
=HYPERLINK("http〜"&タブ&".html")
タブって何?最後、最後って書いてるとけど、本当の最後は数字なのかhtmlなのかどっち?
正直、質問の意味がよくわからないんだけど、その式の最後にhtmlを付けるだけなら
=HYPERLINK("http〜"&タブ&".html")
タブって何?最後、最後って書いてるとけど、本当の最後は数字なのかhtmlなのかどっち?
2020/09/04(金) 14:15:41.46
htmlです。
2020/09/04(金) 20:39:30.61
だめだ、「http タブ」でググっても意味が分からん。
一体どんな不思議なことをやろうとしているんだ。
それより、Excel for office 365 msoって、
officeとmsoがかぶってはいませんか?
フルで言えば、Excel for office 365 microsoft officeでしょ?
一体どんな不思議なことをやろうとしているんだ。
それより、Excel for office 365 msoって、
officeとmsoがかぶってはいませんか?
フルで言えば、Excel for office 365 microsoft officeでしょ?
2020/09/04(金) 21:24:51.41
スピルって皆さん使ってますか?
2020/09/04(金) 21:37:27.15
2020/09/04(金) 21:39:11.29
672名無しさん@そうだ選挙にいこう
2020/09/05(土) 00:05:55.00 vbaをある程度マスターしたら自分で勝手に足りない物は作るから、エクセルの新機能なんてどうでもいい
2020/09/05(土) 00:13:54.20
ところでここの講師どもはエクセルで何作ってんの
2020/09/05(土) 01:05:13.27
昨今、サイバーセキュリティ()云々で上場企業ではVBA禁止されてきてる
そして何故かPowerPlatformが推奨されてる
そして何故かPowerPlatformが推奨されてる
2020/09/05(土) 09:04:31.08
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
1つの列にデータがずらっと並んでいて、そこから重複していないデータだけを別のシートに抽出する方法を教えてください
りんご
りんご
バナナ
みかん
みかん
が並んでいる場合、バナナだけを抽出したいです
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
1つの列にデータがずらっと並んでいて、そこから重複していないデータだけを別のシートに抽出する方法を教えてください
りんご
りんご
バナナ
みかん
みかん
が並んでいる場合、バナナだけを抽出したいです
2020/09/05(土) 09:16:55.34
えっと…コピペミスなの?
2020/09/05(土) 11:52:04.70
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
excel2013 vbaについて
pdfを別ファイルで何枚も保存するプログラムを作ったのですが、"名前を付けて保存"ダイアログだと、pdf1枚ごとに保存先を聞かれてしまいます。
保存先だけダイアログで決めて、保存名はコード上で指定して、次々にpdfを出力するにはどうすればよいでしょうか。
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
excel2013 vbaについて
pdfを別ファイルで何枚も保存するプログラムを作ったのですが、"名前を付けて保存"ダイアログだと、pdf1枚ごとに保存先を聞かれてしまいます。
保存先だけダイアログで決めて、保存名はコード上で指定して、次々にpdfを出力するにはどうすればよいでしょうか。
2020/09/05(土) 11:59:43.40
pdf保存処理ループの前にフォルダ選択のダイアログを出す
2020/09/05(土) 12:36:48.74
>>678
できました!ありがとうございます!
できました!ありがとうございます!
2020/09/05(土) 18:49:38.55
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
windows
セルA1にrandbetween関数でランダムな数値を入れ、vba上で k = range("A1").value と格納した場合について質問です。
ActiveSheet.Calculateで再計算すると、セルA1の値は変わりますが、kに格納された数字は変わりません。
もう一度k = range("A1").valueを記述すればよいのですが、実際のコードのこの部分は複雑で、何度も出てくるため、非常に煩雑になります。
ActiveSheet.Calculateしたとき、どうにかkの値も同時に格納し直したいのですが、どうすればよいでしょうか
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
windows
セルA1にrandbetween関数でランダムな数値を入れ、vba上で k = range("A1").value と格納した場合について質問です。
ActiveSheet.Calculateで再計算すると、セルA1の値は変わりますが、kに格納された数字は変わりません。
もう一度k = range("A1").valueを記述すればよいのですが、実際のコードのこの部分は複雑で、何度も出てくるため、非常に煩雑になります。
ActiveSheet.Calculateしたとき、どうにかkの値も同時に格納し直したいのですが、どうすればよいでしょうか
2020/09/05(土) 19:04:06.29
2020/09/05(土) 19:05:26.34
入力の都度ならプライベート関数使えばよいかと
2020/09/05(土) 19:19:46.14
>>681
kにはランダムなRGB値が入るようにしてあります。
そのRGB値は、セルA1 B1 C1 それぞれに=randbetween(0,255)を入力し、コード上でrange("A1")+range("B1")*256+range("C1")*256+256を計算して得ています。
これでセルを塗りつぶしていくのですが、隣り合った列(具体的にはもう少し複雑ですが、不要な説明なため省きます。)が似たような色にならないように、kの値を判定にかけてから塗りつぶす というコードにしています。
つまり、RGB値をセルから持ってくるようにしたのは、判定のためとそのほうがコードが簡潔になると思ったからです。
こういうケースではどうでしょうか?
kにはランダムなRGB値が入るようにしてあります。
そのRGB値は、セルA1 B1 C1 それぞれに=randbetween(0,255)を入力し、コード上でrange("A1")+range("B1")*256+range("C1")*256+256を計算して得ています。
これでセルを塗りつぶしていくのですが、隣り合った列(具体的にはもう少し複雑ですが、不要な説明なため省きます。)が似たような色にならないように、kの値を判定にかけてから塗りつぶす というコードにしています。
つまり、RGB値をセルから持ってくるようにしたのは、判定のためとそのほうがコードが簡潔になると思ったからです。
こういうケースではどうでしょうか?
2020/09/05(土) 19:38:19.45
何個セルあるの?それによる
2020/09/05(土) 19:39:35.77
2020/09/05(土) 21:02:57.22
>>683
Property GetでRGB取得してそれを参照すればいい
Property GetでRGB取得してそれを参照すればいい
2020/09/06(日) 09:52:11.94
そんなの何に使うんだよ。
ゲームならBitBltの方が速いんじゃないか?
ゲームならBitBltの方が速いんじゃないか?
2020/09/06(日) 10:15:48.91
>>687
答えられない奴の常套句やめい
答えられない奴の常套句やめい
2020/09/06(日) 11:24:13.08
>>688
用途不明過ぎて答えられないから目的聞いてるんだろうが。
用途不明過ぎて答えられないから目的聞いてるんだろうが。
2020/09/06(日) 15:23:53.60
用途は売掛の消し込み?
それともゲーム?
それともゲーム?
691名無しさん@そうだ選挙にいこう
2020/09/06(日) 16:51:45.03 INDIRECTってインディレクトとインダイレクトどっちが正しいの?
2020/09/06(日) 17:53:54.31
インダァレェクトゥ
2020/09/06(日) 17:56:54.74
スピル極めてるやつ居る?
2020/09/06(日) 18:43:51.20
>>690
ランダムで消すのかよw
ランダムで消すのかよw
2020/09/07(月) 00:44:02.48
ランダムな仕事ってのもあるらしいぞ
何ヶ月か前にVBAスレでデータを捏造する方法を聞いてるやつがいた
一定の条件で適当な数字を大量に入力して毎日提出するという謎の仕事があって、乱数を使ったマクロでやる方法を教えてやったら、一瞬で終わるようになったので入力担当者は仕事がなくなってクビになったそうだ
何ヶ月か前にVBAスレでデータを捏造する方法を聞いてるやつがいた
一定の条件で適当な数字を大量に入力して毎日提出するという謎の仕事があって、乱数を使ったマクロでやる方法を教えてやったら、一瞬で終わるようになったので入力担当者は仕事がなくなってクビになったそうだ
2020/09/07(月) 03:43:57.24
本気にしてたの
2020/09/07(月) 07:39:02.08
CHOOSE関数ってインデックスが整数じゃないとだめですか?
たとえばaというインデックスに対してsdf、bというインデックスに対してvcxを返したいときはIFのネスト使うしかないですか?
たとえばaというインデックスに対してsdf、bというインデックスに対してvcxを返したいときはIFのネスト使うしかないですか?
2020/09/07(月) 08:44:22.37
2020/09/07(月) 13:49:04.81
700名無しさん@そうだ選挙にいこう
2020/09/07(月) 13:52:18.33 表を作ってvlookupがいいんじゃないの
2020/09/07(月) 14:00:52.72
インデックスは数字じゃないとダメ
キーとインデックスの対応表作ってlookupするか直接lookupするか
キーとインデックスの対応表作ってlookupするか直接lookupするか
2020/09/07(月) 14:01:03.57
matchか
2020/09/07(月) 14:20:56.62
>>699
・MATCH("pink",{"pink","purple"},FALSE)
・=VLOOKUP("pink",{"pink","sdf";"purple","vcx"},2,FALSE)
・MATCH("pink",{"pink","purple"},FALSE)
・=VLOOKUP("pink",{"pink","sdf";"purple","vcx"},2,FALSE)
2020/09/07(月) 14:29:11.96
連想配列みたいなのも、やろうと思えばできるってレベル
2020/09/07(月) 21:51:39.65
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
セルの列に「0」が入力されていたら次の整数(0以外)までいくつ0がはいっているか数えたいのですがうまくできません。
例)
B C
0 2→Bの列に連続して0が2つ
0
5
0 3→Bの列に連続して0が3つ
0
0
7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
セルの列に「0」が入力されていたら次の整数(0以外)までいくつ0がはいっているか数えたいのですがうまくできません。
例)
B C
0 2→Bの列に連続して0が2つ
0
5
0 3→Bの列に連続して0が3つ
0
0
7
2020/09/07(月) 22:54:15.72
うーん…?作業列作っていいならB列にCOUNTIFかIFで整数だと1かえすようにして
C1
=COUNTIF(OFFSET(A1,0,0,MATCH(1,B1:$B$20,0),1),0)
C2以降
=IF(AND(A1=0,OR(A2>0,A2=0)),"",COUNTIF(OFFSET(A2,0,0,MATCH(1,B2:$B20,0),1),0))
駄目だなわいのようなたまにしか使わん程度にはいいの思いつかん
C1
=COUNTIF(OFFSET(A1,0,0,MATCH(1,B1:$B$20,0),1),0)
C2以降
=IF(AND(A1=0,OR(A2>0,A2=0)),"",COUNTIF(OFFSET(A2,0,0,MATCH(1,B2:$B20,0),1),0))
駄目だなわいのようなたまにしか使わん程度にはいいの思いつかん
707名無しさん@そうだ選挙にいこう
2020/09/08(火) 00:51:47.51 こんな風に
https://i.imgur.com/JEd7iA7.png
N列に何か入力された時に、その右のO列に書いてある数字を足していってその合計をQ2に表示させたい場合
どんな関数を入力すればいいのか教えてください
https://i.imgur.com/JEd7iA7.png
N列に何か入力された時に、その右のO列に書いてある数字を足していってその合計をQ2に表示させたい場合
どんな関数を入力すればいいのか教えてください
2020/09/08(火) 01:12:10.02
>>689
用途を聞かないと答えられないなら触れなくていいと思う
用途を聞かないと答えられないなら触れなくていいと思う
2020/09/08(火) 01:14:41.85
>>707
=SUMPRODUCT((N:N<>"")*O:O)
=SUMPRODUCT((N:N<>"")*O:O)
2020/09/08(火) 01:22:36.68
>>707
sumifで検索条件を"<>"にする
sumifで検索条件を"<>"にする
2020/09/08(火) 01:39:42.93
2020/09/08(火) 06:22:25.97
>>711
解決しました。ありがとうございます。
解決しました。ありがとうございます。
2020/09/08(火) 11:58:06.71
【1 OSの種類 】 Windows10
【2 Excelのバージョン】 Excel2013 、2016
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否 】可
新規でシートを作成する際にセルの幅(列・行)
をデフォルトから任意の幅に設定したいと考えてます。
現在はマクロでやっていますが、この方法だと
シートを作成してからいちいちマクロボタンを押さねばならないので、シートを作成した時点でセル幅を調整済みのものに出来ないでしょうか?
よろしくお願いします!
【2 Excelのバージョン】 Excel2013 、2016
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否 】可
新規でシートを作成する際にセルの幅(列・行)
をデフォルトから任意の幅に設定したいと考えてます。
現在はマクロでやっていますが、この方法だと
シートを作成してからいちいちマクロボタンを押さねばならないので、シートを作成した時点でセル幅を調整済みのものに出来ないでしょうか?
よろしくお願いします!
2020/09/08(火) 12:25:13.38
>>713
シートの新規作成まで全部マクロに入れておけばワンクリックで終わる
シートの新規作成まで全部マクロに入れておけばワンクリックで終わる
2020/09/08(火) 12:36:44.26
2020/09/08(火) 14:28:00.70
地獄の始まりw
無責任なアドバイスだな
無責任なアドバイスだな
2020/09/08(火) 22:02:27.38
【1 OSの種類 .】 Windows8.1
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
■やりたいこと
参照セルを使わずにプルダウンメニューから「今日の日付」を選べるようにしたい。
■試してみたこと
(1)名前の定義で名前「今日の日付」、参照範囲「=TEXT(TODAY(),"ggge年m月d日")」を設定
(2)データの入力規則で入力値の種類「リスト」、元の値「=今日の日付」を設定
※しかし、(2)でエラーとなり設定できない。「=INDIRECT("今日の日付")」も試したがダメ。
参照セルを使えば簡単だが、何とか参照セルを使わずに行いたい。
よろしくお願いします。
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
■やりたいこと
参照セルを使わずにプルダウンメニューから「今日の日付」を選べるようにしたい。
■試してみたこと
(1)名前の定義で名前「今日の日付」、参照範囲「=TEXT(TODAY(),"ggge年m月d日")」を設定
(2)データの入力規則で入力値の種類「リスト」、元の値「=今日の日付」を設定
※しかし、(2)でエラーとなり設定できない。「=INDIRECT("今日の日付")」も試したがダメ。
参照セルを使えば簡単だが、何とか参照セルを使わずに行いたい。
よろしくお願いします。
718名無しさん@そうだ選挙にいこう
2020/09/09(水) 02:45:10.45719名無しさん@そうだ選挙にいこう
2020/09/09(水) 20:02:30.30 >>718
ああ、説明が悪くて申し訳ない。
プルダウンで「今日の日付」という文言を表示するのではなく、「○年○月○日」という表示を動的に行いたい。
そのために試したのが、(1)を設定後に(2
)を設定するという手順。
作業セルを作らずに動的な日付をプルダウンメニューで表示する方法はありませんか?
ああ、説明が悪くて申し訳ない。
プルダウンで「今日の日付」という文言を表示するのではなく、「○年○月○日」という表示を動的に行いたい。
そのために試したのが、(1)を設定後に(2
)を設定するという手順。
作業セルを作らずに動的な日付をプルダウンメニューで表示する方法はありませんか?
2020/09/09(水) 20:20:04.35
頑なに計算セルを用意しないとか、プルダウンに拘るとか目的がわからない
2020/09/09(水) 20:30:22.13
>>713
もう解決しちゃったかな
そのバージョンでどうかはわからないんだけど、
2000のときに新規作成のシート数デフォルト3を1にするときの方法で、
C:\Windows\ShellNewにあるファイルを目的のものに置き換えるという方法があった
そこにファイルがあれば置換、ない場合はレジストリをいじるとか何とかだったと思う
お暇なら試してみて
もう解決しちゃったかな
そのバージョンでどうかはわからないんだけど、
2000のときに新規作成のシート数デフォルト3を1にするときの方法で、
C:\Windows\ShellNewにあるファイルを目的のものに置き換えるという方法があった
そこにファイルがあれば置換、ない場合はレジストリをいじるとか何とかだったと思う
お暇なら試してみて
2020/09/09(水) 21:37:51.32
マクロを使わずにA列の5行からA2に入力された数値の行までの最大値を求めてA1に表示したいです
たとえばA2に123と入力されていたら、A1=MAX(A5:A123)という具合です
このような場合、A1にどのような数式を記述すればいいでしょうか?
たとえばA2に123と入力されていたら、A1=MAX(A5:A123)という具合です
このような場合、A1にどのような数式を記述すればいいでしょうか?
723名無しさん@そうだ選挙にいこう
2020/09/09(水) 22:08:02.372020/09/09(水) 23:06:34.07
725名無しさん@そうだ選挙にいこう
2020/09/09(水) 23:31:28.87 >>723
非表示にしておけばいいじゃん
非表示にしておけばいいじゃん
2020/09/09(水) 23:37:26.48
2020/09/09(水) 23:51:55.20
>>722
max(indirect("a5:a"&a2))
max(indirect("a5:a"&a2))
2020/09/10(木) 06:57:13.48
2020/09/10(木) 08:04:06.84
MATCH関数を使うと指定範囲内のどこに目的の値が存在するかがわかりますが、
値が重複している場合は最初に引っかかったものが返ってきます
これを最後に引っかかったものにすることはできないでしょうか?
ソートやマクロは使わないで、セルに数式を入力するだけですませたいです
値が重複している場合は最初に引っかかったものが返ってきます
これを最後に引っかかったものにすることはできないでしょうか?
ソートやマクロは使わないで、セルに数式を入力するだけですませたいです
2020/09/10(木) 08:39:09.20
>>729
XMATCH関数で出来るよ
XMATCH関数で出来るよ
731名無しさん@そうだ選挙にいこう
2020/09/10(木) 09:23:19.342020/09/10(木) 10:11:26.57
Excelの万年カレンダーを作りたいのですが思うようにいかず困ってます
色々なサイトをほぼ丸パクリにして月曜日スタートにして2020年11月を指定すると11月2日月曜日がスタートになり11月1日が消えてしまいます。
どのような関数を入れる事で解決出来るのでしょうか
色々なサイトをほぼ丸パクリにして月曜日スタートにして2020年11月を指定すると11月2日月曜日がスタートになり11月1日が消えてしまいます。
どのような関数を入れる事で解決出来るのでしょうか
2020/09/10(木) 10:20:17.63
丸パクリしたサイトでは11月1日のない万年カレンダーを紹介しているのかな
2020/09/10(木) 10:31:27.98
2020/09/10(木) 14:56:37.41
2020/09/10(木) 18:12:56.65
Sub シートの名前を付け直す()
Dim i, k, h
Dim Targets As New Collection, buf As String
Dim ws As Worksheets
For i = 3 To Worksheets.Count
Targets.Add Worksheets(i)
Next
k = 1
⭐For Each ws In Targets
If k < 10 Then
Targets.Name = "0" & k
End If
Next
End Sub
以上のコードで⭐のとこで型が違うというエラーが出ます。
ws と Targetsの型が違うという意味だと思うのですが、どうすればよいのでしょうか
Dim i, k, h
Dim Targets As New Collection, buf As String
Dim ws As Worksheets
For i = 3 To Worksheets.Count
Targets.Add Worksheets(i)
Next
k = 1
⭐For Each ws In Targets
If k < 10 Then
Targets.Name = "0" & k
End If
Next
End Sub
以上のコードで⭐のとこで型が違うというエラーが出ます。
ws と Targetsの型が違うという意味だと思うのですが、どうすればよいのでしょうか
2020/09/10(木) 18:13:26.05
文字化けしました
⭐ = ☆ です
⭐ = ☆ です
2020/09/10(木) 18:23:09.96
2020/09/10(木) 18:28:45.44
>>738
それだと全てのシートが対象になってしまいますよね?
Targetsコレクションに指定したワークシートをまとめて、そのコレクションに対してFor eachをかける という動作をしたかったのですが...
それだと全てのシートが対象になってしまいますよね?
Targetsコレクションに指定したワークシートをまとめて、そのコレクションに対してFor eachをかける という動作をしたかったのですが...
2020/09/10(木) 18:31:19.98
すみませんtarget.nameはおかしいですね
その他修正してうまくいきました
ありがとうございました。
その他修正してうまくいきました
ありがとうございました。
2020/09/11(金) 17:13:48.22
2行1列の結合セルがずらーっと縦に並んでて値が入力されていたとして、それを全選択してコピーして、下に一つずらして貼り付けるとセルの結合が解除されるのですが... 何故でしょう
コピー側と貼り付け先のセルの状態(結合のしかた)が全く同じなのに解除されます
コピー側と貼り付け先のセルの状態(結合のしかた)が全く同じなのに解除されます
2020/09/11(金) 17:20:23.61
>>741
コピー元範囲と貼付け先範囲が被るから
コピー元範囲と貼付け先範囲が被るから
2020/09/11(金) 17:52:08.70
2020/09/11(金) 18:53:44.88
セルの結合とかやる馬鹿まだいるんだ
2020/09/11(金) 19:36:50.62
セル結合は表計算ソフトとしてありえない挙動なんだからする方が悪い
2020/09/11(金) 19:47:28.29
セル結合がdisれる様になってようやくエクセル使いとして一人前
2020/09/12(土) 09:11:47.33
Accesじゃないから結合したって良いじゃない
2020/09/12(土) 09:24:07.38
少なくとも計算するシートで結合はありえない
749名無しさん@そうだ選挙にいこう
2020/09/12(土) 11:01:31.46 ありえない挙動するなら機能として元々付けなければいいのに
750名無しさん@そうだ選挙にいこう
2020/09/12(土) 11:43:37.49 A列とB列に値が入っていて、A*Bの15個ごとの移動平均を求めたいです。
C=A*BとしてD1にAVERAGE(C1:C15)を入れてD列にコピーすればいいのですが、
不要なC列を使わずにAVERAGE(A1*B1:A15*B15)みたいな感じで書く方法はないでしょうか?
ちなみにAVERAGE(A1*B1:A15*B15)は#VALUE!となります。
C=A*BとしてD1にAVERAGE(C1:C15)を入れてD列にコピーすればいいのですが、
不要なC列を使わずにAVERAGE(A1*B1:A15*B15)みたいな感じで書く方法はないでしょうか?
ちなみにAVERAGE(A1*B1:A15*B15)は#VALUE!となります。
2020/09/12(土) 12:16:04.23
バージョンもvba可不可もわからんしsumproductでもつかえば?
2020/09/12(土) 12:25:45.66
>>750
=SUMPRODUCT(A1:A15*B1:B15)/15
=SUMPRODUCT(A1:A15*B1:B15)/15
753名無しさん@そうだ選挙にいこう
2020/09/12(土) 13:09:34.562020/09/12(土) 14:31:29.58
お文具さんって知ってますか??
2020/09/13(日) 12:23:15.45
他人が作ったエクセルを使わなきゃならないことがあるからねぇ...
セル結合を心から受け入れてこそ一人前なんだよねぇ...
セル結合を心から受け入れてこそ一人前なんだよねぇ...
2020/09/13(日) 14:12:43.47
2020/09/13(日) 14:21:36.78
まず結合を解除します
2020/09/13(日) 15:01:15.34
選択範囲内に結合箇所があるかないかわかる関数があれば良いのかな。
2020/09/13(日) 15:42:43.27
CELL関数とかでわかんないのかなと思ったけどわかんないみたいね
2020/09/13(日) 15:58:21.19
MergeCells使えばいいんじゃない?
総当りで
総当りで
2020/09/13(日) 19:23:35.59
総当りいらんでしょ
普通に範囲のMergeCellsプロパティ見たらいいだけ
https://docs.microsoft.com/ja-jp/office/vba/api/excel.range.mergecells
普通に範囲のMergeCellsプロパティ見たらいいだけ
https://docs.microsoft.com/ja-jp/office/vba/api/excel.range.mergecells
762牧野 ◆Vbs7gX72NY
2020/09/13(日) 19:34:20.78 範囲選択するとリボンの表示が変わるのでそれをアテにするのは?
https://i.imgur.com/mB7w9Ce.png
https://i.imgur.com/mB7w9Ce.png
2020/09/13(日) 23:01:43.03
2020/09/14(月) 10:19:24.53
>>762
これ常識かと思ってた
これ常識かと思ってた
2020/09/15(火) 09:48:50.30
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】否
A1にA2〜A101まで入力した数値のAverageを表示し、A2〜A101に数値を入力するようにしています
数値の入力数が20以下の場合に(入力数が少ない場合に)A1のセルを黄色にするにはどうしたら良いのでしょうか?
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】いいえ
【4 VBAでの回答の可否】否
A1にA2〜A101まで入力した数値のAverageを表示し、A2〜A101に数値を入力するようにしています
数値の入力数が20以下の場合に(入力数が少ない場合に)A1のセルを黄色にするにはどうしたら良いのでしょうか?
2020/09/15(火) 11:06:34.35
IF
COUNT
COUNT
2020/09/15(火) 12:00:55.73
>>765
条件付き書式で=COUNT(A2:A101)<=20
条件付き書式で=COUNT(A2:A101)<=20
2020/09/15(火) 12:31:21.57
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
ちょっと漠然としつつ、でも(多分)あるあるな質問なのですが、
エクセルのファイルを開いて、なんの入力や変更も行わずに閉じても
「保存しますか?」とダイアログでいちいち確認が入ってしまうファイルがありますが、
ダイアログがでる理由って何が考えられますか?
できるのなら対処もしたいです。
【2 Excelのバージョン 】 Excel2016
ちょっと漠然としつつ、でも(多分)あるあるな質問なのですが、
エクセルのファイルを開いて、なんの入力や変更も行わずに閉じても
「保存しますか?」とダイアログでいちいち確認が入ってしまうファイルがありますが、
ダイアログがでる理由って何が考えられますか?
できるのなら対処もしたいです。
2020/09/15(火) 12:50:00.15
>>768
indirect関数などの「揮発性関数」を使ってませんか?
indirect関数などの「揮発性関数」を使ってませんか?
2020/09/15(火) 12:56:28.96
todayとかがよくあるね
2020/09/15(火) 13:08:19.76
>>768
xlsxでなく、xlsファイルを互換モードで開いている時にもその現象は起こる
xlsxでなく、xlsファイルを互換モードで開いている時にもその現象は起こる
2020/09/15(火) 19:23:58.50
ExcelってNumbersと異なってドロップダウンリストが▼クリックしないと表示されないんだよな。
Numbersは選択するだけで表示されるので超楽。
Numbersは選択するだけで表示されるので超楽。
2020/09/15(火) 19:35:41.01
>>772
選択→セル選択
選択→セル選択
2020/09/15(火) 19:38:40.32
実際にはAlte+↓で表示されるけど面倒くさいし、なぜワンアクション必要とする仕様にする必要が無いよね。
775牧野 ◆Vbs7gX72NY
2020/09/15(火) 20:32:36.24 cells.Validation()で設定されたかどうか判定
Worksheet_SelectionChangeでリストを開くってのを作ろうと思ったけどcells.Validationの判定が分からなかった
Worksheet_SelectionChangeでリストを開くってのを作ろうと思ったけどcells.Validationの判定が分からなかった
2020/09/15(火) 21:29:20.77
Excel365ですがExcel2010の時とROW関数の仕様変わりました?
Excel2010
=ROW(A1:A10)
だとA1からA10までの最終行のセル番が出ましたが
Excel365
=ROW(A1:A10)
だとA1からA10までのセル番が全てスピルで出てきます
まぁ考えてみれば当然ですがね
Excel2010
=ROW(A1:A10)
だとA1からA10までの最終行のセル番が出ましたが
Excel365
=ROW(A1:A10)
だとA1からA10までのセル番が全てスピルで出てきます
まぁ考えてみれば当然ですがね
2020/09/15(火) 21:35:53.93
778牧野 ◆Vbs7gX72NY
2020/09/15(火) 21:49:43.612020/09/15(火) 22:00:07.08
2020/09/16(水) 00:36:50.45
ざっくりとした質問ですが、ここでの質問に答えられるくらいの知識と応用力はどうやったら身につくのでしょうか?
Excel ○○ ○○
といった感じで都度ネットで検索するか、ここで質問するかで対処していますが・・・
Excel関連の本を読み尽くすのが無難でしょうか?
Excel ○○ ○○
といった感じで都度ネットで検索するか、ここで質問するかで対処していますが・・・
Excel関連の本を読み尽くすのが無難でしょうか?
2020/09/16(水) 00:59:20.12
2020/09/16(水) 01:00:05.29
エクセルの先生になりたいの?w
2020/09/16(水) 20:49:01.72
冴子先生
2020/09/16(水) 20:52:46.41
2020/09/16(水) 22:03:17.54
Excelマスターのみなさん教えてください。
A1に月末日が入力されています。
B1にA1の翌月20日を返したいです。
しかし、20日が土日祝日なら前の日付を返したいです。
20日が土曜日なら19日、日曜日なら18日といった具合です、
よろしくお願いします。
A1に月末日が入力されています。
B1にA1の翌月20日を返したいです。
しかし、20日が土日祝日なら前の日付を返したいです。
20日が土曜日なら19日、日曜日なら18日といった具合です、
よろしくお願いします。
2020/09/16(水) 22:41:46.37
2020/09/16(水) 22:48:07.84
2020/09/16(水) 22:59:39.66
曜日は分かっても祝日は無理なんじゃないか
2020/09/16(水) 22:59:56.59
EOMONTH
祝日一覧
workday
でできるかな
祝日一覧
workday
でできるかな
2020/09/17(木) 03:57:24.13
月末日は予めわかっているんだからedateで20日後算出、ifとweekday組み合わせて土なら-1、日なら-2で通常月は対応できる。
18-20日が祝日になる可能性があるのは現状春分、海、敬老の3つなのでそのカレンダーを作っておく。仕組み上、それらの振替休日は該当しない。
あとはカレンダーにmatchさせて引いていけばよいけど、関数だと長ったらしいのでVBAをおすすめする。
ここまで書いててあれだけど、最初から請求締め日のカレンダー作っておいた方が早い気がしてきた
18-20日が祝日になる可能性があるのは現状春分、海、敬老の3つなのでそのカレンダーを作っておく。仕組み上、それらの振替休日は該当しない。
あとはカレンダーにmatchさせて引いていけばよいけど、関数だと長ったらしいのでVBAをおすすめする。
ここまで書いててあれだけど、最初から請求締め日のカレンダー作っておいた方が早い気がしてきた
2020/09/17(木) 04:19:24.07
春分が鬼門だな
こいつだけは自動計算できないから、結局は手作業で締め日のテーブルを用意するしかないのでは
こいつだけは自動計算できないから、結局は手作業で締め日のテーブルを用意するしかないのでは
2020/09/17(木) 07:17:21.11
手作業でやったほうが楽なパターン
793名無しさん@そうだ選挙にいこう
2020/09/17(木) 07:29:31.84 祝祭日リスト用意してworkdayで次月の1日の1営業日前かな
794牧野 ◆Vbs7gX72NY
2020/09/17(木) 20:11:02.75 春分の日や秋分の日って決まってるようなもんなんだからそれで決め打ちでもいいと思うけどね
https://ja.wikipedia.org/wiki/%E6%98%A5%E5%88%86%E3%81%AE%E6%97%A5
祝日の追加はどうしようもないから、毎年12月頃に確認するしかない
https://ja.wikipedia.org/wiki/%E6%98%A5%E5%88%86%E3%81%AE%E6%97%A5
祝日の追加はどうしようもないから、毎年12月頃に確認するしかない
2020/09/17(木) 20:26:03.50
祝日はリストを用意するとして、
「20日が土日または祝日なら19日、19が土日(略)なら18、18が、、、」というのをどうするか。
最初に思いつくのはif関数だけど、どこまでネストするのか。
vba使わないで他に何か良い方法あれば私も知りたい。
「20日が土日または祝日なら19日、19が土日(略)なら18、18が、、、」というのをどうするか。
最初に思いつくのはif関数だけど、どこまでネストするのか。
vba使わないで他に何か良い方法あれば私も知りたい。
2020/09/17(木) 21:15:43.72
2020/09/18(金) 12:16:40.31
20日からさかのぼる話なら20日が月曜祝日で17日金曜日を求めるのが一番めんどくさいケースでしょ
17日金曜日が祝日になることはないからそれ以上面倒なケースはない
20日でなく任意の日となると5月6日を判断するケースが一番めんどくさい
17日金曜日が祝日になることはないからそれ以上面倒なケースはない
20日でなく任意の日となると5月6日を判断するケースが一番めんどくさい
2020/09/18(金) 13:56:45.57
20日を月曜振替休日にすると、めんどくささがもう一段階上がるぞ
2020/09/18(金) 14:04:41.58
一覧表を手作業で作った方が早い
手抜きの計算式で20年分ぐらい一気に作っといて、カレンダーを見ながら手動で数カ所修正するだけ
手抜きの計算式で20年分ぐらい一気に作っといて、カレンダーを見ながら手動で数カ所修正するだけ
2020/09/18(金) 15:00:49.31
効率の話を勝手にしないでください
2020/09/18(金) 17:27:01.03
802785
2020/09/18(金) 19:15:36.12 レスしてくれた人ありがとうございます。
なんか関数でやるのはかなり煩雑になりそうですね。
VBAはあまり分かりませんが、VBAでやってみたいと思います。
なんか関数でやるのはかなり煩雑になりそうですね。
VBAはあまり分かりませんが、VBAでやってみたいと思います。
2020/09/18(金) 19:16:39.76
2020/09/18(金) 20:24:51.37
2020/09/18(金) 20:38:19.44
>>802
793や796の言ってるとおり、WORKDAY使えばすごく単純にできるよ
=WORKDAY(A1+21, -1 , 休日リスト)
で大丈夫
休日リストを自動化させるのが、いろいろと落とし穴があって難しいところがあるけど
祝日候補を作業セルに入れて、毎年手作業で書き換えれば難しくないよ
793や796の言ってるとおり、WORKDAY使えばすごく単純にできるよ
=WORKDAY(A1+21, -1 , 休日リスト)
で大丈夫
休日リストを自動化させるのが、いろいろと落とし穴があって難しいところがあるけど
祝日候補を作業セルに入れて、毎年手作業で書き換えれば難しくないよ
2020/09/18(金) 20:39:11.19
祝日はめんどくさいなぁ
春分や秋分のように正式に決まるのが前年とかだったり、法改正で新しい祝日ができたりもするから、数年先までそのまま使える祝日一覧ってのはなかなか出来ない
結局毎年修正
春分や秋分のように正式に決まるのが前年とかだったり、法改正で新しい祝日ができたりもするから、数年先までそのまま使える祝日一覧ってのはなかなか出来ない
結局毎年修正
2020/09/18(金) 20:39:50.89
vbaなら条件に一致する場合(土日祝日の場合)はマイナス1として、do loop untilかwhileで書けば、ネストする回数考えなくてよいし割と分かりやすい。
関数でやるとifを入れ子にして4回使えばできそう。どちらにしても祝日一覧を作るのは前提として。
21日は関係ないと思うんだけど、どういうこと?私の理解不足?
関数でやるとifを入れ子にして4回使えばできそう。どちらにしても祝日一覧を作るのは前提として。
21日は関係ないと思うんだけど、どういうこと?私の理解不足?
2020/09/18(金) 20:42:47.26
なるほど、workday使って21から引くわけね。わかりました。weekdayと空目した。
809785
2020/09/18(金) 20:50:43.40 まさかこんなに話題になるとは思いませんでした。。。
VBAは苦手なので関数で対応したいと思います。ありがとうございました。
VBAは苦手なので関数で対応したいと思います。ありがとうございました。
2020/09/18(金) 21:22:35.23
祝日リストについては、それを作れるアドインを
置いてくれてるwebページとかあるし
大した手間いらない
置いてくれてるwebページとかあるし
大した手間いらない
2020/09/18(金) 22:28:11.09
ネットにアクセスできれば、どっかからカレンダーを落としてくるのが簡単
そのサイトが永続かどうかって問題はあるけど
政府がデータベースを公開してくれるといいんだけど
デジタル省とか作るんなら、そういうデータこそ国が固定されたURLとフォーマットで提供してくれないかなあ
そのサイトが永続かどうかって問題はあるけど
政府がデータベースを公開してくれるといいんだけど
デジタル省とか作るんなら、そういうデータこそ国が固定されたURLとフォーマットで提供してくれないかなあ
2020/09/19(土) 07:35:41.74
デジタル省の本当の目的はマイナンバーカードを全国民に持たせることだからな
カード利権に金を流せればそれ以上は興味ないでしょ
カード更新のたびに国民が金払うとかアホか
カード利権に金を流せればそれ以上は興味ないでしょ
カード更新のたびに国民が金払うとかアホか
2020/09/19(土) 07:36:58.43
>>803
おまえの意見が採用されなくて残念だったなwww
おまえの意見が採用されなくて残念だったなwww
2020/09/19(土) 08:00:38.88
たとえ効率の良い解決策があったとしても、実際使う人が理解できなければ無意味なわけで、
さんざんWEEKDAY連呼した挙句返ってきた答えが「なんか関数でやるのはかなり煩雑になりそうですね。」
そして捨て台詞「このスレ、初心者も回答書いたり、理解出来ない愚痴書くスレだったとは」
相手のレベルに合わせて教えてあげる能力のない人がマウント取りたいだけ
滑稽だな
さんざんWEEKDAY連呼した挙句返ってきた答えが「なんか関数でやるのはかなり煩雑になりそうですね。」
そして捨て台詞「このスレ、初心者も回答書いたり、理解出来ない愚痴書くスレだったとは」
相手のレベルに合わせて教えてあげる能力のない人がマウント取りたいだけ
滑稽だな
2020/09/19(土) 08:58:23.58
>>813
いろんな人が居るから仕方ないな
いろんな人が居るから仕方ないな
2020/09/19(土) 09:02:03.79
セルに入っている文字列から特定の文字を抜き出す関数あったら教えて。
例えば、
特定の文字→あ
文字列→あしかのあかちゃん
抜き出した結果→ああ・もしくは2
特定の文字→う
文字列→うちゅうのうみでうんどうかい
抜き出した結果→ううううう・もしくは5
例えば、
特定の文字→あ
文字列→あしかのあかちゃん
抜き出した結果→ああ・もしくは2
特定の文字→う
文字列→うちゅうのうみでうんどうかい
抜き出した結果→ううううう・もしくは5
2020/09/19(土) 09:02:47.78
余裕じゃんw
2020/09/19(土) 09:08:16.57
セルの個数は出るんだけど、
セルの中に何個あるかはよくわからんの。
セルの中に何個あるかはよくわからんの。
819名無しさん@そうだ選挙にいこう
2020/09/19(土) 10:03:01.01 特定の文字→い
文字列→いちごばたけのいちねんせい
抜き出した結果→いいい・もしくは3
ってこと?
文字列→いちごばたけのいちねんせい
抜き出した結果→いいい・もしくは3
ってこと?
820名無しさん@そうだ選挙にいこう
2020/09/19(土) 10:11:14.08 特定の文字→A1
文字列→A2
なら
抜き出した結果@→A3=REPT(A1,A4)
抜き出した結果A→A4=LEN(A2)-LEN(SUBSTITUTE(A2,A1,""))
文字列→A2
なら
抜き出した結果@→A3=REPT(A1,A4)
抜き出した結果A→A4=LEN(A2)-LEN(SUBSTITUTE(A2,A1,""))
821名無しさん@そうだ選挙にいこう
2020/09/19(土) 10:42:30.02 substitudeで置き換えた結果と長さ比べればわかるんじゃないの
822名無しさん@そうだ選挙にいこう
2020/09/19(土) 10:46:31.28 前に書いてあることを読んで読んだことを忘れてまるで自分が思いついたかのように話す人
2020/09/19(土) 10:52:01.73
嫌いじゃない
2020/09/19(土) 11:53:22.67
どういう状況で使うんだそれ…。
2020/09/19(土) 14:22:14.15
2020/09/19(土) 14:57:59.40
827牧野 ◆Vbs7gX72NY
2020/09/19(土) 22:15:07.42 数式を入力したあと、数式バーで入力状態にすると使用セルがハイライトされますが、
このハイライトってドラッグで移動できるのはご存知でしょうか
また、この操作って名前ありますか?
https://i.imgur.com/ywrFtwG.png
このハイライトってドラッグで移動できるのはご存知でしょうか
また、この操作って名前ありますか?
https://i.imgur.com/ywrFtwG.png
828名無しさん@そうだ選挙にいこう
2020/09/20(日) 01:52:50.64 知ってるが名前までは知らない。
勝手につけちゃえば?
ナイスセルとか。
勝手につけちゃえば?
ナイスセルとか。
829名無しさん@そうだ選挙にいこう
2020/09/20(日) 01:56:35.93 ああ香具師セルでいいや。
香具師なんて今時誰も使ってないから空いてる。
香具師なんて今時誰も使ってないから空いてる。
2020/09/20(日) 02:20:19.59
ピボットテーブルについて質問です
入出庫とカレンダーのモデルデータを参照させています。列に日付、行に商品コードを設定しており、表示させる値をその日時点の在庫数にしたいです。
メジャーでsum([入庫])-sum([出庫])を設定すると当日のみの在庫となり、入庫のない日はマイナスになります。
タイムラインを使わず日ごとの累計値にするにはどのように記述すればよいでしょうか?
入出庫とカレンダーのモデルデータを参照させています。列に日付、行に商品コードを設定しており、表示させる値をその日時点の在庫数にしたいです。
メジャーでsum([入庫])-sum([出庫])を設定すると当日のみの在庫となり、入庫のない日はマイナスになります。
タイムラインを使わず日ごとの累計値にするにはどのように記述すればよいでしょうか?
2020/09/20(日) 02:41:33.84
パワーピボットなら簡単
2020/09/20(日) 07:17:32.25
>>827
うごかセル?
うごかセル?
2020/09/20(日) 08:31:01.99
>>832
小林製薬かよ
小林製薬かよ
2020/09/23(水) 21:08:22.56
すみませんが、Excel はちょっと、、、
Excel を使わない方法はないでしょうか。
Excel を使わない方法はないでしょうか。
2020/09/23(水) 21:18:38.45
>>835
あんた誰?
あんた誰?
2020/09/23(水) 22:10:22.90
Excel以外だとJ-Excelくらいかな。
使ったことないからわからんけど。
使ったことないからわからんけど。
2020/09/23(水) 23:32:29.87
>>835
手計算してたんだよ昔は!
手計算してたんだよ昔は!
2020/09/24(木) 00:59:44.54
方眼紙とモノサシ、エンピツと電卓があればエクセルなんていらないさ
2020/09/24(木) 11:09:14.59
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
商品リストシートに商品コード、商品名を入力しています。
データシートのAセルに商品コードを入力するとBセルに商品名が、Bセルに商品名を入力するとAセルに商品コードが表示されるようにしたいのですが、循環関数になってしまいます。
再計算せずに大人しくしててくれるか、ドロップダウンリストみたいに空いてるセルを簡単に補完したいのですが方法がありますでしょうか?
よろしくお願いします。
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
商品リストシートに商品コード、商品名を入力しています。
データシートのAセルに商品コードを入力するとBセルに商品名が、Bセルに商品名を入力するとAセルに商品コードが表示されるようにしたいのですが、循環関数になってしまいます。
再計算せずに大人しくしててくれるか、ドロップダウンリストみたいに空いてるセルを簡単に補完したいのですが方法がありますでしょうか?
よろしくお願いします。
2020/09/24(木) 11:16:59.24
あります
2020/09/24(木) 12:28:28.67
お文具さん
2020/09/24(木) 14:47:24.36
VBAに関する質問です
専門職ではないので、もし現場で表記するなら…という意見を
お聞かせください。
If A1 = "〇" Then
If ....
ElseIf Not A1 = "〇" Then
のようにIFの分岐は否定した文も書いてあげる方が親切なのでしょうか?
それともElseのみでいいのでしょうか?
専門職ではないので、もし現場で表記するなら…という意見を
お聞かせください。
If A1 = "〇" Then
If ....
ElseIf Not A1 = "〇" Then
のようにIFの分岐は否定した文も書いてあげる方が親切なのでしょうか?
それともElseのみでいいのでしょうか?
2020/09/24(木) 15:02:55.31
書く意味が無い
2020/09/24(木) 15:14:06.98
2020/09/24(木) 15:22:59.20
式の内容によっては1回目と2回目の評価で結果が変わる可能性もあるので、書かない方がいい
2020/09/24(木) 15:30:01.08
書くとデバッグしやすいけど
2020/09/24(木) 15:39:44.24
しやすくねぇよ
2020/09/24(木) 16:28:04.00
2020/09/24(木) 17:54:12.48
2020/09/24(木) 19:25:46.48
>>850
ありがとうございます!やってみます!
ありがとうございます!やってみます!
852名無しさん@そうだ選挙にいこう
2020/09/24(木) 22:41:50.20 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
お願いします。
フォームにあるテキストボックスのIMEModeを半角カタカナにしているのですが、一回そのテキストボックスに何かを入力した後は
ずっと半角カタカナモードが固定されてしまいます。
入力規則が設定されているセルを選択した場合はひらがな等になるのですが、そのセルを離れて、入力規則が設定されていない
別のセルに移動したらまた半角カタカナに戻ってしまいます。
半角カタカナ設定のテキストボックスは、抽出文字列を指定するためのものなので、入力後に「これで抽出」というコマンドボタンを
押すのですが、そのボタンクリックイベントでIMEModeの変更ができないものなのかと調べましたが無理なようです。
テキストボックスでのIMEModeの影響範囲がでかすぎます。
何か対策はないでしょうか?
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
お願いします。
フォームにあるテキストボックスのIMEModeを半角カタカナにしているのですが、一回そのテキストボックスに何かを入力した後は
ずっと半角カタカナモードが固定されてしまいます。
入力規則が設定されているセルを選択した場合はひらがな等になるのですが、そのセルを離れて、入力規則が設定されていない
別のセルに移動したらまた半角カタカナに戻ってしまいます。
半角カタカナ設定のテキストボックスは、抽出文字列を指定するためのものなので、入力後に「これで抽出」というコマンドボタンを
押すのですが、そのボタンクリックイベントでIMEModeの変更ができないものなのかと調べましたが無理なようです。
テキストボックスでのIMEModeの影響範囲がでかすぎます。
何か対策はないでしょうか?
2020/09/24(木) 23:08:37.13
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13113341038
この辺のコードを試してみたらいかがでしょうか
この辺のコードを試してみたらいかがでしょうか
2020/09/25(金) 00:11:44.43
カスは黙ってろ
2020/09/25(金) 11:42:24.05
それ動かないじゃん
2020/09/25(金) 12:56:27.59
お文具さん
2020/09/25(金) 19:05:03.55
Excelファイルを開いた際に最初に表示する方法をご存知の方はいますか?
office365にアップロードするファイルのため、マクロは使えないのですが可能なのでしょうか。
office365にアップロードするファイルのため、マクロは使えないのですが可能なのでしょうか。
2020/09/25(金) 19:06:46.53
857の書き込みですが、最初に表示する「シート」です。失礼しました。
2020/09/25(金) 19:26:49.41
2020/09/25(金) 19:30:05.38
知りたいのは毎回sheet1を開く方法なんじゃないかな
2020/09/25(金) 19:34:38.72
>>860
毎回sheet1を表示して保存したらいいんじゃね?
毎回sheet1を表示して保存したらいいんじゃね?
2020/09/25(金) 19:50:23.98
返答ありがとうございます。
分かりにくい書き込みで申し訳ありません。
おっしゃる通り、ファイルを開く度にシート1が表示される方法です。
office365で不特定多数が編集するため、できれば自動で表示できる方法はないかと模索しております。
分かりにくい書き込みで申し訳ありません。
おっしゃる通り、ファイルを開く度にシート1が表示される方法です。
office365で不特定多数が編集するため、できれば自動で表示できる方法はないかと模索しております。
2020/09/25(金) 19:54:39.41
フォントサイズ72で、シート1以外を表示した状態で保存したら減給します、とか。
2020/09/25(金) 20:01:40.93
新しいOffice Scriptsって奴なら出来るんじゃね
使ったことないのでしらんけど
使ったことないのでしらんけど
2020/09/25(金) 20:24:33.78
2020/09/25(金) 20:25:24.43
2020/09/25(金) 20:29:09.39
2020/09/25(金) 20:35:10.96
2020/09/25(金) 21:30:42.56
そもそもフォームて、効率が上がるかね?
2020/09/25(金) 22:30:43.64
>>868
そもそもマクロも使えない環境でOffice Scriptsとやらが使えるようになるのかなぁ…
そもそもマクロも使えない環境でOffice Scriptsとやらが使えるようになるのかなぁ…
2020/09/25(金) 22:56:32.32
>>865
365だとマクロ使えないってのが意味不明なんだけど
365だとマクロ使えないってのが意味不明なんだけど
2020/09/25(金) 23:28:35.90
>>871
誤解を与えるような表現をしてしまってすみません。
うちの社内の環境だと、Excelファイルをパソコンからシェアポイントにアップロードして、それを各社員に配布されたipadで立ち上げて適宜編集しているというイメージです。
ipadでExcelファイルを立ち上げてもマクロが機能しないのです。
なかなか特殊な環境だと自負しております。
誤解を与えるような表現をしてしまってすみません。
うちの社内の環境だと、Excelファイルをパソコンからシェアポイントにアップロードして、それを各社員に配布されたipadで立ち上げて適宜編集しているというイメージです。
ipadでExcelファイルを立ち上げてもマクロが機能しないのです。
なかなか特殊な環境だと自負しております。
2020/09/25(金) 23:43:12.98
シート1が必ず表示されるようにしたいんだよね?
できる
できる
2020/09/26(土) 01:26:07.64
>>872
iPadじゃ試したことないけど、sharepoint同期させてデスクトップアプリで開いたら使えない?
iPadじゃ試したことないけど、sharepoint同期させてデスクトップアプリで開いたら使えない?
2020/09/26(土) 09:31:11.37
>>874
パソコン上でデスクトップアプリで開く分にはマクロも使えますね。
ただ基本的に各社員はipadしか配布されておらず、同期してExcel for ipadで開いてもやはりマクロが機能しないですね。
パソコン上でデスクトップアプリで開く分にはマクロも使えますね。
ただ基本的に各社員はipadしか配布されておらず、同期してExcel for ipadで開いてもやはりマクロが機能しないですね。
2020/09/26(土) 13:18:29.04
シートの数を1つにするといいんじゃない?
2020/09/26(土) 15:05:34.64
それだと他のことができなくなりますからダメですね。
2020/09/26(土) 16:10:37.84
他力本願すぎで草
2020/09/26(土) 16:24:55.21
ここの皆さんは、大したことないんですね
口だけ達者ですが、弊社にためになんの解決策も提示いただけないとは。
こちとら遊びじゃないんですが、ビジネスで必要なんですよ。
口だけ達者ですが、弊社にためになんの解決策も提示いただけないとは。
こちとら遊びじゃないんですが、ビジネスで必要なんですよ。
2020/09/26(土) 16:35:06.67
遊んでないで仕事しなさい
2020/09/26(土) 17:59:13.51
Twitterとかできいたらいいよ。
2020/09/26(土) 18:10:16.93
無償の掲示板でビジネス案件聞いてんじゃねえよw
2020/09/26(土) 19:27:11.27
ママーツレタヨー
2020/09/26(土) 20:10:29.69
2020/09/26(土) 20:55:31.07
ipadでそれ動かんですかね?
2020/09/26(土) 20:59:08.37
動くわけないだろ
お前おちょくられてんの
お前おちょくられてんの
2020/09/26(土) 21:06:03.56
ごめん、普通にipad見落とした。
2020/09/26(土) 21:07:49.01
シャクティpadなら動かせるんだろうか・・・。
2020/09/26(土) 23:50:40.44
腐乱するわw
2020/09/27(日) 00:59:45.39
>>1-889
セルを結合する
セルを結合する
2020/09/27(日) 06:25:51.79
ママータクサンツルヨー
2020/09/27(日) 08:15:23.72
対して困ってない問題なのに質問するなよ?
>>862
>返答ありがとうございます。
>分かりにくい書き込みで申し訳ありません。
>
>おっしゃる通り、ファイルを開く度にシート1が表示される方法です。
>office365で不特定多数が編集するため、できれば自動で表示できる方法はないかと模索しております。
>>862
>返答ありがとうございます。
>分かりにくい書き込みで申し訳ありません。
>
>おっしゃる通り、ファイルを開く度にシート1が表示される方法です。
>office365で不特定多数が編集するため、できれば自動で表示できる方法はないかと模索しております。
2020/09/27(日) 12:52:26.96
クイズ出してるのよりはましだと思うぞ
2020/09/28(月) 11:11:11.68
ピボットテーブルで列に日付を設定しています。DAXでフィルターコンテキストを有効とした状態の初日を取得する方法を教えてください
2020/09/28(月) 14:59:03.53
>ここの皆さんは、大したことないんですね
>口だけ達者ですが、弊社にためになんの解決策も提示いただけないとは。
>
>こちとら遊びじゃないんですが、ビジネスで必要なんですよ。
コピペになりそう
>口だけ達者ですが、弊社にためになんの解決策も提示いただけないとは。
>
>こちとら遊びじゃないんですが、ビジネスで必要なんですよ。
コピペになりそう
2020/09/28(月) 16:52:33.92
VBAでリファクタリングする際に気を付けるポイントって何かありますかね?
2020/09/28(月) 19:21:48.18
VBAを捨てる判断を持つ
2020/09/28(月) 20:31:34.67
シートの1つにリストを作る
大阪
東京
神戸
別のシートで
マウスでセルを選ぶとリストから選べるように設定する。プルダウン?
( ´・ω・)ここまではできるんだけど、
昔リストの大阪を赤、東京を緑、神戸を青に文字を色付けしてたら、別のシートで選ぶときにも色が変わってたんだけどできなくなっちゃった。
どうしたらいい?
大阪
東京
神戸
別のシートで
マウスでセルを選ぶとリストから選べるように設定する。プルダウン?
( ´・ω・)ここまではできるんだけど、
昔リストの大阪を赤、東京を緑、神戸を青に文字を色付けしてたら、別のシートで選ぶときにも色が変わってたんだけどできなくなっちゃった。
どうしたらいい?
2020/09/28(月) 20:39:37.26
そうすればいい
2020/09/28(月) 20:48:06.26
>>899
選ぶとこの文字が黒くなっちゃうんよ。
選ぶとこの文字が黒くなっちゃうんよ。
2020/09/28(月) 21:07:30.00
かっこええやん
2020/09/29(火) 00:12:40.92
win10
2013
vba不可
標準偏差を求めるためSTDEV.P関数を使用したいのですが、元のデータリストは異なる母集団のデータがB列に1列に並んでしまっており、そのままだとかけられません。ただし、各母集団がどれに属するかという符号がA列にふられているので、それを利用してなんとか各母集団の標準偏差を出せないのでしょうか・・・・
イメージとしてはsumifの要領です。
2013
vba不可
標準偏差を求めるためSTDEV.P関数を使用したいのですが、元のデータリストは異なる母集団のデータがB列に1列に並んでしまっており、そのままだとかけられません。ただし、各母集団がどれに属するかという符号がA列にふられているので、それを利用してなんとか各母集団の標準偏差を出せないのでしょうか・・・・
イメージとしてはsumifの要領です。
903902
2020/09/29(火) 00:15:50.10 DSTDEVPという関数がありました
2020/09/29(火) 17:35:27.62
win10
2016
vba不可
https://i.imgur.com/88YUsbN.jpg
画像の様にセルに数字を入力すると指定した範囲の合計を算出する様にしたいのですがどの様な関数を使用すれば良いでしょうか。
2016
vba不可
https://i.imgur.com/88YUsbN.jpg
画像の様にセルに数字を入力すると指定した範囲の合計を算出する様にしたいのですがどの様な関数を使用すれば良いでしょうか。
2020/09/29(火) 17:45:45.47
=HLOOKUP(Q2,$G$2:$P$4,2,0)+HLOOKUP(R2,$G$2:$P$4,2,0)
中間ってどうやって足せばええんや、オツムが足りんわ
中間ってどうやって足せばええんや、オツムが足りんわ
2020/09/29(火) 17:54:53.50
2020/09/29(火) 20:59:14.54
ありがとうございます
助かりました
助かりました
2020/09/30(水) 12:00:39.98
2020/09/30(水) 14:33:17.64
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
特定シートのみを削除されないようにしたいのですが、どうすればいいでしょうか?
シートは日毎に作成し、入力していき、一定日時が経てば古いシートから削除していきます。
ただ、末尾のシートは基データを入れており、各シートはそこからデータを参照しているため、
末尾のシートを誤って削除されないようにしたいのです。
ブックの保護ではシート追加時に毎回保護解除しなければならないのでなにか良い方法があればご教授お願い致します。
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
特定シートのみを削除されないようにしたいのですが、どうすればいいでしょうか?
シートは日毎に作成し、入力していき、一定日時が経てば古いシートから削除していきます。
ただ、末尾のシートは基データを入れており、各シートはそこからデータを参照しているため、
末尾のシートを誤って削除されないようにしたいのです。
ブックの保護ではシート追加時に毎回保護解除しなければならないのでなにか良い方法があればご教授お願い致します。
2020/09/30(水) 14:34:57.21
>>909
シート名に削除するな!って書くのが1番簡単
シート名に削除するな!って書くのが1番簡単
2020/09/30(水) 15:05:50.92
一応気休めでシートの保護とシートタブの色変えて削除厳禁とは書いてあります。
2020/09/30(水) 15:34:38.69
【1 OSの種類】 Windows10
【2 Excelのバージョン】 Excel2016
【3 VBAが使えるか】 はい
【4 VBAでの回答の可否】 可
○月の数字を変更するとL4以降のセルにyyyy/mm/dd形式の日付を自動で入力させるような方法はありますでしょうか?
https://free.uploader.xzy.pw/show/20200930153030_637145777a6a4e683963.BMP
【2 Excelのバージョン】 Excel2016
【3 VBAが使えるか】 はい
【4 VBAでの回答の可否】 可
○月の数字を変更するとL4以降のセルにyyyy/mm/dd形式の日付を自動で入力させるような方法はありますでしょうか?
https://free.uploader.xzy.pw/show/20200930153030_637145777a6a4e683963.BMP
2020/09/30(水) 15:50:35.46
2020/09/30(水) 17:54:03.95
>>911
削除禁止シートは一緒にせず別ブックにしとけ
入力はシート直接じゃなくフォームを使え
できればシートの削除や追加はVBAで自動的化した方が間違いが減らせるから、VBA可にできないか検討した方がいい
削除禁止シートは一緒にせず別ブックにしとけ
入力はシート直接じゃなくフォームを使え
できればシートの削除や追加はVBAで自動的化した方が間違いが減らせるから、VBA可にできないか検討した方がいい
915名無しさん@そうだ選挙にいこう
2020/09/30(水) 18:09:48.70 別ブック勧めるなよトラブルの元じゃん素人かよ
2020/09/30(水) 19:53:03.25
そのシートをどのくらいの頻度でメンテするかによるな。
2020/09/30(水) 21:11:30.92
みんなExcel頑張ってるなぁ。
918名無しさん@そうだ選挙にいこう
2020/09/30(水) 21:33:50.98 よるな、じゃねーよ
セル結合と別ブック参照はやめてくれ
自分のPCで一生場所動かさない自分だけのオナニー用だけにしてくれ
セル結合と別ブック参照はやめてくれ
自分のPCで一生場所動かさない自分だけのオナニー用だけにしてくれ
919名無しさん@そうだ選挙にいこう
2020/09/30(水) 21:35:32.57 バカが自信満々でトラブルの元まき散らすの勘弁してくれ
2020/09/30(水) 22:09:52.55
仲良くしる!
2020/09/30(水) 22:56:36.92
いいよ
2020/10/01(木) 12:13:17.10
いいね!
2020/10/01(木) 14:13:15.71
セル内の文字列にある単語をダブルクリックした場合、
Excel2013→コロン(;)もまたいで選択される
Excel2016→コロン(;)の手前で選択が止まる
これは仕様?どこかに設定ある?おま環?
Excel2013→コロン(;)もまたいで選択される
Excel2016→コロン(;)の手前で選択が止まる
これは仕様?どこかに設定ある?おま環?
2020/10/01(木) 15:48:56.28
ぶっちゃけExcel2000とかで十分なのにクラウドでデータを解析されるサービスを強要される
2020/10/01(木) 18:02:45.55
エクセルでこんな感じ
https://prau-pc.jp/wp-content/uploads/2017/11/Pra1694.jpg
のマトリクス表を作った時に横項目と縦項目がわかりやすいように斜線を境に色の塗り分け
したいのですがなんかお勧めな方法ありますか?
https://prau-pc.jp/wp-content/uploads/2017/11/Pra1694.jpg
のマトリクス表を作った時に横項目と縦項目がわかりやすいように斜線を境に色の塗り分け
したいのですがなんかお勧めな方法ありますか?
2020/10/01(木) 18:21:28.41
VBA
927840
2020/10/01(木) 18:50:23.98 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
また教えてください。
商品リストシートを作成し商品名や商品コードを入力
入力シートにB列にE列が空欄なら""、E列に商品名があればVlookupで商品コードを参照
D列にC列が空欄なら""、C列に商品コードあればVlookupで商品名を参照するようにしました。
履歴シートの商品名列に入力E列(手入力データ)をコピーしたあと、
入力D列(関数で引用したデータ)を空白を無視して値をコピーするVBAを組んだら
長さ0文字のせいか手入力した商品名が上書きされて消えてしまいます。
リストから引用した商品名の方が固定文字になるので優先したいので、
貼り付け前に長さ0文字を空白にして無視して貼り付ける方法を教えてください。
よろしくお願いします。
【2 Excelのバージョン 】 Excel2019
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
また教えてください。
商品リストシートを作成し商品名や商品コードを入力
入力シートにB列にE列が空欄なら""、E列に商品名があればVlookupで商品コードを参照
D列にC列が空欄なら""、C列に商品コードあればVlookupで商品名を参照するようにしました。
履歴シートの商品名列に入力E列(手入力データ)をコピーしたあと、
入力D列(関数で引用したデータ)を空白を無視して値をコピーするVBAを組んだら
長さ0文字のせいか手入力した商品名が上書きされて消えてしまいます。
リストから引用した商品名の方が固定文字になるので優先したいので、
貼り付け前に長さ0文字を空白にして無視して貼り付ける方法を教えてください。
よろしくお願いします。
2020/10/01(木) 19:30:17.61
答えてあげたいが解読不能。
929927
2020/10/01(木) 19:36:28.38 分かりにくくて申し訳ない
文字の入ってるセルに上から関数で「""」にしてるセルを空白を無視してコピーすると元々の文字が消えてしまうんです
文字の入ってるセルに上から関数で「""」にしてるセルを空白を無視してコピーすると元々の文字が消えてしまうんです
2020/10/01(木) 19:42:34.12
つまり、文字の入ってるセルに、上書きで、「関数で「""」にしてるセル」をコピーすると元々の文字が消えてしまうってこと?
931927
2020/10/01(木) 19:43:42.89 そうなんです
2020/10/01(木) 19:50:18.40
>>918
いやだから動かさなきゃいいんだろ。
いやだから動かさなきゃいいんだろ。
2020/10/01(木) 19:54:39.58
つまり、文字の入ってるセルに、上書きで、「〜〜」と書いてあるセルをコピーすると元々の文字が消えてしまって、「〜〜」になってしまうってこと?
934927
2020/10/01(木) 20:55:28.78 あなたはもういいです
2020/10/01(木) 21:42:24.00
空白判定はISBLANKかなんかでやってんのかな
その場合何も入っていないかどうかを判定するわけで、数式が入っていたらBLANKとして扱われない
=””でやればいいんじゃないか
その場合何も入っていないかどうかを判定するわけで、数式が入っていたらBLANKとして扱われない
=””でやればいいんじゃないか
2020/10/02(金) 12:44:00.29
ExcelVBAにて
If aa = bb And cc <> dd Then
ans = x + y
Elseif aa = bb And cc = dd Then
ans = x
Endif
上記の内容で aa = bb = cc = dd だったのに
x + y が返されました。そこでIF文を入れ替えると正常に
動作したのですが、原因がわかる方教えていただけると幸いです。
If aa = bb And cc <> dd Then
ans = x + y
Elseif aa = bb And cc = dd Then
ans = x
Endif
上記の内容で aa = bb = cc = dd だったのに
x + y が返されました。そこでIF文を入れ替えると正常に
動作したのですが、原因がわかる方教えていただけると幸いです。
2020/10/02(金) 12:50:38.66
デバッグしなよ
2020/10/02(金) 12:51:04.96
If aa = bb And cc <> dd Or ff = "" Then
ans = x + y
Elseif aa = bb And cc = dd Then
ans = x
Endif
間違えていました。こちらです。
ans = x + y
Elseif aa = bb And cc = dd Then
ans = x
Endif
間違えていました。こちらです。
2020/10/02(金) 13:00:03.45
ブレークポイントつけてウォッチウィンドウで変数の中身見ながらデバッグしなさいな
2020/10/02(金) 14:14:45.31
そんな変人がやることを勧めるのですか?
2020/10/02(金) 15:22:47.15
あなたが変人だから勧めたんですよ
2020/10/02(金) 15:54:03.39
なんでそんな酷いことを言うんですか
2020/10/02(金) 18:09:37.47
恋人だからですよあなたが
2020/10/02(金) 18:45:41.87
cc <> dd Or ff = ""
が真だからじゃないの
が真だからじゃないの
2020/10/02(金) 18:54:15.92
a and b or c って (a and b) or c と一緒でそ
ffが空なら ans = x + y になるんじゃね
ffが空なら ans = x + y になるんじゃね
2020/10/02(金) 19:47:25.54
おい、ならねーぞw
2020/10/02(金) 20:38:14.54
ペンがマクロで記録できないんですけど、
いや出来なくてもいいんですけどマクロで書けませんかね。
2019EXCEL2019バージョンです。
セルの上にペンでセルを書いたら、さぞかしアホだろうなと思うんですけど。
あと、戻る、進むのほかに、戻らないがあるといいと思いました。
←┐ ┌→ ×←┐
┘ └ ┘
いや出来なくてもいいんですけどマクロで書けませんかね。
2019EXCEL2019バージョンです。
セルの上にペンでセルを書いたら、さぞかしアホだろうなと思うんですけど。
あと、戻る、進むのほかに、戻らないがあるといいと思いました。
←┐ ┌→ ×←┐
┘ └ ┘
2020/10/02(金) 22:11:55.45
ああ、俺が厨二だったら間違いなくセルの色はインクで染めたな。
しかもアホかって言われるまでしつこくやる。
しかもアホかって言われるまでしつこくやる。
2020/10/02(金) 22:37:57.48
https://i.imgur.com/ub6yJc5.jpg
画像右側のように、B列に値が入力されたものだけ項目と一緒に抽出したいと考えています。
マクロを使わずに実装する方法を教えてください。
よろしくお願いします。
画像右側のように、B列に値が入力されたものだけ項目と一緒に抽出したいと考えています。
マクロを使わずに実装する方法を教えてください。
よろしくお願いします。
2020/10/02(金) 23:11:00.87
>>949
どのバージョン使ってるかにもよるけど、filter関数
どのバージョン使ってるかにもよるけど、filter関数
2020/10/02(金) 23:37:03.54
フィルター機能でできるだろ
関数さえいらんわ
関数さえいらんわ
952名無しさん@そうだ選挙にいこう
2020/10/03(土) 01:50:22.95 filter関数はセルの結合をしていると使えない欠陥がある
2020/10/03(土) 08:44:00.70
スピルもそうだけど配列数式使うとソートが使えなくなるのそろそろ何とかならない?
2020/10/03(土) 09:05:25.99
ソートはテーブル化してOrder Byだな。
2020/10/04(日) 18:30:54.88
例えば、
社員リストを元に社員カードを作りたい場合、社員カードのセルに社員リストを参照するのが良いと思うのですが、
どういった方法が一番使い勝手が良いのでしょうか?
社員リスト(人物リスト)
https://dotup.org/uploda/dotup.org2272092.png_yjlmrmi49e0Kv5AvrALh/dotup.org2272092.png
自己紹介カード(赤文字が社員リストから参照している部分)
https://dotup.org/uploda/dotup.org2272094.png_42knHvlYW33nzKwjqql8/dotup.org2272094.png
現状、リストへの参照は、="なまえ-"&sheet!A2&"しゅみ-"&sheet!B2
といった風に無難?な参照方法でカードのセルに書いていっていますが、こういうのはxlookupを使った方がやりやすいのでしょうか?
また、自己紹介カードの参照セルの数字部分(sheet!A2のA2や、sheet!B2のB2)を
連番で複製することによって、太郎や陽介など他の社員のカードもコピーして簡単に作れると思うのですが、
複数行単位での関数部分の連番をするのに、適した方法や関数があれば教えて頂けないでしょうか
宜しくお願いいたします。
社員リストを元に社員カードを作りたい場合、社員カードのセルに社員リストを参照するのが良いと思うのですが、
どういった方法が一番使い勝手が良いのでしょうか?
社員リスト(人物リスト)
https://dotup.org/uploda/dotup.org2272092.png_yjlmrmi49e0Kv5AvrALh/dotup.org2272092.png
自己紹介カード(赤文字が社員リストから参照している部分)
https://dotup.org/uploda/dotup.org2272094.png_42knHvlYW33nzKwjqql8/dotup.org2272094.png
現状、リストへの参照は、="なまえ-"&sheet!A2&"しゅみ-"&sheet!B2
といった風に無難?な参照方法でカードのセルに書いていっていますが、こういうのはxlookupを使った方がやりやすいのでしょうか?
また、自己紹介カードの参照セルの数字部分(sheet!A2のA2や、sheet!B2のB2)を
連番で複製することによって、太郎や陽介など他の社員のカードもコピーして簡単に作れると思うのですが、
複数行単位での関数部分の連番をするのに、適した方法や関数があれば教えて頂けないでしょうか
宜しくお願いいたします。
2020/10/04(日) 18:34:12.99
すみません、
>現状、リストへの参照は、="なまえ-"&sheet!A2&"しゅみ-"&sheet!B2
ここのセル指定がズレていますね、
A2ではなくsheet!B3、B2ではなくsheet!D3
でした 失礼しました
>現状、リストへの参照は、="なまえ-"&sheet!A2&"しゅみ-"&sheet!B2
ここのセル指定がズレていますね、
A2ではなくsheet!B3、B2ではなくsheet!D3
でした 失礼しました
2020/10/04(日) 18:42:30.09
一度発行してしまえば今後何枚も印刷するようなものじゃなさそう
用紙一枚に入るだけのレイアウトで番号入力したらxlookupで埋める形よいかと
用紙一枚に入るだけのレイアウトで番号入力したらxlookupで埋める形よいかと
2020/10/04(日) 19:15:00.73
そのような関数はありませんが?
2020/10/04(日) 21:01:02.38
Access使えばいいのに
960名無しさん@そうだ選挙にいこう
2020/10/04(日) 21:13:29.66 セルの内容をクリップボードにコピーするマクロってどうやって作るのですか
2020/10/04(日) 21:36:34.50
Win api使うんだよ
962名無しさん@そうだ選挙にいこう
2020/10/05(月) 03:35:59.61 皆さんExcelの検定とか資格って持ってるのですか?
2020/10/05(月) 12:46:18.80
Excel相談員初段黒帯なら持ってる
2020/10/05(月) 12:55:46.96
>>960
Sub Sample1() 'セルA1の内容をクリップボードに入れる
With CreateObject("Forms.TextBox.1")
.Text = Cells(1, 1)
.SelStart = 0
.SelLength = .TextLength
.Copy
End With
End Sub
Sub Sample1() 'セルA1の内容をクリップボードに入れる
With CreateObject("Forms.TextBox.1")
.Text = Cells(1, 1)
.SelStart = 0
.SelLength = .TextLength
.Copy
End With
End Sub
2020/10/05(月) 21:48:36.29
>>962
持ってないけど取りたいですね。
持ってないけど取りたいですね。
966牧野 ◆Vbs7gX72NY
2020/10/05(月) 22:12:24.33 >>955
indirectを使えば出来るけど、
https://i.imgur.com/sGeXIc8.png
>>957の言うように番号入れるだけにしたほうが確実に楽
>>962
MOSの難しい方取ったわ。一週間問題集解きまくれば簡単に受かる
詳しくは資格板へGo
indirectを使えば出来るけど、
https://i.imgur.com/sGeXIc8.png
>>957の言うように番号入れるだけにしたほうが確実に楽
>>962
MOSの難しい方取ったわ。一週間問題集解きまくれば簡単に受かる
詳しくは資格板へGo
2020/10/06(火) 00:00:54.08
とっても派遣の時給は上がらない
2020/10/06(火) 00:52:43.05
2020/10/06(火) 09:44:33.24
中小はわかんないけど、大手は脱マクロ傾向にあるから、Powerplatformに移行するのおすすめ
Appsでアプリ作ってから会社貸与スマホでの棚卸しや商品管理が楽になったよ
Appsでアプリ作ってから会社貸与スマホでの棚卸しや商品管理が楽になったよ
2020/10/06(火) 10:17:31.20
中小にはそんな金は無いのです
2020/10/06(火) 12:05:01.86
中小向けのソリューションも売り込みが盛んになってきてるし、コロナで業績の落ちたとこはどんどん飛びつくと思うよ
2020/10/06(火) 12:14:15.17
業績伸びたらの間違いじゃ無いか
2020/10/06(火) 12:33:41.27
経済がわかってない人なんだろ
2020/10/06(火) 14:13:58.35
x = Cells(1,1) 'A1
と
Function(A1)
ってどっちが処理はやいんですか?
と
Function(A1)
ってどっちが処理はやいんですか?
2020/10/06(火) 14:20:55.43
for-nextで回して時間測ってみ
2020/10/06(火) 18:06:28.50
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
a1,b1,c1,d1,e1,f1
にそれぞれ数値が入ってます。
これらの数値がすべて異なる場合に1を重複する場合には0を表示したいのです。
良い方法はありませんか?a1,b1,c1,d1,e1,f1のセルは実際にはもっと増えるため
一つ一つをCountIFなどで判定するのはつらいのです><
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
a1,b1,c1,d1,e1,f1
にそれぞれ数値が入ってます。
これらの数値がすべて異なる場合に1を重複する場合には0を表示したいのです。
良い方法はありませんか?a1,b1,c1,d1,e1,f1のセルは実際にはもっと増えるため
一つ一つをCountIFなどで判定するのはつらいのです><
2020/10/06(火) 18:11:11.95
countifを使わない方法を求めてます。
2020/10/06(火) 18:20:50.59
同じ値のセル数をcountすればいいだけじゃないの
2020/10/06(火) 18:23:45.25
そんでセルの数と合ってれば1にすればいいだけじゃないの
2020/10/06(火) 18:49:10.14
ひたすらFindするとか
2020/10/06(火) 19:02:08.25
2020/10/06(火) 19:07:05.73
984976
2020/10/06(火) 19:09:19.222020/10/06(火) 19:09:20.12
2020/10/06(火) 19:23:05.45
関数がわからないならググれ
作業列作って実験しろ
作業列作って実験しろ
989976
2020/10/06(火) 19:23:59.58 関数はわかりますが。。。
countで解決できるとは思えないのですが。。。
countで解決できるとは思えないのですが。。。
2020/10/06(火) 19:27:38.97
=(SUM( (A1:F1=TRANSPOSE(A1:F1)) *1) = COUNT(A1:F1))*1
で多分いいと思う
配列数式なので、Ctrl+Shift+Enterで
で多分いいと思う
配列数式なので、Ctrl+Shift+Enterで
991976
2020/10/06(火) 19:27:45.07 count…数値のカウント
counta…空白以外のカウント
これで解決できるのですか?
全く想像できません。。。
わかる方アドバイスお願いします><
counta…空白以外のカウント
これで解決できるのですか?
全く想像できません。。。
わかる方アドバイスお願いします><
2020/10/06(火) 21:17:58.70
マクロ使え
2020/10/06(火) 21:56:51.00
縦並びでもいいんなら
=IF(SUMPRODUCT(COUNTIF(A:A,A1:A9))=COUNT(A:A),1,0)
範囲のA1:A9の部分はデータの個数に応じて変更して
=IF(SUMPRODUCT(COUNTIF(A:A,A1:A9))=COUNT(A:A),1,0)
範囲のA1:A9の部分はデータの個数に応じて変更して
2020/10/06(火) 22:36:43.26
いい加減新しいExcelに変えたほうが良いと思うぞ
http://imgur.com/UbSw0RN.png
http://imgur.com/UbSw0RN.png
2020/10/06(火) 23:07:21.62
365覚えると「今まで俺が学んできたことは一体何だったんだ」ってなるよな
2020/10/06(火) 23:09:09.65
2020/10/06(火) 23:13:23.54
LET関数
1000名無しさん@そうだ選挙にいこう
2020/10/07(水) 01:02:36.83 1000
10011001
Over 1000Thread このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 77日 17時間 1分 54秒
新しいスレッドを立ててください。
life time: 77日 17時間 1分 54秒
10021002
Over 1000Thread 5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
運営にご協力お願いいたします。
───────────────────
《プレミアム会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。
▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/
▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。