- Excel VBA 質問スレ Part44 [無断転載禁止]©2ch.net
179 ：デフォルトの名無しさん[sage]：2016/11/28(月) 20:57:02.51 ID:NHCcCoI/ - >>175
Sub CellColor()
Dim Cell As Range
For Each Cell In Selection
Dec Cell
Next
End Sub
Sub Dec(Cell As Range)
If Cell.Interior.ColorIndex <> 6 Then Exit Sub
For Each x In Array(1, -1)
With Cell.Offset(0, x).Interior
If .ColorIndex = 3 Then .ColorIndex = 43
End With
Next
End Sub
ネスト化を避ける例を書こうとしたら、逆にネストが深まってしまった。不思議だ・・・。
|
- Excel VBA 質問スレ Part44 [無断転載禁止]©2ch.net
181 ：デフォルトの名無しさん[sage]：2016/11/28(月) 21:51:56.21 ID:NHCcCoI/ - >>180
VBAスレなんだからコードで書いてくれよ。
|
- Androidプログラミング質問スレ revision52 [無断転載禁止]©2ch.net
51 ：デフォルトの名無しさん[sage]：2016/11/28(月) 22:05:21.21 ID:NHCcCoI/ - 2Dゲームを作りたくてググッたところ、動的な画像にはSurfaceViewやTextureViewを使うよりも
Viewを継承して自分でカスタマイズした方が速いという風に出ていたのですが、
この場合のViewが速いというのはOpenGL ES 2.0を利用している事を前提としているのでしょうか？
それとも他のViewと同じ処理をそのままView内部に書いて、onDrawでcanvasに描画するだけでも速いという事なのでしょうか？
|
- Excel VBA 質問スレ Part44 [無断転載禁止]©2ch.net
184 ：デフォルトの名無しさん[sage]：2016/11/28(月) 22:27:16.46 ID:NHCcCoI/ - 後からまとめてって条件がつくなら、個人的にはこうかな。
Sub CellColor()
Dim Cell As Range, Uni As Range
For Each Cell In Selection
Dec Cell, Uni
Next
Uni.Interior.ColorIndex = 43
End Sub
Sub Dec(Cell As Range, Ret As Range)
If Cell.Interior.ColorIndex <> 6 Then Exit Sub
For Each x In Array(1, -1)
With Cell.Offset(0, x).Interior
If .ColorIndex = 3 Then
If Ret Is Nothing Then
Set Ret = Cell.Offset(0, x)
Else
Set Ret = Union(Ret, Cell.Offset(0, x))
End If
End If
End With
Next
End Sub
|
- Excel VBA 質問スレ Part44 [無断転載禁止]©2ch.net
186 ：デフォルトの名無しさん[sage]：2016/11/28(月) 22:56:09.44 ID:NHCcCoI/ - >>185
Sub CellColor()
Dim Cell As Range, Uni As Range
For Each Cell In Selection
If Cell.Column < 1 And Cell.Column > Columns.Count Then
Dec Cell, Uni
End If
Next
Uni.Interior.ColorIndex = 43
End Sub
こうすりゃいいんじゃね。
|
- Androidプログラミング質問スレ revision52 [無断転載禁止]©2ch.net
55 ：デフォルトの名無しさん[sage]：2016/11/28(月) 22:58:54.74 ID:NHCcCoI/ - >>52-54
ありがとうございます。
Unity等のミドルウェアを理解する為に、まずはAndroid SDK環境で作れるようになろうと思っているので、
OpenGLから勉強してみようと思います。
|
- Excel VBA 質問スレ Part44 [無断転載禁止]©2ch.net
187 ：デフォルトの名無しさん[sage]：2016/11/28(月) 23:00:24.55 ID:NHCcCoI/ - ぎゃあ、符号逆だった。
Cell.Column > 1 And Cell.Column < Columns.Count
だな。
|