零散與匯總學(xué)習(xí)記錄

在工作表中可以直接用vlookup完成，如果非得vba，vba中也可以調(diào)用工作表SubWithSheets("sheet2")Forc=5To100Cells(14,c)=Application.WorksheetFunction.VLookup(Cells(10,c),Sheets("sheet1").Range("a:b"),2,0)EndEndActiveSheet.Cells(2,1).Formula=二、電子表格，另存在宏編輯器里的ThisWorkBookPrivateSubworkbook_BeforeSave(ByValSaveAsUIAsBoolean,CancelAsDimresponseAsIfSaveAsUI=TrueresponseMsgBox("該工作簿不允許用“另存為”來(lái)保存，&你要用原工作簿名稱(chēng)來(lái)保存嗎？",vbQuestion+vbOKCancel)Cancel=(response=vbCancel)IfCancel=FalseThenMe.SaveCancel=TrueEndIfEndSub三、使用剪切功能：不影響其它工作代碼如下：到ThisWorkBook代碼區(qū)（在office2003正常，在office等版本設(shè)置可能有所不同PrivateSubWorkbook_Activate()（激活）時(shí)，相應(yīng)地禁mandBars(1).Controls(2).Controls(3).EnabledmandBars("cell").Controls(1).Enabled='禁用鍵盤(pán)"Ctrl+x",恢復(fù)方法:Application.OnKey"^x"Application.OnKey"^x",""Application.CellDragAndDropFalseEndPrivateSubWorkbook_BeforeClose(CancelAsBoolean)End

mandBars(1).Controls(2).Controls(3).EnabledmandBars("cell").Controls(1).Enabled=TrueApplication.OnKey"^x"Application.CellDragAndDrop=PrivateSubWorkbook_Deactivate()

mandBars(1).Controls(2).Controls(3).Enabled=mandBars("cell").Controls(1).Enabled=TrueEnd

Application.OnKey"^x"Application.CellDragAndDrop=TruePrivateSubWorkbook_Open() '禁用菜單欄"剪切",里面的序號(hào)代表位置,232003XP mandBars(1).Controls(2).Controls(3).Enabled '禁用右鍵中的"剪切",序號(hào)1代表第一個(gè)選擇,2代表(這是 mandBars("cell").Controls(1).Enabled=False '禁用鍵盤(pán)"Ctrl+x",恢復(fù)方法:Application.OnKey"^x" Application.OnKey"^x", Application.CellDragAndDrop=FalseEndSub'四、application.' 百科 IfMsgBox("文件已存在,是否替換原文件vbYesNovbQuestion提示vbYes Kill .range("a1")返回的是B4單元格，這樣的處理是為了應(yīng)對(duì)選擇對(duì)象是多單元格 等同PrivateSub As 舉例：PrivateSubWorksheet_BeforeDoubleClick(ByValAsRange,CancelAsPublicsubworkbook等等，固定名稱(chēng)，固定功能1subgototabtabuserform1.showUnload.userform好像就可以直接退出；或者在窗體中me.hide就可以退出來(lái)了sub便在某個(gè)程序中直接寫(xiě)上自己取的名字就可以直接跳轉(zhuǎn)。實(shí)例見(jiàn)“固定資產(chǎn)流向管如py(參數(shù))直接調(diào)用；舉例如我找的拼音轉(zhuǎn)首字母公式x=msgbox("內(nèi)容",vbokonly,"標(biāo)題")此時(shí)X值就只有yes.。,"舉的例子DimstrmsgAsstrmsg=InputBox("所輸入備忘將保存并可查看，方便追蹤固定資產(chǎn)的流向","請(qǐng)輸入新備忘")XMsgBox(strmsgvbYesNo,請(qǐng)確認(rèn)")IfX=vbYesThenRange("M"&.Row)=strmsgEndIf'“首先對(duì)EXCEL，并定義一個(gè)EXCEL型的變量，假如為AA,則AA.Selection.PasteSpecialPaste:=xlPasteValues,AA.Operation:=xlNone,SkipBlanks:=False,AA.Application.CutCopyMode=Falsecombobox下拉選項(xiàng)設(shè)置及調(diào)用方法有待整理：1listfillrangeA1:A6000ComboBox1.List=Sheet2.Range("A1:A20").Value ComboBox1.List=Array("入庫(kù)","領(lǐng)用")或DimarrAsVariantDimcellAsarrSheets("數(shù)據(jù)庫(kù) boBox2.List 在相應(yīng)窗體中用PrivateSubUserForm_Initialize() 舉例如下（PrivateSubUserForm_Initialize()ComboBox1.ListArray("入庫(kù)領(lǐng)用")DimarrAsVariantDimcellAsboBox2.List boBox2.List End3、逐項(xiàng)輸入法 ComboBox控件，Style0、1、2。PrivateSub ‘即可以為所有的控件賦Combo1.AddItem""Combo1.AddItem"Combo2.AddItem""Combo2.AddItem"Combo3.AddItem""Combo3.AddItem"End（二）Click事件等調(diào)用列有框的方法，非常好用，但現(xiàn)在沒(méi)有時(shí)間整理：PrivateSubSelectCaseCombo1.Text Case""MsgBox"-----中國(guó)的首都"Case""MsgBox"------不夜城"Case"杭州"MsgBox"杭 Case西安MsgBox"西 EndSelectEndSubPrivateSubIfCombo1.index=2ThenLabel1.Visible=True ‘indextextEndSub例三：for循環(huán)來(lái)簡(jiǎn)單點(diǎn)嗎SubFori=1ToWithMe.Controls("ComboBox"&.AddItem.AddItem.AddItem0.5EndWithEndsubSubFori=1ToWithUserForm1.Controls("Combobox"&.AddItem.AddItem.AddItem0.5EndWithEndworksheet中的Subcombobox()Fori=1ToWithActiveSheet.OLEObjects("ComboBox"& .AddItem.AddItem .AddItem0.5EndWithEndSub1、外觀的style默認(rèn)設(shè)置為0-fmstyleDropdownList此時(shí)的復(fù)合框可以輸入任何值更改設(shè)置成2-fmstyleDropdownList 2、數(shù)據(jù)的Liststyle默認(rèn)設(shè)置為0-fmListStylePlain 更改設(shè)置成1-fmListStyleOption此時(shí)的下拉菜單多了滑塊和圈點(diǎn)1、vbListBox 3、VB：組合框 StyleComboBoxStyle屬件與ListBoxStyle值01態(tài)。增加Hght2 textbox如何自動(dòng)換行MultiLine=ScrollBars–Range Setect=Application.Intersect(,Range("A:L,N:o"))sub2()Union(Columns(2Columns(8)).SelectEndSubPrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValAsRange) 置所有工作表都單選,ByValShAsObject使全部工作表起作用'If.Cells.Count>1Then.Cells(1).Select'IfInStr(1,Cells(.Row,13),"確認(rèn)")> 'IfUserName<>"管理員"Or"固產(chǎn)"AndInStr(1,Cells(.Row,1),"轉(zhuǎn)出"Or"損毀"Or作廢")>0andInStr(1,Cells(.Row,13),"確認(rèn)")>0Then'Cells(.Row,13).Select'如果不是管理員等，普通科室一旦確認(rèn)轉(zhuǎn)出或損毀作廢則不能再更改內(nèi)容，也，Setect=Application.Intersect(, '范圍設(shè)置,修改a1:e5就可以IfNotectIsNothingIfect.Cells.Count>1Then '或者像一樣ExitSubEndIfSettar=Iftar psw=MsgBox("對(duì)不起，為了防止誤操作，本區(qū)域修改",vbYes,"溫馨提示")Range("M"&tar.Row).Select EndIfEndIfEndPrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValAsRange) 置所有工作表都單選,ByValShAsObject使全部工作表起作用Setect=Application.Intersect(, '范圍設(shè)置,修改a1:e5就可以IfNotectIsNothingIfect.Cells.Count>1Then '或者像一樣ExitSubEndIfIfNotSh.Name匯總ThenSettar=ect.Cells(1)IfRange("A"&tar.Row)<>""Then psw=MsgBox("對(duì)不起，為了防止誤操作，本區(qū)域修改",vbYes,"溫馨提示")Range("M"&tar.Row).Select EndSettar=IfInStr(1,Range("M&tar.Row確認(rèn)0Then如果單元格在范圍內(nèi)且單元格不為空IfRange("A"&tar.Row)<>""Thenpsw=MsgBox("對(duì)不起，為了防止誤操作，本區(qū)域修改",vbYes,"溫馨提示")Range("M"&tar.Row).Select EndEndIfEndIfEndIfEndSub十六、instrinstrrevVB還VBA。1InStr([start，]string1,string2[,表達(dá)式表達(dá)式InStr([起始，]要查找的字符串，從第幾個(gè)字符開(kāi)始[，匹配模式參start可選參數(shù)。為數(shù)值表達(dá)式，設(shè)置每次搜索的起點(diǎn)。如果省略，將從第一個(gè)字符的位startNullcomparestartstring1string2compare可選參數(shù)。指定字符串比較。如果compare是Null，將發(fā)生錯(cuò)誤。如果省略compare，OptionCompare的設(shè)置將決定比較的類(lèi)型。Compare常 描 OptionCompare pare2 StartString2String10String1String2NullNullString1String2示InStr?DimSearchString,SearchChar,1SearchString '被搜索的字符串SearchChar '"P"456 符開(kāi)始，以文本比較的方式找起。返回值為6（小寫(xiě)'pPMyPos=Instr(4,SearchString,SearchChar,

'9（'小寫(xiě)p和大寫(xiě)P在二進(jìn)制比較下是不一樣的。MyPos=Instr(1,SearchString,SearchChar,MyPosInstr(SearchString, 9MyPosInstr(1,SearchString, 0十六、雙擊單元格打開(kāi)一個(gè)文件，或應(yīng)用程序等待整理 PrivateSubWorkbook_SheetBeforeDoubleClick(ByValShAsObject,ByValAsRange,CancelAsBoolean)'S"mspaint"&EndS"c:\windows\notepad.exe",vb用法二用法二 若不成功，則會(huì)返回0。部 描 必要參數(shù)。Variant(String)，要執(zhí)行的程序名，以及任何必需參數(shù)或命令行變量，可能還包 或文件夾，以及驅(qū)動(dòng)器可選參數(shù)。Variant(IntegerWindowstyle如果windowstyle省略，則程序是以具有焦點(diǎn)的最小化窗口來(lái)執(zhí)windowstyle命名參數(shù)有以下這些值： 值描述 0 1VbMinimizedFocus2VbizedFocus3窗口是一個(gè)具有焦點(diǎn)的最大化窗口 4VbMinimizedNoFocus6如果S函數(shù)成功地執(zhí)行了所要執(zhí)行的文件，則它會(huì)返回程序的任務(wù)ID。任務(wù)ID是一個(gè)唯一的