Excel vba 取得 儲存 格 的 值

假設a2不是空白,我要判斷A1:b1的儲存格是否為空白
If .Range("a2") <> "" And .Range("a1") = "" And .Range("b1") = "" Then MsgBox "請確認是否有跳行": Exit Sub
這樣是沒有問題
但是如果假設a11不是空白,我要判斷a1:b10的儲存格是否為空白無資料
這樣應該要怎麼寫比較好?謝謝

  • 回答3
  • 邀請回答
  • 追蹤
  • 檢舉

可以用
WorksheetFunction.CountA("A1:A10")
若小於10則表示有空的儲存格

  • 檢舉

IF Range("A11" ).Value <> "" then
for ia = 1 to 10
if Range("A" & IA).Value <> "" OR Range("B" & IA).Value <> "" then
msgbox "有資料"
endif
next ia
endif

  • 檢舉

以下程式碼是先找出整張表格的最末後一行與最後一列的位置,
利用Ctrl+方向鍵的的概念來判斷是否有跳行的情況產生,
(因為如果中間無空格,你從最末列利用"Ctrl+方向鍵"所得到的列號應該等於1。)

Sub 是否有跳行()
Dim LR as Intenger   'LR為表格最末列號
Dim LC as Intenger   'LC為表格最右行號
Dim i as Intenger    'i為迴圈控制器
Dim CR as Intenger   'CR為檢查碼
With ActiveSheet
    LR=.cells(1048576,"A").End(xlUp).Row
    LC=.cells(1,"XFD").End(xlLeft).Column
    '如果Excel附檔名為.xls的話,把1048576改65536,"XFD"改"IV"
    For i=1 to LC
        CR=.cells(LR,i).End(xlUp).Row
        If CR<>1 Then
            Msgbox("有跳行狀況產生")
        End If
    Next
End With
End Sub

#VBA #Excel最末行 #Excel最末列 #Excel空格 #Excel跳行

  • 檢舉

-->

以下這些都會是網友們討論與注意的excel vba取得儲存格位置有關!

接下來讓我們看網友們討論與留言的excel vba取得儲存格位置貼文都是是什麼內容:

-->

要在其後開始搜尋的儲存格。. 這個儲存格對應於從使用者介面執行搜尋時的作用中儲存格位置。. 請注意, After 必須是搜尋範圍中的單一儲存格。. 請記住搜尋是在這個儲存格之後開始;直到該方法循環回到指定的儲存格時,才會搜尋該儲存格。. 如果您未指定 ...查看更多內容

Excel VBA取得儲存格的值及位置:回傳畫出數學向量. Excel圖案中的線條設定為箭頭,可作為指示圖形或數學中的向量。. 本文介紹VBA的AddConnector、ShapeRange.Line、With…End、ActiveSheet.Cells.Value等方法,設計程式依照Excel所輸入的儲存格位址畫出線條箭頭。.查看更多內容

如果參照包含一個以上的儲存格,則 RowAbsolute 和 ColumnAbsolute 會套用於所有的列及欄。 範例 下列範例對 Sheet1 中的同一儲存格位址使用了四種不同的表達模式。 範例中的註解為將顯示在訊息方塊中的位址。查看更多內容

如何選取另一個儲存格與相對 (不是使用中) 的儲存格 若要選取下列五個資料列及四欄的儲存格 C7 右方的儲存格,您可以使用其中一個下列的範例: ActiveSheet.Cells(7, 3).Offset(5, 4).Select ActiveSheet.Range("C7").Offset(5, 4).Select 如何選取儲存格範圍從查看更多內容

Excel尋找資料所在儲存格位置-ADDRESS函數 請教: 請問一下如果有一系列數字用 MAX or MIN 找出最大最小值後 如何同時找出此最大或最小值的儲存格位置 (EX: C3)。 謝謝!! 步驟 1 :點取 B2 儲存格輸入公式「 =ADDRESS(MATCH(MAX(A2:A11),A2:A11)+1,1,4,1) 」後,按 Enter 鍵完成輸入。查看更多內容

使用 Range ( arg) 來傳回代表單一儲存格或儲存格範圍的 Range 物件,其中的 arg 會命名範圍。. 下列範例會將 A1 儲存格的值指派給 A5 儲存格。. VB. 複製. Worksheets ("Sheet1").Range ("A5").Value = _ Worksheets ("Sheet1").Range ("A1").Value. 下列範例會為範圍中每個儲存格設定公式,以 ...查看更多內容

標題 [VBA ] 請問如何取得當前儲存格所在列數/行數? 如題 我想用自訂一個private function 來跑迴圈 以公式所在儲存格之列數做計算 我知道ActiveCell.row 和 Cells.Select.row 的方法 可是這兩個是指當前被選到的儲存格 (框框所在) 所以不能用拉的方式讓一整列自動計算 (會 ...查看更多內容

選取儲存格 D1 Range("A1").Offset(, 3).Select 選取儲存格 A5 Range("A1").Offset(4).Select 支援和意見反應 有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。查看更多內容

【語法】
Value屬性說明
object.Value = variant

object:目標Range物件,variant:儲存格值

【說明】
指定儲存格有Range與Cells兩種方式,Range(儲存格編號)、Cells(列,欄)
使用Cells只能指定單一儲存格Cells(I,j)或全部儲存格Cells;使用Range可以指定區域

【格式】
Range ("A1")
Cells (29)

儲存格的值可利用 Value 屬性,我們要將值指定給儲存格 A1 時,可將程式碼成

【範例】
Range("A1").Value = "Excel VBA"
Cells(1,1)= "Excel VBA"

參考資料

Excel vba 取得 儲存 格 的 值

在EXCEL工作表的单元格中输入值是EXCEL的基本操作。在VBA中可以用Value属性获取和设置输入到单元格的值,用Formula属性或FormulaR1C1属性获取和设置输入到单元格的公式。另外,作为VBA的一项功能,可以用AutoFill方法在单元格区域中输入连续数据。

01 如何获取/设置单元格的值

用Value属性获取/设置输入到单元格的值。Value属性可以获取不包含公式的值。另外,因为Value属性是Range对象的默认属性,省略Value属性写成Range("A1")=10也是可以的。

对象.Value

对象.Value=设置值

下例中,我们在单元格A1中输入“工资情况一览表”,并把单元格F20的总计值输入到单元格C3中。

Excel vba 取得 儲存 格 的 值

代码如下:

Excel vba 取得 儲存 格 的 值

运行后如下:

Excel vba 取得 儲存 格 的 值

02 以各种各样的数字格式将值输入到单元格

如果需要在单元格中输入“北京”,“11月2日”,“4800”等不同数值类型的值时,需要用双引号将值括起来。

Excel vba 取得 儲存 格 的 值

03 如何获取/设置单元格的公式

用Formula属性获取/设置如A1形式单元格公式。用FormulaRC1属性获取/设置如R1C1形式单元格公式。

对象.Formula

对象.Formula=设置值

对象.FormulaR1C1

对象.FormulaR1C1=设置值

用Formula属性对单元格输入公式时,公式应该从等号开始书写,并且整个公式用双引号括起来。如果没有书写等号,则不会识别公式,而会把它当成文本显示。

请看下例。

Excel vba 取得 儲存 格 的 值

代码如下

Excel vba 取得 儲存 格 的 值

运行后的结果如下。

Excel vba 取得 儲存 格 的 值

04 如何在单元格里输入连续数据

用AutoFill方法可以在单元格里输入连续数据。AutoFill方法对应于EXCEL中的自动填充。用该方法可以在指定的单元格内,完成诸如输入连续的数据,复制值,复制格式等操作。

对象.AutoFill(Destination,Type)

下例中,在单元格A1中输入“1月”,以单元格为基准从单元格A1到单元A12止自动填充连续的月份。代码如下。

Excel vba 取得 儲存 格 的 值

运行后如下。

Excel vba 取得 儲存 格 的 值

-END-

长按下方二维码关注EXCEL应用之家

面对EXCEL操作问题时不再迷茫无助

Excel vba 取得 儲存 格 的 值