|
如何用VBA檢查Caps Lock鍵是否打開問(wèn)題：如何用VBA檢查Caps Lock鍵是否打開 回答：要用VBA代碼判斷Caps Lock鍵,、Num Lock鍵及Scroll Lock鍵的開啟狀態(tài),，可以用下面的代碼，前四行代碼為API聲明,，需放置在代碼窗口的最上方： Private Declare Function GetKeyState Lib user32 (ByVal nVirtKey As Long) As IntegerConst VK_NUMLOCK = &H90Const VK_SCROLL = &H91Const VK_CAPITAL = &H14Private Sub KeyStates() If GetKeyState(VK_CAPITAL) Then Caps Lock鍵 MsgBox Caps Lock ON Else MsgBox Caps Lock OFF End If If GetKeyState(VK_N... 在Excel中判斷單元格是否包含日期問(wèn)題：在Excel中判斷單元格是否包含日期 回答：Excel中的系列“Is”類函數(shù)可以判斷指定值并返回TRUE或FALSE,，如ISNUMBER函數(shù)判斷值是否為數(shù)字、ISTEXT判斷值是否為文本等,。但Excel沒有提供一個(gè)判斷日期的工作表函數(shù),，如“IsDate”。如果要檢測(cè)某單元格是否為日期,，可以用CELL函數(shù),，例如下面的公式判斷A1單元格是否為日期： =IF(LEFT(CELL( format ,A1))= D ,IF(--RIGHT(CELL( format ,A1))<6,TRUE)) 當(dāng)A1單元格為日期格式時(shí)返回TRUE，否則返回FALSE... 在Excel中判斷某年是否為閏年問(wèn)題：在Excel中判斷某年是否為閏年 回答：... =(MOD(YEAR(A1),4)=0)-(MOD(YEAR(A1),100)=0)+(MOD(YEAR(A1),400)=0) 下面的公式比較簡(jiǎn)潔,，除1900年外都能正確判斷： =IF(DAY(DATE(YEAR(A1),2,29))=29, 閏年 , 非閏年 ) 使用自定義函數(shù)： 按Alt+F11,，打開VBA編輯器，單擊菜單“插入→模塊”,，在右側(cè)的代碼窗口中輸入下面的VBA代碼： Public Function IsLeapYear(ByVal Date1 As Date) As Boolean Y = Year(Date1) IsLeapYear = Month(DateSerial(Y, 2, 29)) = 2 End Function 或： Fun... 用VBA判斷指定的文件夾或文件是否存在問(wèn)題：用VBA判斷指定的文件夾或文件是否存在 回答：有時(shí)我們需要用VBA代碼判斷某個(gè)文件夾或文件是否存在,，以便進(jìn)行后續(xù)操作?？梢杂孟旅娴拇a來(lái)實(shí)現(xiàn)這個(gè)功能： Public Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True EarlyExit: On Error GoTo 0 End Function 將上述代碼放入標(biāo)準(zhǔn)模塊中,，如果指定的文件夾或文件存在，F(xiàn)ileFolderExists返回True,。調(diào)用上述代碼的方... 用VBA判斷工作表是否存在問(wèn)題：用VBA判斷工作表是否存在 回答：下面的VBA代碼可以判斷當(dāng)前Excel工作簿中的某個(gè)工作表是否存在,，如果指定的工作表不存在，則以指定的工作表名新建一個(gè)工作表,，如果指定的工作表已存在,，則給出一個(gè)提示，并激活該工作表,。下例中指定的工作表標(biāo)簽為“一月”,，可根據(jù)實(shí)際進(jìn)行修改。 Sub IsSheetExist() Dim ws As Worksheet Dim sName As String sName = 一月 指定工作表 On Error Resume Next Set ws = Sheets(sName) If ws Is Nothing Th... 用VBA選擇上一個(gè)或下一個(gè)工作表問(wèn)題：用VBA選擇上一個(gè)或下一個(gè)工作表 回答：...,，第3,、12行代碼使用Worksheets對(duì)象的Count屬性取得工作表的數(shù)目,，第4行到第7行代碼根據(jù)Index屬性判斷活動(dòng)工作表是否是工作簿中的最后一張工作表,。如果活動(dòng)工作表不是最后一張工作表則激活活動(dòng)工作表的下一張工作表，否則激活第一張工作表,。 UpSheet過(guò)程選擇上一個(gè)工作表,，第13行到第16行代碼根據(jù)Index屬性判斷活動(dòng)工作表是否是工作簿中的第一張工作表,。如果活動(dòng)工作表不是... Excel2013函數(shù)教程IF判斷條件是否成立問(wèn)題：Excel2013函數(shù)教程IF判斷條件是否成立 回答：今天又來(lái)繼續(xù)我們的Excel2013函數(shù)系列教程，本次要講的是IF判斷函數(shù),，用來(lái)判斷條件是否成立,。下面我們還是通過(guò)實(shí)例來(lái)為大家進(jìn)行講解分析。 ①我們啟動(dòng)Excel2013,，打開我們準(zhǔn)備好的數(shù)據(jù)源,，進(jìn)行預(yù)算統(tǒng)計(jì)。 ②在單元格輸入=IF,，就會(huì)顯示出IF函數(shù)的相關(guān)參數(shù)介紹,，第一個(gè)參數(shù)是判斷條件，第二個(gè)是條件為真時(shí)的值,，第三個(gè)是條件為假時(shí)的值,。 ③填完公式，回車,，得到結(jié)果... ISFORMULA判斷單元格內(nèi)容是否為函數(shù)公式問(wèn)題：ISFORMULA判斷單元格內(nèi)容是否為函數(shù)公式 回答：...盡所能,，本次我們要來(lái)講解的是ISFORMULA信息類函數(shù)。 ①ISFORMULA是一個(gè)信息類的函數(shù),，主要用于判斷指定單元格內(nèi)容是否為公式,，是返回TRUE，不是則返回FALSE,。老規(guī)矩,，還是通過(guò)實(shí)例來(lái)為大家講解。 ②我們打開Excel2013,，可見C4單元格是SUM求和函數(shù),，對(duì)A4B4單元格進(jìn)行求和。 ③在任意一個(gè)單元格輸入函數(shù)公式：=ISFORMULA(C4),，判斷C4內(nèi)容是否為函數(shù)公式,。 ④理所當(dāng)然的返回TRUE... 用VBA轉(zhuǎn)化公式中區(qū)域的引用類型問(wèn)題：用VBA轉(zhuǎn)化公式中區(qū)域的引用類型 回答：..., _ xlA1, xlA1, xlRelRowAbsColumn) End If Next m End Sub 上述代碼先用HasFormula屬性判斷所選區(qū)域的各單元格中是否包含公式，然后用Application.ConvertFormula 方法對(duì)公式的引用類型進(jìn)行轉(zhuǎn)換,。其中第四個(gè)參數(shù)指定了所需轉(zhuǎn)換的類型： xlAbsolute 絕對(duì)行和絕對(duì)列 xlAbsRowRelColumn 絕對(duì)行和相對(duì)列 xlRelRowAbsColumn 相對(duì)行和絕對(duì)列 xlRelative 相對(duì)行... VBA關(guān)閉工作簿和退出Excel問(wèn)題：VBA關(guān)閉工作簿和退出Excel 回答：...ue End Sub將上述代碼中的“True”改為“False”,，則直接關(guān)閉工作簿而不保存。關(guān)閉所有打開的工作簿,，并提示是否保存：Sub CloseAllWorkbooks() On Error Resume Next Workbooks.Close End Sub退出Excel,，并提示對(duì)有更改的工作簿進(jìn)行保存：Sub QuitExcel() Application.Quit End Sub保存活動(dòng)工作簿并退出Excel：Sub SaveActiveWorkAndQuit() ActiveWorkbook.S... VBA刪除工作表中的重復(fù)行問(wèn)題：VBA刪除工作表中的重復(fù)行 回答：...如以A列為參考，工作表的第一行為標(biāo)題行,，數(shù)據(jù)從第二行開始,。 方法一：用工作表函數(shù)CountIf判斷該行是否重復(fù) Sub 刪除重復(fù)行1()Dim i As LongApplication.ScreenUpdating = FalseFor i = Range( A65536 ).End(xlUp).Row To 3 Step -1 If WorksheetFunction.CountIf(Range( A2:A & i), Cells(i, 1)) > 1 Then Cells(i, 1).EntireRow.delete End IfNextApplication.ScreenUpdating = TrueEnd Sub 方法二：先高級(jí)篩選，再刪除隱藏行 Sub 刪除重... Excel2007中快速判斷數(shù)字奇偶性問(wèn)題：Excel2007中快速判斷數(shù)字奇偶性 回答：雖然說(shuō)判斷一個(gè)數(shù)字是否為奇偶,，靠我們的眼力判斷并不是很難,，但是在Excel單元格中,，大量的數(shù)據(jù)，光靠眼力顯然不是合理的做法,。下面我教大家如何利用if和mod函數(shù)進(jìn)行處理,。 ①首先打開Excel2007表格，輸入一些數(shù)據(jù),，如下圖所示,，方便之后的講解。 ②單擊A4單元格,，輸入公式：=IF(MOD(A4,2)=0,"偶數(shù)","奇數(shù)") 然后回車,。 ③A4單元格顯示結(jié)果，為奇數(shù),，正確,。 ... 請(qǐng)問(wèn)在excel2010中如何判斷是否為文本希望最好有問(wèn)題：請(qǐng)問(wèn)在excel2010中如何判斷是否為文本希望最好有圖,，謝謝 回答：用ISTEXT函數(shù) 追問(wèn)： 謝謝... 電子表格中如何判斷A欄的值是否等于B欄的值問(wèn)題：電子表格中如何判斷A欄的值是否等于B欄的值 回答：一樓的只是單元格判斷吧,，整欄如何判斷呢？可以用：=IF(A:A=B:B,"TRUE","FALSE") 判斷區(qū)域中是否包含重復(fù)值的公式問(wèn)題：判斷區(qū)域中是否包含重復(fù)值的公式 回答：如果需要用公式來(lái)判斷某個(gè)區(qū)域中是否包含重復(fù)值,，可以用下面的數(shù)組公式,。假如要判斷的區(qū)域?yàn)镈1:G5,，在某個(gè)單元格中輸入數(shù)組公式： =MAX(COUNTIF(D1:G5,D1:G5))=1 公式輸入完畢按Ctrl＋Shift＋Enter結(jié)束，如果區(qū)域中有重復(fù)的內(nèi)容,，則公式返回FALSE,，如果區(qū)域中沒有重復(fù)內(nèi)容，則返回TRUE,。 公式說(shuō)明：本例在數(shù)組公式中COUNTIF函數(shù)的兩個(gè)參數(shù)都是同一區(qū)域,，這樣就可以求出區(qū)域中每... |
|
|
