トップページ
>
プログラム
>
2016年06月28日
>
YVMoIJVb
書き込み順位&時間帯一覧
5 位
/226 ID中
時間
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Total
書き込み数
0
0
0
0
0
0
0
0
1
0
0
0
0
0
0
0
1
0
1
0
0
0
5
1
9
使用した名前一覧
書き込んだスレッド一覧
デフォルトの名無しさん
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
+ JavaScript の質問用スレッド vol.120 + [無断転載禁止]©2ch.net
書き込みレス一覧
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
57 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 08:18:03.27 ID:YVMoIJVb
>>52
マルチ
+ JavaScript の質問用スレッド vol.120 + [無断転載禁止]©2ch.net
820 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 16:46:50.81 ID:YVMoIJVb
http://jsdo.it/ksk1015/7lvD
のページのサンプロコード、20行目で見かけたのですが、
この場合のvideoの前後にあるスラッシュはどういう意味があるのでしょうか?
if( !/video/.test(file.type) ){
!video.test(file.type)
ではダメなのでしょうか
+ JavaScript の質問用スレッド vol.120 + [無断転載禁止]©2ch.net
822 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 18:04:00.99 ID:YVMoIJVb
>>821
なるほど、ありがとうございます
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
61 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 22:24:08.26 ID:YVMoIJVb
>>59
条件付き書式のほうが良くない?
http://www.dotup.org/uploda/www.dotup.org922256.xlsx.html
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
62 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 22:24:38.30 ID:YVMoIJVb
あぁごめん失敗した
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
64 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 22:36:13.90 ID:YVMoIJVb
>>59
そもそも、この作業は条件付き書式でやるべき。
で、コードも酷い。
こんなシートとして
http://www.dotup.org/uploda/www.dotup.org922273.png
これだけでいい
Sub test()
n = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Cells.Interior.ColorIndex = 0
For i = 1 To n
If Worksheets("休日").Cells(i, 2) <> "" Then
Range("a" & i & ":n" & i).Interior.Color = RGB(192, 192, 192)
End If
Next
End Sub
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
67 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 22:41:21.34 ID:YVMoIJVb
>>65
エクセルで喋らせることってそんなにあるん?
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
68 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 22:42:34.94 ID:YVMoIJVb
>>66
じゃあこんな感じ
Sub test()
n = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Cells.Interior.ColorIndex = 0
For i = 1 To n
If Worksheets("休日").Cells(i, 2) <> "" Then
Range("a" & i+8 & ":n" & i+8).Interior.Color = RGB(192, 192, 192)
End If
Next
End Sub
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
74 :
デフォルトの名無しさん
[sage]:2016/06/28(火) 23:46:08.58 ID:YVMoIJVb
>>73
無い
acthivsheetがずれてるとかそんなんでは
※このページは、
『2ちゃんねる』
の書き込みを基に自動生成したものです。オリジナルはリンク先の2ちゃんねるの書き込みです。
※このサイトでオリジナルの書き込みについては対応できません。
※何か問題のある場合は
メール
をしてください。対応します。