VBA 判断当前行的C列是否存在数据

天天向下

数据表中双击任意一行，如果当前行 C列有数据 执行一段代码，则没有执行另一段码


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
如果当前行 C列 有数据 执行一段代码
XXXXXXX

如果当前行 C列 没有数据 执行一段代码
CCCCC

那位老师帮我写一下谢谢

准提部林

with target
       cancel = true
      if cells(.row, "c")<>"" then
         執行A
     else
        執行B
     end if
end with

musicren2001

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim x%

x = WorksheetFunction.CountA(Range("C:C"))

If x Then
    MsgBox "C列有数据"  '空格也视为有数据
Else:
    MsgBox "C列没有数据"
End If

End Sub

天天向下

准提部林 发表于 2023-6-12 15:52
with target
       cancel = true
      if cells(.row, "c")"" then

谢谢老师，帮我解决大问题！

天天向下

准提部林 发表于 2023-6-12 15:52
with target
       cancel = true
      if cells(.row, "c")"" then

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
如果当前行 C列 数值是“ 1” 执行一段代码
XXXXXXX

如果当前行 C列 数值是“ 2 ” 执行一段代码
CCCCC
如果当前行 C列 数值是 “3”  执行一段代码
YYYYY
如果是这样的话，如何改代码？

准提部林

天天向下 发表于 2023-6-18 09:17
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
如果当前行 C列  ...

with target
       cancel = true
      V = cells(.row, "c")
      if v=1 then
         執行A
     elseif v=2 then
         執行B
    elseif v=3 then
         執行C
     end if
end with

天天向下

准提部林 发表于 2023-6-18 10:52
with target
       cancel = true
      V = cells(.row, "c")

好的，谢谢！