คำถามติดแท็ก macros

ฉันเป็นมือใหม่ที่นี่และติดภารกิจที่ต้องทำซ้ำในอีกไม่กี่วันข้างหน้า ฉันขอขอบคุณที่คุณช่วยเหลือ ขอบคุณมากล่วงหน้า ติดตั้ง: มี 2 ​​แผ่น บน Sheet1 มีข้อมูลมากมาย บน Sheet2 มีตารางข้อมูลที่มีรูปแบบเดียวกับใน sheet1 แต่ตารางนั้นว่างเปล่า . การกระทำที่ต้องการ: ไปที่แถวแรกของตารางข้อมูลใน Sheet1 หากค่าของคอลัมน์ขวาสุดของแถวนั้นคือ "1" ให้คัดลอกทั้งแถว ถ้าไม่ไปที่แถวถัดไปและตรวจสอบอีกครั้ง ทำซ้ำจนกว่าจะมีการคัดลอกบางสิ่ง ไปที่แถวแรกที่ว่างเปล่าของตารางข้อมูลใน Sheet2 วางค่าของสิ่งที่เพิ่งถูกคัดลอก กลับไปที่ 1 แต่เริ่มจากจุดที่คุณค้างไว้ ทำซ้ำทั้งหมดจนกระทั่งข้อมูลทั้งหมดที่มีเงื่อนไขดังกล่าวใน Sheet1 ถูกคัดลอกไปยัง Sheet2 ความคืบหน้า: สคริปต์มาโครที่บันทึกไว้ที่ฉันได้รับเมื่อฉันพยายามเลียนแบบข้างต้น Sub Macro7() ' ' Macro7 Macro ' Range("E11:R11").Select Selection.Copy Sheets("v4 r2").Select Range("E11").Select Selection.PasteSpecial Paste:=xlValues, …

microsoft-excel  macros 

ฉันกำลังทำงานกับมาโครที่ยาวมากสำหรับงานของฉันและฉันเพิ่งจะเสร็จ แต่นี่เป็นส่วนสุดท้ายและไม่ว่าฉันจะทำอะไรฉันก็ดูเหมือนจะไม่สามารถหาทางแก้ไขได้ ใน PivotTable นี้ฉันต้องมี "ผู้จัดการ" เป็นคอลัมน์และทุกอย่าง (เช่นทุกเดือน) ในส่วนค่าโดยมี "ค่า" เป็นแถว หลังจากทำการแก้ไขมันดูเหมือนว่าฟิลด์ทั้งหมดที่ลงทะเบียนเป็น CubeFields แทนที่จะเป็น PivotFields เมื่อฉันเรียกใช้งานนี้ทันทีที่ได้รับการ. Omentation = xlDataField มันจะพ่น "ข้อผิดพลาดรันไทม์ 5 ... การเรียกหรือการโต้แย้งของกระบวนการไม่ถูกต้อง" ฉันต้องตรวจสอบให้แน่ใจว่า DataFields เหล่านั้นมีค่าเฉลี่ยและอยู่ในรูปแบบตัวเลขเฉพาะ ไม่มีอะไรที่ฉันทำงานและคำแนะนำ / แก้ไข / การแก้ปัญหาใด ๆ ที่จะได้รับการชื่นชมอย่างมาก! ด้านล่างคือมาโครและลิงค์ดาวน์โหลดไปยังไฟล์เพื่อทำการแก้ไข Dim pvtTable As PivotTable Dim cubField As CubeField Dim i As Long Dim cubName As …

microsoft-excel  vba  macros  microsoft-excel-2016  pivot-table 

Range ("D5").Select ActiveCell.Resize(1, 25).Select SendKeys ("%y1"), True 'Alt+Y1 SendKeys ("%y2"), True 'Alt+Y2, Activates third part add-in SendKeys ("~"), True 'Enter, initiates the merge add-in function Range ("D6").Select ActiveCell.Resize(1, 25).Select SendKeys ("%y1"), True 'Alt+Y1 SendKeys ("%y2"), True 'Alt+Y2, Activates third part add-in SendKeys ("~"), True 'Enter, initiates the merge add-in function …

microsoft-excel  vba  macros 

ฉันกำลังสูญเสียงาน excel ที่ซับซ้อนอย่างสมบูรณ์ แต่ฉันกำลังเผชิญกับสถานการณ์ต่อไปนี้ ฉันมีรายการสินค้าคงคลังจำนวนมากที่มีความยาวหลากหลาย แต่ฉันต้องแปลงความยาวที่แน่นอน (เป็นค่าตัวเลข) เป็นค่าหมวดหมู่ (เช่นระหว่าง 10-15 ถึง 16-20 ฯลฯ ) ข้อมูลความยาวทั้งหมดอยู่ในคอลัมน์เดียวและฉันต้องการเขียนข้อมูลไปยังคอลัมน์ที่สอง ฉันสามารถสร้างสูตรที่ซับซ้อนและซับซ้อนหาก แต่หลังจากนั้น - ความเข้าใจของฉันคือสิ่งนี้จะต้องเสียภาษีมากในระบบและมันก็ไม่ใช่วิธีที่มีประสิทธิภาพในการทำสิ่งนี้ บางคนสามารถให้คำแนะนำได้บ้าง? ฉันใช้ Excel 2013 ในกรณีที่สร้างความแตกต่างให้กับไวยากรณ์ แก้ไข: หมวดหมู่เฉพาะที่ฉันมีมีดังต่อไปนี้ (เป็นฟุต แต่เพียงปรับไม่ได้) 10-15, 16-20, 21-25, 26-30, 31-40, 41+ ฉันต้องการมีหมวดหมู่ N / A สำหรับรายการที่ไม่ถูกต้อง (เช่นไม่มีการป้อนข้อมูล) ข้อมูลทั้งหมดจะเป็นจำนวนเต็ม

microsoft-excel  macros 

ฉันมีปัญหากับมาโคร รหัสทำงานเมื่อฉันใช้ในแมโครใหม่ (ฉันสร้างแมโครใหม่ใน Book1 และวางรหัสที่นั่น) และเปิดใช้งานแมโครจาก Book1 นี้ สิ่งต่าง ๆ เริ่มยากขึ้นเมื่อฉันแก้ไขโดยใช้ Add-in (กลุ่มใหม่ใน Ribbon ชื่อ "MyOwnGroup" มีปุ่มเดียว "MyOwnButton") และฉันต้องการคำแนะนำจากคุณที่นี่จริงๆ ดังนั้นสิ่งที่ฉันพยายามทำและเกิดอะไรขึ้น 1) มันทำงานอย่างไรโดยไม่มีการเพิ่มเข้า ฉันเลือกช่วงใน Book2 กด ALT + F8 และเพียงเปิดใช้งานมาโครของ Book1 ช่วงที่เลือกจะถูกคัดลอกไปยัง Book1 ภายในมาโคร Book1 คือ ThisWorkBook และ Book2 เป็น ActiveWorkBook ฉันหมายถึงมาโครที่มีการอ้างอิงที่แตกต่างกัน 2: ThisWorkBook (ที่รหัสคือ) และ ActiveWorkbook เมื่อฉันคัดลอกช่วง 2) ด้วยการเพิ่มในสิ่งต่าง ๆ …

macros 

ฉันต้องการวิธีแยกหน้าเอกสารคำที่มีคำว่า "ออนไลน์" ออกจากหน้าเว็บที่ไม่มี ฉันไม่สามารถหาวิธีที่จะทำสิ่งนี้ได้อย่างมีประสิทธิภาพโดยไม่ต้องค้นหาคำและคัดลอกและวางแต่ละหน้าเฉพาะที่มีคำในเอกสารอื่น ฉันต้องการมาโครที่สามารถทำสิ่งนี้ได้หรืออาจจะง่ายกว่าที่ฉันคิดไม่ออก

macros  extract  copy-paste 

ฉันอยู่ในอุตสาหกรรมที่ควรเก็บอีเมลทั้งหมดของฉันไว้ แต่มันจะอยู่ในรายการที่ถูกลบของฉันเมื่อฉันลงมือทำ กำลังใช้ Outlook 2016 ด้วย Exchange บริษัท ของเรากำลังใช้นโยบายเพื่อล้างโฟลเดอร์รายการที่ถูกลบในตอนท้ายของแต่ละวันซึ่งเป็นการพิสูจน์ปัญหา มีมาโครไหมที่ฉันสามารถสร้างปุ่มลบที่ remaps เพื่อย้ายรายการที่เลือกไปยังโฟลเดอร์ที่ต้องการ เช่น "ลบรายการ 2.0" ข้อเสนอแนะใด ๆ และยินดีต้อนรับขอขอบคุณ!

keyboard  microsoft-outlook  macros  keymap 

ฉันกำลังพยายามเซ็นแมโครด้วยตนเองที่ฉันเขียนไว้สำหรับ Outlook และการค้นหาของฉันนำไปสู่ SelfCert.exe ฉันวิ่งSelfCert.exeและสามารถสร้างใบรับรองที่ลงชื่อด้วยตนเองและภายใน Outlook ฉันสามารถเลือกใบรับรองนั้นสำหรับลงชื่อแมโครของฉัน ปัญหาคือทุกครั้งที่ฉันรีสตาร์ท Outlook มาโครของฉันจะถูกปิดการใช้งาน ฉันคิดว่าพวกเขาถูกปิดใช้งานเนื่องจากใบรับรองที่เซ็นชื่อด้วยตนเองที่ฉันสร้างไม่ได้ติดตั้งในผู้ออกใบรับรองหลักที่เชื่อถือได้ของฉัน การตั้งค่าแมโครของฉันภายใต้ศูนย์ความเชื่อถือมีการกำหนดให้Notifications for all macrosซึ่งดูเหมือนที่เหมาะสมที่สุดเพราะเพียงตัวเลือกอื่น ๆและDisable all macros without notification Notifications for digitally signed macros, all other macros disabledEnable all macros ฉันทำทุกวันเพื่อทำงานกับบัญชีที่ไม่ใช่ผู้ดูแลระบบและลงชื่อเข้าใช้บัญชีผู้ดูแลระบบท้องถิ่นเมื่อจำเป็นเท่านั้นดังนั้นใบรับรองที่ลงชื่อด้วยตนเองจะเชื่อมโยงกับผู้ใช้ที่ไม่ใช่ผู้ดูแลระบบของฉัน ถ้าฉันเรียกใช้SelfCert.exeในฐานะผู้ดูแลระบบฉันสามารถสร้างใบรับรองที่เซ็นชื่อด้วยตนเองที่เชื่อมโยงกับผู้ใช้ที่เป็นผู้ดูแลระบบของฉัน แต่ฉันไม่สามารถเลือกใบรับรองนั้นเพื่อเซ็นแมโครของฉันใน Outlook ได้เพราะฉันใช้ Outlook เป็นบัญชีที่ไม่ใช่ผู้ดูแลระบบปกติ หากฉันใช้ mmc เพื่อจัดการใบรับรองฉันจะเห็นเฉพาะใบรับรองที่สร้างโดยผู้ใช้ที่เป็นผู้ดูแลระบบภายใต้Certificates - Current User-> Personal-> Certificatesและฉันไม่สามารถดูวิธีการเข้าถึงใบรับรองที่สร้างด้วยบัญชีที่ไม่ใช่ผู้ดูแลระบบของฉันเพราะฉันไม่สามารถใช้ mmc ด้วย บัญชีผู้ดูแลระบบที่ไม่ใช่ของฉัน ฉันจะรับใบรับรองที่ลงชื่อด้วยตนเองนั้นสร้างโดยใช้บัญชีที่ไม่ใช่ผู้ดูแลระบบของฉันติดตั้งไว้ในผู้ออกใบรับรองหลักที่เชื่อถือได้ของฉันได้อย่างไรเพื่อให้ฉันสามารถลงชื่อในแมโคร …

microsoft-outlook  microsoft-office  macros  trusted-root-certificates 

ฉันกำลังพยายามสร้างแม่แบบสำหรับเมทริกซ์การวิเคราะห์ความเสี่ยง ฉันมี 3 รายการแบบหล่นลงใน 3 คอลัมน์: Column A Called "Risk Severity" with values (ACCEPTABLE, TOLERABLE,UNDESIRABLE,INTOLERABLE). Column B called "Risk Likelihood" with values (IMPROBABLE,POSSIBLE,PROBABLE) และสุดท้ายของฉัน column C is a drop down with "Risk Level" with values (LOW,MEDIUM,HIGH,EXTREME). สิ่งที่ฉันต้องการขึ้นอยู่กับการเลือกที่ผู้ใช้ทำในคอลัมน์ A "ความรุนแรงของความเสี่ยง" และคอลัมน์ B "โอกาสในการเสี่ยง" เพื่อเปลี่ยนค่าในคอลัมน์ C แบบเลื่อนลง สำหรับเช่น If A = Acceptable …

microsoft-excel  macros  dropdownlist 

สคริปต์ / มาโคร / กฎที่แยกวิเคราะห์หัวเรื่องสามารถสร้างกฎใหม่ที่จะย้ายอีเมลที่ตามมาด้วยสตริงการแจงผ่าน "หัวเรื่องมี" ไปยังโฟลเดอร์ที่มีอยู่ได้หรือไม่ ฉันพยายามอย่างยิ่งที่จะสร้างกฎโดยอัตโนมัติในมุมมอง ฉันไม่พบการอ้างอิงที่ดีหรือรายการการกระทำที่สามารถรู้ได้ว่าเป็นไปได้หรือไม่ คู่มือใด ๆ ในทิศทางที่ถูกต้องจะได้รับการชื่นชม

microsoft-outlook  macros  rules 

ฉันกำลังพยายามค้นหาคอลัมน์ดัชนีสำหรับคอลัมน์ที่มีประชากรล่าสุดสำหรับแถวที่เฉพาะเจาะจงและเพื่อจุดประสงค์เดียวกันฉันพยายามเขียนฟังก์ชันใน LibreOffice ฉันต้องบอกว่าฉันเป็นมือใหม่ในการเขียนแมโครโดยเฉพาะอย่างยิ่ง LibreOffice ตั้งแต่ฉันมาจากพื้นหลังของ Excel แม้ว่าฉันจะพยายามเขียนฟังก์ชั่นด้วยความช่วยเหลือจากฟอรั่ม แต่ฉันไม่สามารถแก้ไขฟังก์ชั่นสำหรับคอลัมน์ได้อย่างสมบูรณ์นี่คือลิงค์ไปยังฟังก์ชั่นดั้งเดิมเพื่อค้นหาแถวสุดท้าย: https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=10817 ความช่วยเหลือจะได้รับการชื่นชมถ้ามีคนสามารถช่วยฉันค้นหาข้อผิดพลาดในฟังก์ชั่นปัญหาดูเหมือนว่าจะอยู่ในส่วนของดัชนีคอลัมน์เท่านั้น Function LastColumnIndex (InformedRow, Optional InformedSheet) as long 'this function returns the index of the last column with data in a row 'it returns -1 if the whole row is empty Dim oSheet As Object, C as Long Dim oColumn As …

macros  openoffice  libreoffice 

ฉันกำลังเขียนฟังก์ชันแมโครใน Excel เพื่อจัดระเบียบชุดข้อมูลการขายรายเดือน รูปแบบดั้งเดิมใช้ 6 แถวต่อรายการและตารางที่จัดระเบียบใช้เพียง 1 จำนวนการเปลี่ยนแปลงของยอดขายทุกเดือนดังนั้นฉันต้องคิดหาวิธีในการระบุจำนวนรายการขายที่มีเพื่อให้ฉันรู้ว่าจะขยาย สูตร ในตอนท้ายของข้อมูลดิบจะปรากฏคำว่า "SIGNED:" ในคอลัมน์ที่สองเสมอดังนั้นฉันจึงใช้ฟังก์ชันทางอ้อมและการจับคู่เพื่อกำหนดว่าจะเติมสูตรได้ไกลแค่ไหน รหัสที่ฉันใช้มีลักษณะดังนี้: Application.Goto Reference:= _ "INDIRECT(""T"" & (MATCH(""SIGNED:"",RawData!C2:C2,0)-3)/6+1)" Range("T2", Selection).Select Selection.FillDown และใช้งานได้ดีในตอนแรกยกเว้นว่าบางครั้งข้อมูลดิบไม่ได้ใช้ 6 แถวเพราะบางครั้งฟังก์ชั่นการจับคู่กับอินพุตด้านบนจะไม่ส่งคืนจำนวนเต็ม ดังนั้นฉันจึงลองใช้ฟังก์ชั่นเพดานรอบฟังก์ชั่นการจับคู่เพื่อรับประกันว่าฉันจะได้จำนวนเต็มและคิดว่ามันจะโอเคถ้ามันปิดหนึ่งหรือสองเพราะมันจัดการได้ง่าย ๆ ด้วยตนเอง สิ่งที่ฉันเขียนมีลักษณะเช่นนี้: Application.Goto Reference:= _ "INDIRECT(""T"" & Ceiling((MATCH(""SIGNED:"",RawData!C[-20],0)-3)/6+1),1))" Range("A2", Selection).Select Selection.FillDown ตอนนี้ฉันได้รับข้อผิดพลาดและฉันไม่สามารถหาสาเหตุได้ ต้องทำอย่างไรกับรูปแบบของตัวเลขที่ส่งคืนโดยฟังก์ชันเพดานหรือไม่ ฉันจะขอขอบคุณอย่างมากสำหรับความช่วยเหลือใด ๆ ในการแก้ปัญหาหรืออาจเป็นแนวทางที่แตกต่างในการค้นหาจำนวนรายการขาย ขอบคุณ!

microsoft-excel  macros 

ฉันสร้างช่วงที่ตั้งชื่อซึ่งเป็นผลมาจากฟังก์ชั่นการกำหนดผู้ใช้ สมมติว่าความโกรธของฉันมีชื่อว่าListและมีสามรายการถ้าฉันเลือกสามเซลล์และป้อน=ListและกดCtrl+ Shift+ Enterฉันได้รับสามรายการในเซลล์ ... ดังนั้นทุกอย่างดูดี หากฉันพยายามใช้ช่วงเป็นแหล่งตรวจสอบความถูกต้องของข้อมูล (เป็นรายการ) ฉันจะได้รับ "แหล่งที่มาปัจจุบันประเมินข้อผิดพลาด" นี่เป็นข้อ จำกัด ของ Excel หรือไม่ หากไม่ใช่สิ่งผิดปกติและฉันจะทำอย่างไร ฟังก์ชั่น: Public Function testarrayreturn() As Variant Dim Arr(2) As String Arr(0) = "a" Arr(1) = "b" Arr(2) = "c" testarrayreturn = Application.Transpose(Arr) End Function ช่วงที่มีชื่อถูกกำหนดให้เป็น testarrayreturn()

microsoft-excel  worksheet-function  macros  data-validation 

ฉันมีปัญหามากมายในการพยายามคิดออก นี่คือเค้าโครงของฉัน: อย่างที่คุณเห็นฉันมี 2 ปุ่ม สิ่งที่ฉันต้องการให้แต่ละปุ่มทำคือ: ทุกครั้งที่ฉันคลิกYESมันจะแทรก a ลงYในเซลล์ในช่วงที่ระบุ หากฉันคลิกYESอีกครั้งระบบจะแทรกYเซลล์ในเซลล์ถัดไปโดยอัตโนมัติภายใต้เซลล์ก่อนหน้าในคอลัมน์เดียวกัน ถ้าผมคลิกมันก็จะยังคงลงคอลัมน์และแทรกNON วิธีทำให้เอาต์พุตของปุ่มให้ใช้เซลล์ฟรีถัดไปเสมอ

microsoft-excel  vba  macros 

ฉันกำลังพยายามสร้างแมโครที่ให้ฉันเปลี่ยนข้อมูลที่ฉันได้รับจากลูกค้าเป็นข้อมูลที่ฉันสามารถนำเข้าสู่ระบบได้ ข้อมูลที่ฉันได้รับอยู่ในรูปแบบ: ฉันจะทำสิ่งนี้ผ่าน VBA Macro ได้อย่างไร ดังนั้นควรอ่านข้อมูลจากนั้นสร้างแผ่นงานใหม่พร้อมสำเนาของข้อมูลในรูปแบบที่ฉันสามารถใช้ได้ แบบนี้:

microsoft-excel  microsoft-excel-2010  vba  macros