零散與匯總學習記錄

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

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