!extend:checked:vvvvv:1000:512
スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1489557874/
※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 125
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured
探検
Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん 転載ダメ©2ch.net (ワッチョイ 6f8e-Fc1g)
2017/05/16(火) 08:24:45.78ID:iIGA/64l0129デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/22(月) 12:26:52.79ID:csbpN2HFr >>128
ExcelとAccessのVBAの本なら腐るほどあるからここで聞かなくてもググれば良い
Word、Outlook、PowerPointのVBAとなると日本語ではかなり少なくなるので教えるまでもなくググれば出てくる
ググって出てこないなら英語書籍やネットブログを漁るか、MSDNを直接参照することになるね
ExcelとAccessのVBAの本なら腐るほどあるからここで聞かなくてもググれば良い
Word、Outlook、PowerPointのVBAとなると日本語ではかなり少なくなるので教えるまでもなくググれば出てくる
ググって出てこないなら英語書籍やネットブログを漁るか、MSDNを直接参照することになるね
130デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/22(月) 12:56:42.47ID:AKn80VTzp >>128
vbeでF2キー
vbeでF2キー
131デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/22(月) 13:29:08.29ID:o9BH+SoNH >>128
メソッドやプロパティの方から網羅的に学習するのはきついので、やりたいことの方から網羅的に
説明してる本の方がいいと思う。
たとえば、
『Excel VBA逆引き辞典パーフェクト』
http://www.shoeisha.co.jp/book/detail/9784798146584
似たような『○○700』みたいなのがいくつかあるから、どれか選んで流し見するのがいいと思う。
メソッドやプロパティの方から網羅的に学習するのはきついので、やりたいことの方から網羅的に
説明してる本の方がいいと思う。
たとえば、
『Excel VBA逆引き辞典パーフェクト』
http://www.shoeisha.co.jp/book/detail/9784798146584
似たような『○○700』みたいなのがいくつかあるから、どれか選んで流し見するのがいいと思う。
132デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/22(月) 14:44:41.19ID:nSxPTPKq0 本なんて必要か?
多少の英語カがあればインテリセンスの中からそれっぽいもの選んで実験+Web検索で十分だろ。
あとは、インタフェースへのセンス(絶対この場合だったらこんなプロパティがある筈という嗅覚)とかね。
初心者だったら以下に気を付けてコード書くと良い。
・マクロ記録したらコードの中で必要無い部分をとことん削るのが常識と考えよう。
・それで動作確認して問題無いことを確めよう。
・削って問題無いと思っても、その場では問題無くても場合により問題出ることあるから削って残った部分をWeb検索で皆はどうしてるのかを確認しておこう。
・英語的にそのコードの意味を考えよう。
'A1を選択
Range("A1").Select
'選択したものの値を1にする
Selection.Value=1
だったら当然
'A1の値を1にする
Range("A1").Value=1
ということになる。
多少の英語カがあればインテリセンスの中からそれっぽいもの選んで実験+Web検索で十分だろ。
あとは、インタフェースへのセンス(絶対この場合だったらこんなプロパティがある筈という嗅覚)とかね。
初心者だったら以下に気を付けてコード書くと良い。
・マクロ記録したらコードの中で必要無い部分をとことん削るのが常識と考えよう。
・それで動作確認して問題無いことを確めよう。
・削って問題無いと思っても、その場では問題無くても場合により問題出ることあるから削って残った部分をWeb検索で皆はどうしてるのかを確認しておこう。
・英語的にそのコードの意味を考えよう。
'A1を選択
Range("A1").Select
'選択したものの値を1にする
Selection.Value=1
だったら当然
'A1の値を1にする
Range("A1").Value=1
ということになる。
133デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/22(月) 15:17:01.68ID:o9BH+SoNH134デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/22(月) 15:42:03.39ID:W5+S3ypfM135デフォルトの名無しさん (ドコグロ MM02-9sZ1)
2017/05/22(月) 15:47:18.44ID:0dv64TbrM 色々意見ありがとうございます
うちの会社ネット禁止なので本に頼るしかない事情があるのです…
ネット可ならネット検索でやりたいのが本音です
うちの会社ネット禁止なので本に頼るしかない事情があるのです…
ネット可ならネット検索でやりたいのが本音です
136デフォルトの名無しさん (スッップ Sdea-9e5p)
2017/05/22(月) 16:20:04.11ID:yUPIrMPGd137デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/22(月) 18:00:49.91ID:AKn80VTzp >>133
その試行錯誤が無駄かどうか長期的に考えれば分からない
その試行錯誤が無駄かどうか長期的に考えれば分からない
138デフォルトの名無しさん (ワッチョイ 5f4c-PZTw)
2017/05/22(月) 18:15:29.31ID:MyMt2epv0 業務なのか自主的なのかで話が変わってくると思うけど、
VBAいじるのにネット無しは辛いなぁ。
VBAいじるのにネット無しは辛いなぁ。
139デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/22(月) 18:29:46.83ID:o9BH+SoNH140デフォルトの名無しさん (ワッチョイ 4692-cm4/)
2017/05/22(月) 18:56:05.69ID:pWkjNq5k0 おおむかしは、FAXでMicrosoftから資料を引き出していたものじゃ
先ず、目次を引っ張れるFAX番号に掛けて、延々何十枚もの目次をげっと
その目次から欲しい機能を探し出し、今度は欲しい機能のFAX番号へ掛けて
これまた延々と資料を文字通り引きずり出しておったわ
よく覚えてないけど、そんなかんじ
その頃のFAXはB4の感光紙で、うっかり陽の当たるところに置きっぱで
外出したりすると、帰社した時には真っ黒くろすけで愕然と膝から頽れたり
先ず、目次を引っ張れるFAX番号に掛けて、延々何十枚もの目次をげっと
その目次から欲しい機能を探し出し、今度は欲しい機能のFAX番号へ掛けて
これまた延々と資料を文字通り引きずり出しておったわ
よく覚えてないけど、そんなかんじ
その頃のFAXはB4の感光紙で、うっかり陽の当たるところに置きっぱで
外出したりすると、帰社した時には真っ黒くろすけで愕然と膝から頽れたり
141デフォルトの名無しさん (ワッチョイ 068e-kvD5)
2017/05/22(月) 19:18:46.60ID:g3oHLvAy0142デフォルトの名無しさん (スッップ Sdea-pPWp)
2017/05/22(月) 19:45:17.11ID:ewHRkUXfd143デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/22(月) 20:10:34.61ID:3QNKGHFQ0 >>142
金融案件みたいなデスマーチの温床に言われてもww
金融案件みたいなデスマーチの温床に言われてもww
144デフォルトの名無しさん (ワッチョイ 068e-dGTj)
2017/05/22(月) 20:13:17.75ID:g3oHLvAy0 >>142
金融業界にvbaでセコセコやってるやつなんでいねーよwww
帳票システムは全部外注、ボタンひとつで出るようになってるんだよwww
しかもエクセルよりアクセスの方が使用頻度が高い
岡三証券とかは知らんけど
金融業界にvbaでセコセコやってるやつなんでいねーよwww
帳票システムは全部外注、ボタンひとつで出るようになってるんだよwww
しかもエクセルよりアクセスの方が使用頻度が高い
岡三証券とかは知らんけど
145デフォルトの名無しさん (ワッチョイ 0fc7-X+GT)
2017/05/22(月) 20:44:19.38ID:rXkCxzW60 なんかさあ…もう少しオープンに自分の無知をさらけ出そうぜ
無知ってそんなに悪いもんじゃないぜ?
無知ってそんなに悪いもんじゃないぜ?
146デフォルトの名無しさん (スッップ Sdea-9e5p)
2017/05/22(月) 21:21:30.49ID:yUPIrMPGd >>142
金融でもいわゆるOA環境は与えられててネットは見れるだろ
金融でもいわゆるOA環境は与えられててネットは見れるだろ
147デフォルトの名無しさん (ワッチョイ cad4-PCQh)
2017/05/22(月) 23:25:21.82ID:KgZfg/yx0148デフォルトの名無しさん (ワッチョイ 8a2d-8zZG)
2017/05/22(月) 23:36:28.18ID:fGR6ky/u0 空白と重複をなくしたドロップダウンリストを作成したいんだけど、作業列つくらないと厳しいですか?
A列に重複がたくさんあるものから、重複を削除したリストをB2に追加したいですが、VBAでは厳しいですか?
A列に重複がたくさんあるものから、重複を削除したリストをB2に追加したいですが、VBAでは厳しいですか?
149デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/22(月) 23:39:29.41ID:W5+S3ypfM >>148
繰り返しとifでいける
繰り返しとifでいける
150デフォルトの名無しさん (ワッチョイ fa61-iXcy)
2017/05/22(月) 23:41:44.53ID:EzxM7okx0151デフォルトの名無しさん (ワッチョイ 8a2d-8zZG)
2017/05/22(月) 23:43:11.76ID:fGR6ky/u0 >>149
ループでリストってできるんですか!!知りませんでした。
例えば1〜"A1に入力された数字"までのリストとかも可能ですか??
A1に20とあった場合、1・2・3・4・5・6・・・・20といった感じで。
ループでリストってできるんですか!!知りませんでした。
例えば1〜"A1に入力された数字"までのリストとかも可能ですか??
A1に20とあった場合、1・2・3・4・5・6・・・・20といった感じで。
152デフォルトの名無しさん (ワッチョイ 068e-/hLn)
2017/05/22(月) 23:49:46.04ID:g3oHLvAy0153デフォルトの名無しさん (ワッチョイ 8a2d-8zZG)
2017/05/22(月) 23:57:33.95ID:fGR6ky/u0154デフォルトの名無しさん (ワッチョイ fa61-iXcy)
2017/05/22(月) 23:58:56.03ID:EzxM7okx0 俺も作業列勧めるな
直値で入れると文字数の制限があるだろ
直値で入れると文字数の制限があるだろ
155デフォルトの名無しさん (ワッチョイ 0bcd-icqO)
2017/05/23(火) 00:12:52.19ID:fMtQNmiV0 >>149
If 俺 = "イケメン" Then
俺 = 俺 & 彼女
End If
If 俺 = "イケメン" Then
俺 = 俺 & 彼女
End If
156デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/23(火) 00:30:37.63ID:bLVWAbWWM >>155
イケメンだったらおまえが消えて新しい命に書き換えられてしまうな
イケメンだったらおまえが消えて新しい命に書き換えられてしまうな
157デフォルトの名無しさん (ササクッテロル Sp03-8zZG)
2017/05/23(火) 01:06:28.10ID:G9caL/WXp158デフォルトの名無しさん (ワッチョイ 0bcd-icqO)
2017/05/23(火) 01:16:03.77ID:aBKdrymv0 >>157
酷過ぎワロタwww
酷過ぎワロタwww
159デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/23(火) 02:03:21.06ID:3SYK1IcP0 >>139
省略する人は試行錯誤を大してやらないよ。
答えを求める奴は結局身にならない。
昔、高校受験用に行ってた塾にいた天才共は英語の辞書を丸暗記してたが俺は天才じゃ無いので英語の使い方(しくみ)を勉強した。
プログラミングもしくみが重要で個々の単語は都度調べれば良い。
本は必要無いと思うけど有っても良いとは思うし、自分もかなり買う方だ。
でも自分が本を買うのは興味からだな。
あ、自分は今はVBAの本を買うことはありません。
初心者なら読んでおもしろそうだったら買ってみれば良いんじゃない?
省略する人は試行錯誤を大してやらないよ。
答えを求める奴は結局身にならない。
昔、高校受験用に行ってた塾にいた天才共は英語の辞書を丸暗記してたが俺は天才じゃ無いので英語の使い方(しくみ)を勉強した。
プログラミングもしくみが重要で個々の単語は都度調べれば良い。
本は必要無いと思うけど有っても良いとは思うし、自分もかなり買う方だ。
でも自分が本を買うのは興味からだな。
あ、自分は今はVBAの本を買うことはありません。
初心者なら読んでおもしろそうだったら買ってみれば良いんじゃない?
160デフォルトの名無しさん (ワッチョイ 8af3-hdnB)
2017/05/23(火) 06:24:30.98ID:2tE3UxZ+0 多分その天才どもは英語の仕組みは既に把握したうえで、
上積みとして単語を丸暗記してるんじゃないか?
仕組みがエンジン、単語がガソリンと考えたら、
エンジンだけでもガソリンだけでも走れない。
効率の良いエンジンは少しのガソリンでも遠くまで走れるし、
沢山ガソリン積めれば少々お粗末なエンジンでもやっぱり遠くまで走れる。
どっちが大事じゃなくて両方大事。
上積みとして単語を丸暗記してるんじゃないか?
仕組みがエンジン、単語がガソリンと考えたら、
エンジンだけでもガソリンだけでも走れない。
効率の良いエンジンは少しのガソリンでも遠くまで走れるし、
沢山ガソリン積めれば少々お粗末なエンジンでもやっぱり遠くまで走れる。
どっちが大事じゃなくて両方大事。
161デフォルトの名無しさん (ワッチョイ cad4-PCQh)
2017/05/23(火) 06:30:19.51ID:DZlqaxyP0 試行錯誤する事で答えが判らない事を解決するスキルが身につく
このスキルはVBAにとどまらない
他のことにも応用できる
このスキルはVBAにとどまらない
他のことにも応用できる
162デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/23(火) 06:50:44.94ID:3FTCY8r/r 本は嘘が書かれてたりするから厄介
想定読者の知識レベルに合わせる理由でいろんな説明を端折ってミスリーディングな表現になってしまってたりするし、著者の知識が根本から間違ってるときもある
想定読者の知識レベルに合わせる理由でいろんな説明を端折ってミスリーディングな表現になってしまってたりするし、著者の知識が根本から間違ってるときもある
163デフォルトの名無しさん (オイコラミネオ MM56-3/HR)
2017/05/23(火) 07:27:49.86ID:pxpRUDcgM 結局身に付かないから自分で調べろとかw
ここで聞くってことは理解したいんじゃなくて答えが知りたいだけなんだよ
教える気がないなら黙ってろ
ここで聞くってことは理解したいんじゃなくて答えが知りたいだけなんだよ
教える気がないなら黙ってろ
164デフォルトの名無しさん (ワッチョイ 068e-/hLn)
2017/05/23(火) 07:34:02.08ID:Y2XmHkKh0165デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/23(火) 10:12:46.48ID:3SYK1IcP0 >>163
ほら、これが弊害だ。
きちんとアンカー追っていけば初心者がどうやって勉強すれば良いかの話から来てるのがわかる筈。
直近のレスだけ見るような手っ取り早さを求めるような奴には教えても無駄になるだけだ。
ほら、これが弊害だ。
きちんとアンカー追っていけば初心者がどうやって勉強すれば良いかの話から来てるのがわかる筈。
直近のレスだけ見るような手っ取り早さを求めるような奴には教えても無駄になるだけだ。
166デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/23(火) 10:34:38.44ID:BzWPCBXiH >>159
一生、
> Range("A1").Select
> Selection.Value=1
> Range("A1").Value=1
みたいなレベルを手探りで探し出すようなことやってろよ。誰にも迷惑かからないし。
だが、人には勧めるな。
一生、
> Range("A1").Select
> Selection.Value=1
> Range("A1").Value=1
みたいなレベルを手探りで探し出すようなことやってろよ。誰にも迷惑かからないし。
だが、人には勧めるな。
167デフォルトの名無しさん (アウアウカー Sacb-TsZx)
2017/05/23(火) 11:06:55.30ID:3CTg7HpXa >>166
それが分からないようじゃレベルがうかがいしれるねw
というか、あれを書いた俺がそんなレベルに無いことなんて想像も出来ないのか?
多少出来る奴なら誰でもマクロ記録のままのゴミコードを否定するだろうよ。
それが分からないようじゃレベルがうかがいしれるねw
というか、あれを書いた俺がそんなレベルに無いことなんて想像も出来ないのか?
多少出来る奴なら誰でもマクロ記録のままのゴミコードを否定するだろうよ。
168デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/23(火) 11:58:25.09ID:IihgumLkM169デフォルトの名無しさん (オイコラミネオ MM56-3/HR)
2017/05/23(火) 12:01:49.66ID:ZBpIQRDpM170デフォルトの名無しさん (スップ Sdea-9e5p)
2017/05/23(火) 12:06:29.03ID:TeKp5Ts0d Validationて何だ?
と思うくらいExcelのオブジェクトのことを知らない。
VBAばっかりだからなあ
と思うくらいExcelのオブジェクトのことを知らない。
VBAばっかりだからなあ
171デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/23(火) 13:08:14.56ID:BzWPCBXiH >>167
> というか、あれを書いた俺がそんなレベルに無いことなんて想像も出来ないのか?
お前のレベルなんか知ったこっちゃない。
> 多少出来る奴なら誰でもマクロ記録のままのゴミコードを否定するだろうよ。
ケースバイケースだし、議論する価値ない話題だね。
> というか、あれを書いた俺がそんなレベルに無いことなんて想像も出来ないのか?
お前のレベルなんか知ったこっちゃない。
> 多少出来る奴なら誰でもマクロ記録のままのゴミコードを否定するだろうよ。
ケースバイケースだし、議論する価値ない話題だね。
172デフォルトの名無しさん (スップ Sdea-9e5p)
2017/05/23(火) 13:09:17.49ID:TeKp5Ts0d 友達じゃあるまいしな
173デフォルトの名無しさん (ワッチョイ cad4-PCQh)
2017/05/23(火) 13:19:37.53ID:DZlqaxyP0174デフォルトの名無しさん (ワッチョイ cad4-PCQh)
2017/05/23(火) 13:26:08.31ID:DZlqaxyP0 答えが判ってることを効率的に片付けるには
答えを聞いたり調べれば良いけど
答えが判っていない新しいことを実現するには
その方法は使えない
自分で考えずに答えを求める事が
日本でイノベーションとかが比較的少ない原因かもな
答えを聞いたり調べれば良いけど
答えが判っていない新しいことを実現するには
その方法は使えない
自分で考えずに答えを求める事が
日本でイノベーションとかが比較的少ない原因かもな
175デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/23(火) 13:29:05.48ID:BzWPCBXiH 新しい何かを始めるにあたって、入門書を読むとこから始めるのが「答えを求めること」なのか
176デフォルトの名無しさん (ワッチョイ 4692-cm4/)
2017/05/23(火) 13:36:08.12ID:S9zv8N7Q0 そして、答えはひとつだけでは無い
177デフォルトの名無しさん (ワッチョイ cad4-PCQh)
2017/05/23(火) 13:40:08.67ID:DZlqaxyP0178デフォルトの名無しさん (アウアウカー Sacb-TsZx)
2017/05/23(火) 13:47:15.75ID:OJ3bnrAra179デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/23(火) 13:56:20.46ID:BzWPCBXiH180デフォルトの名無しさん (アークセー Sx03-JCxV)
2017/05/23(火) 14:43:29.82ID:YXklfP5tx お勧めの本は知りません
をやたら回りくどくやるのなw
をやたら回りくどくやるのなw
181デフォルトの名無しさん (ワッチョイ eecd-PZTw)
2017/05/23(火) 15:12:36.24ID:zqdwD1uL0 >>180
マは性格捻くれたクソ野郎が多いからw
マは性格捻くれたクソ野郎が多いからw
182デフォルトの名無しさん (ワッチョイ 1b8c-yD+V)
2017/05/23(火) 16:36:03.71ID:ZjKWQBEz0 たしかに>>132はクソレスだな
質問スレなんだから、素直におすす目入門書を挙げれば済む事
質問スレなんだから、素直におすす目入門書を挙げれば済む事
183デフォルトの名無しさん (アウアウウー Sa2f-PCQh)
2017/05/23(火) 18:13:36.59ID:PCM7pP9za 横レスだけど128の質問も少し違和感がある。
"詳しい入門書"というのはなかなかないんじゃないか。
128は少なくとも全然vbaが分からないわけでわなくプロパティやメソッドの使い方が難しいと言ってるわけだから求めてるのはもはや入門レベルとは思えない。
感覚としては優しく丁寧に書いてある、という意味かもしれないが。
"詳しい入門書"というのはなかなかないんじゃないか。
128は少なくとも全然vbaが分からないわけでわなくプロパティやメソッドの使い方が難しいと言ってるわけだから求めてるのはもはや入門レベルとは思えない。
感覚としては優しく丁寧に書いてある、という意味かもしれないが。
184デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/23(火) 18:22:11.37ID:IihgumLkM185デフォルトの名無しさん (アークセー Sx03-JCxV)
2017/05/23(火) 18:45:32.25ID:YXklfP5tx 早く教えて挙げて
186デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/23(火) 18:53:06.25ID:IihgumLkM187デフォルトの名無しさん (ワッチョイ 0fc7-X+GT)
2017/05/23(火) 20:04:53.74ID:vE+85AhN0 逆引き系の本てやりたい事がズバリ書いてある事ってどんだけあるの?
本当に使えるのかいまいち信用できん
本当に使えるのかいまいち信用できん
188デフォルトの名無しさん (ワッチョイ d3b9-cm4/)
2017/05/23(火) 20:24:44.89ID:4WGZqsHw0 星君の業務改善でいいじゃん
189デフォルトの名無しさん (ワッチョイ 068e-6Kgr)
2017/05/23(火) 20:25:40.01ID:Y2XmHkKh0 逆引きは、逆引きがいらない事に気づかせてくれるありがたい本だよ
190デフォルトの名無しさん (ワッチョイ caa6-kvD5)
2017/05/23(火) 20:59:03.89ID:mDga4JbQ0 そう、誰も、
本を
読んでいないのである・・・
本を
読んでいないのである・・・
191デフォルトの名無しさん (ワッチョイ de75-p4im)
2017/05/23(火) 21:24:06.93ID:PaLG7AjU0 勤務表を作りたいと考えています
A1からの各セルにA1勤務開始時間、A2勤務終了時間、A3休憩時間と入れたら
A4からの各セルにA4割増無の勤務時間、A58時間以上の勤務時間、A6休日労働時間、A7深夜労働時間
とVBAを使用して入れたいのですがA7に入れる深夜労働時間の求め方が思い浮かびません
深夜勤務は22:00〜5:00の間なのですが21:00〜4:00、18:00〜6:00みたいな勤務の場合どうやって深夜労働時間を求めればいいのでしょうか?
A1からの各セルにA1勤務開始時間、A2勤務終了時間、A3休憩時間と入れたら
A4からの各セルにA4割増無の勤務時間、A58時間以上の勤務時間、A6休日労働時間、A7深夜労働時間
とVBAを使用して入れたいのですがA7に入れる深夜労働時間の求め方が思い浮かびません
深夜勤務は22:00〜5:00の間なのですが21:00〜4:00、18:00〜6:00みたいな勤務の場合どうやって深夜労働時間を求めればいいのでしょうか?
192デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/23(火) 21:35:35.13ID:z+zsvOR8p >>191
就業規則をよめ
就業規則をよめ
193デフォルトの名無しさん (ワッチョイ 068e-/hLn)
2017/05/23(火) 21:41:04.89ID:Y2XmHkKh0 昔作ったなぁ
まず概念として、
0-5,5-22,22-29,29-46
と4つの区分に分ける。0-5と22-29を分けるのが味噌。一緒にするとややこしくなる
俺は甲時間 乙時間 丙時間 丁時間と名付けていた
入力は3項目じゃなく6項目。
出勤、退勤、甲乙丙丁それぞれいつ休み時間を取ったかわかるようにする
残業代は労働時間の合計-8時間になり、
休日は休日フラグを作り、勤務時間*割増分を別枠で付ける。
で、
21:00〜4:00の場合の考え方は
開始時間が5:00以前なら5:00△開始時間が甲時間(仮)。終了時間が5:00以前なら更に5:00△終了時間を甲時間(仮)から引く。これが甲時間。今回は0
乙時間も似たような感じで、開始時間が5:00~22:00なら22:00△開始時間が乙時間(仮)。終了時間が22:00以前なら更に22:00△終了時間を乙時間(仮)から引く。これが乙時間。今回は1:00
あとは丙時間、丁時間も同じように求める
個人的には関数の方が修正しやすい、見通しも良いで作りやすいと思う
>>192
無能の自己紹介はいらないよぉ
まず概念として、
0-5,5-22,22-29,29-46
と4つの区分に分ける。0-5と22-29を分けるのが味噌。一緒にするとややこしくなる
俺は甲時間 乙時間 丙時間 丁時間と名付けていた
入力は3項目じゃなく6項目。
出勤、退勤、甲乙丙丁それぞれいつ休み時間を取ったかわかるようにする
残業代は労働時間の合計-8時間になり、
休日は休日フラグを作り、勤務時間*割増分を別枠で付ける。
で、
21:00〜4:00の場合の考え方は
開始時間が5:00以前なら5:00△開始時間が甲時間(仮)。終了時間が5:00以前なら更に5:00△終了時間を甲時間(仮)から引く。これが甲時間。今回は0
乙時間も似たような感じで、開始時間が5:00~22:00なら22:00△開始時間が乙時間(仮)。終了時間が22:00以前なら更に22:00△終了時間を乙時間(仮)から引く。これが乙時間。今回は1:00
あとは丙時間、丁時間も同じように求める
個人的には関数の方が修正しやすい、見通しも良いで作りやすいと思う
>>192
無能の自己紹介はいらないよぉ
194デフォルトの名無しさん (ワッチョイ 068e-/hLn)
2017/05/23(火) 21:41:20.14ID:Y2XmHkKh0195デフォルトの名無しさん (ワッチョイ 4aa8-PZTw)
2017/05/23(火) 22:01:45.26ID:ADqqpGm90 以前、ここでシフト表を作りたいって人がいて、んで別スレまで出来てあれこれ皆が頑張っていたけど、途中で多分本人がやる気なくしてw
アボンだったな
アボンだったな
196デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/23(火) 22:07:18.85ID:z+zsvOR8p197デフォルトの名無しさん (ブーイモ MMea-Srcm)
2017/05/23(火) 22:34:24.97ID:D2f+EUmlM >>191
timevalue関数はご存知かな?
日時の時間部分だけをDate型に変換してくれるけど、Date型の値は24時間(=1日)を1とした数値として扱える。
以下、日付を跨ぐ値は1(=24時間)を足してます。
深夜開始 = TimeValue("22:00:00")
深夜終了1 = TimeValue("5:00:00")
深夜終了2 = TimeValue("5:00:00") + 1
出勤 = TimeValue(Range("A1").Value)
退勤 = TimeValue(Range("A2").Value)
If 出勤 > 退勤 Then 退勤 = 退勤 + 1
休憩 = TimeValue(Range("A3").Value)
労働時間 = 退勤 - 出勤 - 休憩
深夜労働時間 = IIf(出勤 < 深夜終了1, 深夜終了1 - 出勤, 0)
If 出勤 < 深夜終了2 And 退勤 > 深夜開始 Then
深夜労働時間 = 深夜労働時間 + IIf(退勤 < 深夜終了2, 退勤, 深夜終了2) - IIf(出勤 > 深夜開始, 出勤, 深夜開始)
End If
たぶんこんな感じ。
出勤表なんて作ったことないからテキトーですw
おかしかったら誰か直して〜
timevalue関数はご存知かな?
日時の時間部分だけをDate型に変換してくれるけど、Date型の値は24時間(=1日)を1とした数値として扱える。
以下、日付を跨ぐ値は1(=24時間)を足してます。
深夜開始 = TimeValue("22:00:00")
深夜終了1 = TimeValue("5:00:00")
深夜終了2 = TimeValue("5:00:00") + 1
出勤 = TimeValue(Range("A1").Value)
退勤 = TimeValue(Range("A2").Value)
If 出勤 > 退勤 Then 退勤 = 退勤 + 1
休憩 = TimeValue(Range("A3").Value)
労働時間 = 退勤 - 出勤 - 休憩
深夜労働時間 = IIf(出勤 < 深夜終了1, 深夜終了1 - 出勤, 0)
If 出勤 < 深夜終了2 And 退勤 > 深夜開始 Then
深夜労働時間 = 深夜労働時間 + IIf(退勤 < 深夜終了2, 退勤, 深夜終了2) - IIf(出勤 > 深夜開始, 出勤, 深夜開始)
End If
たぶんこんな感じ。
出勤表なんて作ったことないからテキトーですw
おかしかったら誰か直して〜
198デフォルトの名無しさん (ワッチョイ 068e-6Kgr)
2017/05/23(火) 22:55:16.52ID:Y2XmHkKh0 ?cells(1,1).Address
で絶対参照の$A$1は取得できますが、
行のみ相対参照の$A1を取得する方法はありますか?
で絶対参照の$A$1は取得できますが、
行のみ相対参照の$A1を取得する方法はありますか?
199デフォルトの名無しさん (ササクッテロロ Sp03-qMse)
2017/05/23(火) 22:59:09.40ID:p/2ZNHs9p200デフォルトの名無しさん (ワッチョイ 068e-6Kgr)
2017/05/23(火) 23:08:02.98ID:Y2XmHkKh0 >199
ありがとうございます、解決しました
ありがとうございます、解決しました
201デフォルトの名無しさん (ワッチョイ 068e-JSuV)
2017/05/23(火) 23:10:34.50ID:Y2XmHkKh0 Range.Address プロパティ (Excel)について質問です
AddressはRangeオブジェクト内の関数ですが、vbaだと、値を取得する場合はプロパティと呼ぶのでしょうか?
引数があってもプロパティと呼ぶのですか?
他言語ではオブジェクトのメンバを直接取得したり値を設定するのがプロパティ、式がメソッドと思っていたのですが、
vbaが特別なのでしょうか。それとも他にこういう区分けの言語はあるのでしょうか
http://piyo-js.com/01/keyword.html
AddressはRangeオブジェクト内の関数ですが、vbaだと、値を取得する場合はプロパティと呼ぶのでしょうか?
引数があってもプロパティと呼ぶのですか?
他言語ではオブジェクトのメンバを直接取得したり値を設定するのがプロパティ、式がメソッドと思っていたのですが、
vbaが特別なのでしょうか。それとも他にこういう区分けの言語はあるのでしょうか
http://piyo-js.com/01/keyword.html
202デフォルトの名無しさん (ワッチョイ ca2d-PCQh)
2017/05/23(火) 23:39:33.41ID:kSdgf1uK0 プログレスバー使ったら値更新するたびにフォーカス奪うようになって別ウィンドウで文字入力とかスクロールしてると邪魔される
せっかくの長い処理中に別作業できるメリットが損なわれるようになってしまって困ってるんだけど何か解決策ないでしょか…?
プログレスバーないと処理中不安になって長く感じるのでできれば使いたいです
ちなみにWindows7上で使ってるExcel 2010です
せっかくの長い処理中に別作業できるメリットが損なわれるようになってしまって困ってるんだけど何か解決策ないでしょか…?
プログレスバーないと処理中不安になって長く感じるのでできれば使いたいです
ちなみにWindows7上で使ってるExcel 2010です
203デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/23(火) 23:44:33.10ID:CFQVOeJer >>201
Addressは要はgetterですよね
Rangeクラス内部から見ればメソッドのように見え、クラス利用側から見るとメンバ変数のように振る舞いますが、
実態はString型の変数を返すメソッドでふ
メソッドがパラメーターを持つのは普通のことじゃないですかね
Addressは要はgetterですよね
Rangeクラス内部から見ればメソッドのように見え、クラス利用側から見るとメンバ変数のように振る舞いますが、
実態はString型の変数を返すメソッドでふ
メソッドがパラメーターを持つのは普通のことじゃないですかね
204デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/23(火) 23:47:22.57ID:CFQVOeJer でふって何だよ馬鹿かよ俺
205デフォルトの名無しさん (ワッチョイ 068e-JSuV)
2017/05/23(火) 23:52:40.77ID:Y2XmHkKh0 >>191
暇だから作った
http://www.dotup.org/uploda/www.dotup.org1258917.xlsx.html
>>203
そうそう、そうなんです
で、vbaではそれをプロパティと呼ぶの?という質問なんです
このリンク先ではaddressをプロパティと言っています
https://msdn.microsoft.com/ja-jp/library/office/ff837625.aspx
暇だから作った
http://www.dotup.org/uploda/www.dotup.org1258917.xlsx.html
>>203
そうそう、そうなんです
で、vbaではそれをプロパティと呼ぶの?という質問なんです
このリンク先ではaddressをプロパティと言っています
https://msdn.microsoft.com/ja-jp/library/office/ff837625.aspx
206デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/23(火) 23:55:26.87ID:CFQVOeJer207デフォルトの名無しさん (ワッチョイ c6cd-icqO)
2017/05/24(水) 00:16:59.54ID:jVvBcvpG0 今日飲んだビール.TopValue
208デフォルトの名無しさん (ワッチョイ ca3c-PZTw)
2017/05/24(水) 01:48:09.41ID:nPuq94IW0 >>205
自作クラスで言うと、
property get/set/let で定義するのがプロパティ、
sub/function で定義するのがメソッド。
range.addressみたく、getだけ定義されているプロパティとfunctionは外から見たら同じようなものだし、気にする意味がないと思う。
自作クラスで言うと、
property get/set/let で定義するのがプロパティ、
sub/function で定義するのがメソッド。
range.addressみたく、getだけ定義されているプロパティとfunctionは外から見たら同じようなものだし、気にする意味がないと思う。
209デフォルトの名無しさん (ワッチョイ 068e-kvD5)
2017/05/24(水) 07:02:03.86ID:NmLbt9VS0210デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/24(水) 10:47:49.12ID:ktSIKEk8H >>202
ステータスバーに進捗状況を表示するようにしたら?
ステータスバーに進捗状況を表示するようにしたら?
211デフォルトの名無しさん (ワッチョイ 031f-QnPL)
2017/05/24(水) 14:14:59.56ID:9bsixbB10 VBA勉強中の初心者です。
最終的にやりたいのはテキストエディタから一部データを抜き出すのをしたいんですが抜き出し方がわかりません。
メモ帳にログが取り込まれてそこから必要なデータを取り除きたいです。
コンビニのレシートがデータしてるものと考えてください。
それでそのレジの最後の一台当たりの発売金額がわかるんですけど発売金額を抜き出したいのですが何をどうしたらいいのでしょうか?
まだ変数と制御構文くらいしか理解していません。
最終的にやりたいのはテキストエディタから一部データを抜き出すのをしたいんですが抜き出し方がわかりません。
メモ帳にログが取り込まれてそこから必要なデータを取り除きたいです。
コンビニのレシートがデータしてるものと考えてください。
それでそのレジの最後の一台当たりの発売金額がわかるんですけど発売金額を抜き出したいのですが何をどうしたらいいのでしょうか?
まだ変数と制御構文くらいしか理解していません。
212デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/24(水) 14:38:10.49ID:ktSIKEk8H >>211
正規表現(RegExp)を使うと、指定したパターンに適合する文字列を抜き出せる。
以下は、"発売金額 \1,000"という文字列から"1,000"を抜き出すコード。
Sub foo()
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "発売金額 \\([\d,]+)"
Set res = regex.Execute("aaa発売金額 \1,000 bbb")
If res.Count > 0 Then
Set res2 = res(0).SubMatches
Debug.Print res2(0)
End If
End Sub
正規表現(RegExp)を使うと、指定したパターンに適合する文字列を抜き出せる。
以下は、"発売金額 \1,000"という文字列から"1,000"を抜き出すコード。
Sub foo()
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "発売金額 \\([\d,]+)"
Set res = regex.Execute("aaa発売金額 \1,000 bbb")
If res.Count > 0 Then
Set res2 = res(0).SubMatches
Debug.Print res2(0)
End If
End Sub
213デフォルトの名無しさん (ワッチョイ 031f-QnPL)
2017/05/24(水) 14:44:53.85ID:9bsixbB10 おお!ありがとうございます。
これを元に一つ一つググりながら理解していこうと思います。
これを元に一つ一つググりながら理解していこうと思います。
214デフォルトの名無しさん (ワッチョイ 0bcd-icqO)
2017/05/24(水) 14:53:05.51ID:9OGm2Cju0215デフォルトの名無しさん (ワッチョイ 068e-VlMO)
2017/05/24(水) 18:37:48.65ID:NmLbt9VS0 なんでfoo使うのダメなの?
216デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/24(水) 18:45:27.67ID:BVqzNkwop >>214
何でテキストファイルを読み込むのにSQLとかADO使うの?
何でテキストファイルを読み込むのにSQLとかADO使うの?
217デフォルトの名無しさん (アークセー Sx03-JCxV)
2017/05/24(水) 18:52:32.09ID:qKRKK3Glx >>216
適材適所
適材適所
218デフォルトの名無しさん (アウアウカー Sacb-PCQh)
2017/05/24(水) 19:02:38.69ID:LTICL+DVa HYPERLINK関数(mailto:)を使って、メールを送信するシートを作成しました。
B2からB30セルまで、ハイパーリンクが設定されている状態です。
この、B列に並んだハイパーリンクを全てクリックして自動で実行したいのですが、どのようなコードを使えばよいのか分かりません。
Hyperlink.Followメソッドでは、関数によるハイパーリンクを開けないことは分かったのですが、何か代替手段はあるでしょうか?
B2からB30セルまで、ハイパーリンクが設定されている状態です。
この、B列に並んだハイパーリンクを全てクリックして自動で実行したいのですが、どのようなコードを使えばよいのか分かりません。
Hyperlink.Followメソッドでは、関数によるハイパーリンクを開けないことは分かったのですが、何か代替手段はあるでしょうか?
219デフォルトの名無しさん (ワッチョイ 068e-JSuV)
2017/05/24(水) 19:18:29.39ID:NmLbt9VS0220デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/24(水) 20:09:08.13ID:YRGsLxEEr221デフォルトの名無しさん (ワッチョイ 0fc7-X+GT)
2017/05/24(水) 20:17:47.99ID:WW1YGaoR0222デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/24(水) 20:48:39.32ID:42FTyawn0 だから、ちゃんと教える気がないなら黙ってろと
223デフォルトの名無しさん (ワッチョイ 068e-xJM8)
2017/05/24(水) 20:49:24.31ID:NmLbt9VS0224デフォルトの名無しさん (ワッチョイ 0bcd-icqO)
2017/05/24(水) 21:12:42.89ID:9OGm2Cju0225デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/24(水) 21:23:52.71ID:YRGsLxEEr226デフォルトの名無しさん (ワッチョイ de75-p4im)
2017/05/24(水) 23:00:58.40ID:LLuwxDnS0227デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/24(水) 23:03:01.52ID:BVqzNkwop >>224
何でテキストをsqlで読もうとするの?
何でテキストをsqlで読もうとするの?
228デフォルトの名無しさん (ワッチョイ 068e-VlMO)
2017/05/24(水) 23:06:50.11ID:NmLbt9VS0 >>226
数式読みなよ、全部書いてる
http://www.dotup.org/uploda/www.dotup.org1258917.xlsx.html
あとstringに制限は事実上ない
一旦varchar(255)辺りに入れてない?テーブルの制限に引っかかってる気がする
数式読みなよ、全部書いてる
http://www.dotup.org/uploda/www.dotup.org1258917.xlsx.html
あとstringに制限は事実上ない
一旦varchar(255)辺りに入れてない?テーブルの制限に引っかかってる気がする
229デフォルトの名無しさん (ワッチョイ 8bcd-wwwt)
2017/05/25(木) 00:02:05.58ID:rwwycwh80■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 「もうキモくてキモくて…」29歳女性が語る“おぢアタック”の実態。「俺ならイケるかも」年下女性を狙う勘違い中年男性には共通点が [Hitzeschleier★]
- テレビ朝日 本社から男性が転落し死亡。関連会社社員か 当たった通行人が左肩軽傷 [阿弥陀ヶ峰★]
- 中国軍機がレーダー照射 小泉防衛大臣の説明に「矛盾している」中国外務省報道官が批判 [♪♪♪★]
- 「これいいじゃん!!!」 セブン-イレブンの1620円で買える“1人用クリスマスケーキ”🎂に注目殺到「天才すぎる」 [パンナ・コッタ★]
- テレビ朝日本社から20~30代の関連会社社員とみられる男性が転落し死亡 六本木けやき坂通りの通行人にはけが人なし [少考さん★]
- 高市早苗首相が天理教系企業に“巨額発注” 総額5000万円 本人は「政治団体の活動に必要な支出」と回答 ★2 [Hitzeschleier★]
- enaga(´・Ǎ・`) ◆99xH8ena32 ってコテわろたwwwwwwwwwww
- 【乞食速報】プロクオリティ ビーフカレー 96食 4262円 [268244553]
- 【悲報】小泉防衛大臣、中国のレーダー照射事件をNATO事務総長に報告 [834922174]
- 年末のvip芋煮会って何日だっけ?
- 歴史って「この教科には暴力的な表現が含まれます」とか警告しといた方がいいよな
- 『86-エイティシックス-』レーナがどちゃくそエチエチな下着姿&体操服?姿でフィギュア化キタ━━━(゚∀゚)━━━!! [303493227]
