有人说中文吗？

如题。有个非英文区考虑挺周到。

报个名，呵呵??

难得难得，以后互相帮助了。

占个位置,呵呵......

他乡遇故知

看到几个版主都来了哈

问一下，大家都是在国内的吗？

响应号召，来了！

Quote:

---

Originally Posted by trampzju

如题。有个非英文区考虑挺周到。

---

有人说中文吗？ - You Ren Hui Zhong Wan Ma? - Do you have anyone speak central language (Mandarin)?

-Ha! my Chinese isn't that bad then!!!!!!

(unfortunately I couldn't read the rest of the email.....), something about you yi ge ying wan something something something....

"have an english (language) there....."


-AS

报道来了

哈喽！大家。。。
此南狼不晓得是不是LL里的南狼。

I can, but i can not type chinese from here

Hi All,

I am new to VBA so my question can be really basic.

I need to create a user defined function in Excel that places a header in the cell above the function, if the cell above the function is empty. e.g. If you place =theFunction() is cell B1 and A1 is empty, it will write "The Function:" in A1 in addiction the result of theFunction in B1.

I wrote the following code:

Function AddOne(inValue As Integer)
AddOne = inValue + 1
Dim c As Comment
If IsObject(Application.Caller) = True Then
MsgBox Range(Application.Caller.Address).Offset(-1, 0).Address
c = Range(Application.Caller.Address).Offset(-1, 0).AddComment("Add One:")
Range(Application.Caller.Address).Offset(-1, 0).Value = "AddOne:"
End If
End Function


It returns "#value". I think the problem is with this but don't know how to fix it.

Range(Application.Caller.Address).Offset(-1, 0).Value = "AddOne:"

Can anyone shed some light? Thank you!

有問題的話我還是會在外面問，這裏只可以當聊天區。

嘿嘿，报到一下。

报到一下

:S

这里很多热心人...^_^