- Excel VBA 質問スレ Part35
913 ：デフォルトの名無しさん[]：2015/01/04(日) 15:18:07.98 ID:lFfpcuGH - ExcelからWordを操るとき、
まだWordが開いてなければCreateObject("WordApplication")
すでにWordが開かれていたらGetObject(, "Word.Application")
の呪文を唱えますが、
この条件分岐はどう書きますか？
|
- Excel VBA 質問スレ Part35
914 ：デフォルトの名無しさん[]：2015/01/04(日) 15:19:27.19 ID:lFfpcuGH - >>912
Unko=, Manko=, Shikko=, Chinnko=, Seshiumu-san=、みたいな感じか？(ﾜﾗ
|
- Excel VBA 質問スレ Part35
916 ：デフォルトの名無しさん[]：2015/01/04(日) 15:55:40.40 ID:lFfpcuGH - For Each 男 in 彼女.元彼
If 男.ち○こ.size > 20 Then
If 男.年収 > 8000000 Then
If 男.イケメン=True Then
彼女.結婚 場所:="ハワイ", 離婚慰謝料:=100000000
Exit For
End If
End If
End If
Next 男
|
- Excel VBA 質問スレ Part35
918 ：デフォルトの名無しさん[]：2015/01/04(日) 18:04:03.70 ID:lFfpcuGH - New ○○○
CreateObject("○○○")
この2つの違い、使い分け、etc.、はどうなっていますか？
|
- Excel VBA 質問スレ Part35
919 ：デフォルトの名無しさん[]：2015/01/04(日) 18:11:24.12 ID:lFfpcuGH - Sub test()
Dim a As Range
Dim b As Range
Set a = Cells(1, 1)
Set b = Cells(2, 1)
b = a
End Sub
こうやったら下のセルの値から上のセルの値にかわるだけで
書式類は一切受け継がれないのですが
それはどう実現しますか？
例えば上のセルにフォントが「メイリオ」、サイズが48、赤字に太字で、
下のセルはなにも書式を設定していないとき
下のセルも上のセルのように派手な書式にしたいけど値は「変えない」ようにしたいんです。
|