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

นี่จะแปลกไปหน่อยฉันมีคอลัมน์ 750 แถวที่มีจำนวนเต็มตั้งแต่ 1-10 ฉันพยายามที่จะดูข้อมูลว่าเป็น ชุดลำดับ 3 แถว และ นับ จำนวนการเกิดขึ้นสำหรับแต่ละลำดับตามที่แสดงในภาพหน้าจอต่อไปนี้: พยายามค้นหาและนับ 3 ลำดับเซลล์ใน excel คอลัมน์ A คือคอลัมน์สังเกตโดยมีค่าจำนวนเต็มตั้งแต่ 1-3 คอลัมน์ I เป็นรายการของลำดับ 3 ค่าที่สังเกตทั้งหมดและคอลัมน์ J คือจำนวนครั้งที่เกิดขึ้นในแต่ละลำดับนั้น คอลัมน์ A คือคอลัมน์สังเกตที่มีค่าจำนวนเต็มตั้งแต่ 1-3 สำหรับตัวอย่างนี้ คอลัมน์ I เป็นรายการของลำดับ 3 ค่าที่สังเกตทั้งหมดและคอลัมน์ J คือจำนวนครั้งที่เกิดขึ้นในแต่ละลำดับนั้น คอลัมน์ I แสดงเป็นค่าข้อความ แต่จะดีกว่าถ้าให้คอลัมน์หนึ่งเปลี่ยนเป็น 3 คอลัมน์แยกกัน หนึ่งค่าสำหรับแต่ละค่าในลำดับ ฉันพยายามทำสิ่งนี้เป็นขั้นตอนในการสร้างเมทริกซ์การสังเกตของห่วงโซ่มาร์คอฟอันดับที่ 2 ในรุ่นก่อนหน้าฉันต้องการเมทริกซ์ลำดับแรกเท่านั้นซึ่งประกอบด้วย 2 ค่าลำดับ …

1 microsoft-excel  microsoft-excel-2010  worksheet-function  vba 

ฉันมีแบบสอบถามที่ผู้ใช้กรอก มันอยู่ใน Excel หลังจากผู้ใช้กรอกแบบสอบถามฉันต้องการสร้างเอกสาร Word ที่มีคำตอบ ตัวอย่างเช่น "คำตอบสำหรับคำถามของคุณคือ [คำตอบจากเซลล์แบบสอบถาม Excel A49]" ฉันได้เห็นว่าสิ่งนี้เป็นไปได้ด้วย Sharepoint อย่างไรก็ตามฉันไม่มี Sharepoint ฉันกำลังทำงานกับ MS Office 2010 ฉันยังมี Visual Studio Express 2010 อะไรคือวิธีที่ดีที่สุดในการบรรลุเป้าหมายข้างต้น ขอบคุณ

1 microsoft-excel  microsoft-word  vba  microsoft-office-2010  sharepoint-2010 

ฉันกำลังทำ vba ขนาดเล็กใน excel ซึ่งเปลี่ยนค่าของเซลล์ว่างเป็น "ไม่มีข้อมูล" นี่คือสิ่งที่ฉันทำไปแล้ว: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo hell: Application.Goto reference:="DBtable" Selection.SpecialCells(xlCellTypeBlanks).Select Selection.SpecialCells(xlCellTypeBlanks).Value = "NO DATA" 'I DON'T KNOW WHAT TO PUT HERE hell: End Sub สิ่งที่ฉันต้องการจะเกิดขึ้นคือเมื่อใดก็ตามที่ฉันเพิ่มระเบียนใหม่ในตารางของฉันและมีเซลล์ว่างเปล่ามันควรจะเปลี่ยนทันทีด้วยค่า "ไม่มีข้อมูล" จากนั้นการเลือกควรอยู่ในเซลล์ถัดไปของช่วง เซลล์ฉันแก้ไข สิ่งที่เกิดขึ้นตอนนี้คือหลังจากที่มันเปลี่ยนเซลล์ว่างเปล่าเป็นค่าที่ฉันต้องการมันจะเลือกทั้งตาราง โปรดช่วยฉันด้วย!

1 microsoft-excel-2010  vba 

ฉันมีแผ่นงานที่มีห้าคอลัมน์ A-E และเกือบ 10,000 แถว ฉันต้องเรียงลำดับทุก 7 แถวจนถึงจุดสิ้นสุดของแผ่นงานโดยใช้ข้อมูลในคอลัมน์ C รหัสต่อไปนี้ทำงานสำหรับช่วง A1: E7 สามารถแก้ไขรหัสนี้เพื่อจัดเรียงทุก 7 แถวโดยใช้ข้อมูลที่เกี่ยวข้องในคอลัมน์ C ภายในช่วงของพวกเขาหรือไม่เช่น C8: C14 สำหรับช่วง A8: E14 และ C15: C21 สำหรับช่วง A15: E21 .. ฯลฯ ? Sub sort_7_rows() Range("A1:E7").Select ActiveWorkbook.Worksheets("sequencing (2)").Sort.SortFields.Clear ActiveWorkbook.Worksheets("sequencing (2)").Sort.SortFields.Add Key:=Range( _ "C1:C7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("sequencing (2)").Sort .SetRange …

1 microsoft-excel  vba 

ฉันมีรหัสต่อไปนี้: Sub CopyTest() Dim skuRow As Integer Dim curSku As String Dim numSkus As Integer Dim impType As String Dim copyRows As Integer Dim supAcc As String Dim arr_TotalList As Variant Dim locs As String Dim colorMax As String With ActiveSheet copyRows = 3 impType = "-LE" supAcc = "" …

1 microsoft-excel  vba 

ฉันพยายามใช้รหัสเพื่อค้นหาเวิร์กบุคทั้งหมดและหากพบว่ามีการสืบค้นอะไรให้คัดลอกและวางทั้งแถวไปยังกล่องรายการในฟอร์มผู้ใช้ เราสั่งซื้อชิ้นส่วนจำนวนมากและเราต้องการค้นหาเพื่อดูว่าชิ้นส่วนนั้นได้รับคำสั่งครั้งสุดท้าย การค้นหานี้จะดึงข้อมูลนั้นขึ้นมา รหัสด้านล่างคือการให้ข้อความแสดงข้อผิดพลาดและฉันไม่สามารถหาสาเหตุ OBJECT DOESN’T SUPPORT THIS PROPERTY OR METHOD ส่วนที่เป็นตัวหนากำลังถูกเน้นเมื่อฉันเรียกใช้รหัส ใครช่วยได้บ้าง Option Explicit Private Sub CommandButton1_Click() Dim wb1 As Workbook, wb2 As Workbook Set wb1 = ThisWorkbook Dim ws As Worksheet Dim sPath As String Dim sfile As String Dim C As Range sPath = "\\192.168.1.4\ET_Documents\Shared Documents\Inventory Transactions\TRANSACTIONS …

1 microsoft-excel  vba 

ฉันสร้าง Excel UDF เพื่อค้นหา n การเกิดขึ้นของค่าในช่วง UDF ขึ้นอยู่กับหนึ่งใน http://www.ozgrid.com/Excel/find-nth.htm : Function Nth_Occurrence(range_look As Range, find_it As String, _ occurrence As Long, offset_row As Long, offset_col As Long) Dim lCount As Long Dim rFound As Range Set rFound = range_look.Cells(1, 1) For lCount = 1 To occurrence Set rFound = range_look.Find(find_it, …

1 microsoft-excel  microsoft-excel-2010  vba 

ฉันมีคอลัมน์ข้อความที่อักขระบางตัว (ไม่ใช่เซลล์) เป็นแบบอักษรสีแดง มีวิธีใดบ้างที่จะเน้นเซลล์ที่มีอักขระสีแดงผ่านการจัดรูปแบบตามเงื่อนไข โซลูชั่น VBA ก็ใช้ได้เช่นกัน

1 microsoft-excel  microsoft-excel-2007  vba  conditional-formatting 

ฉันมีเอกสารคำจำนวนมากที่ฉันแปลงจาก HTML ซึ่งดูโอเคในเค้าโครงของเว็บ แต่เมื่อเราเปลี่ยนเป็นรูปแบบการพิมพ์พวกเขาจะถูกตัดออกทางด้านขวามือ ฉันมีมาโครที่ใช้ในการแปลงจาก html เป็น docx แล้วบันทึกรูปภาพที่เชื่อมโยงไว้ในบรรทัด แต่ฉันไม่แน่ใจว่าจะบังคับตารางให้พอดีกับความกว้างของหน้าเว็บได้อย่างไร

1 vba  microsoft-word-2010 

ฉันรู้ว่าฉันสามารถทำต่อไปนี้เพื่อเรียกใช้รหัสเมื่อสไลด์ถูกเปลี่ยนในโหมดการนำเสนอ - Sub OnSlideShowPageChange() Dim i As Integer i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition If i <> 1 Then Exit Sub 'Code that should happen when slide changes goes here End Sub ฉันต้องการทราบว่าเป็นไปได้หรือไม่ที่จะทำเช่นนี้เมื่อมีการเปลี่ยนแปลงสไลด์นอกสไลด์โชว์เช่นการนำเสนออยู่ในโหมดแก้ไขดังนั้นหากฉันคลิกที่สไลด์อื่นมันจะเรียกใช้โค้ด เป็นไปได้ไหม ขอบคุณล่วงหน้า!

1 vba  macros  microsoft-powerpoint 

ฉันมักจะสงสัยว่าฟังก์ชั่นบางอย่างที่ฉันใช้ใน excel ถูกเขียนอย่างไรและคิดว่ามันจะช่วยได้บ้างในบางครั้งเพื่อดูว่ามันเสร็จสิ้นแล้ว ไม่มีใครรู้ว่ามีตัวอย่าง vba ที่ทำหน้าที่บางอย่างของฟังก์ชั่นเหล่านี้ซ้ำหรือไม่? vlookup, hlookup, dsum, index จริง ๆ หรือส่วนใหญ่น่าสนใจ

1 microsoft-excel  worksheet-function  vba 

ฉันมีคอลัมน์ข้อมูลในรูปแบบทั่วไปดังต่อไปนี้: 2000 1000 500 300 1500 c a 1000 1500 1250 3000 4000 6500 3000 1000 1000 1000 f 4500 1500 3000 3000 2000 ไม่มีรูปแบบสำหรับจำนวนรายการในแต่ละ 'บล็อก' จำนวนช่องว่างระหว่างบล็อกหรือจำนวนอักขระที่ไม่ใช่ตัวเลขระหว่างบล็อก สิ่งที่ฉันต้องการจะทำคือรวมผลรวมของแต่ละบล็อกและวางผลลัพธ์ไว้ข้างบล็อกนั้น มีวิธีการทำเช่นนี้โดยไม่ใช้ VBA หรือไม่?

1 microsoft-excel  worksheet-function  vba 

ฉันมีรายการไฟล์ที่มีข้อมูลราคาผลิตภัณฑ์อยู่ฉันได้แปลงไฟล์ pdf เป็นรูปแบบ xlsx ในขณะที่การแปลงข้อมูลไม่ได้ปันส่วนข้อมูลราคาจะกระจัดกระจายในคอลัมน์ J, K, L มีแมโครใน excel ที่สามารถดูสัญลักษณ์ $ ได้ และจัดเรียงข้อมูลราคาทั้งหมดลงในคอลัมน์ K

1 microsoft-excel  vba 

ฉันไม่รู้ว่านี่เป็นการเปลี่ยนแปลงในรุ่นหรือไม่ แต่ในปี 2546 สิ่งนี้เคยทำงานใน Access VBA: Dim xlSheet As Excel.Worksheet xlSheet.Range("RangeName").Value = 100 ก่อนหน้านี้ฉันไม่จำเป็นต้องระบุแผ่นงานเพราะ "RangeName" ไม่ซ้ำกัน Excel 2007 ไม่พิจารณาว่าเป็นค่าที่ไม่ซ้ำใครและต้องการให้มีการระบุเวิร์กชีทหรือไม่ [แก้ไข] นี่คือข้อผิดพลาดใน Access 2007 VBA: "ข้อผิดพลาด 1004 (วิธี 'ช่วง' ของวัตถุ '_Worksheet' ล้มเหลว" กำลังพยายามหลีกเลี่ยงการตั้งชื่อแผ่นงาน ฉันใช้ตัวจัดการชื่อใน Excel ชื่อไม่ซ้ำกันและขอบเขตเป็นสมุดงาน เมื่อฉันพยายามแก้ไขชื่อมันไม่อนุญาตให้เปลี่ยนขอบเขต หมายเหตุ: เวิร์กบุ๊กนี้เป็นเทมเพลตที่อนุญาตให้มาโครและชื่อต่างๆยุ่งเหยิง

1 microsoft-excel-2007  microsoft-access  vba 

ฉันใหม่สำหรับ VBA อย่างแน่นอน ฉันพยายามสร้างงานนำเสนอที่เนื้อหาของแต่ละเซลล์ (เป็นแถว) สร้างสไลด์ใหม่ในงานนำเสนอ ฉันค้นหารหัส แต่หาได้เฉพาะ Windows เท่านั้น เมื่อฉันพยายามใช้รหัสบน Mac - OS X 10.7.4 (Excel 2011) ฉันได้รับข้อผิดพลาด ต้องการความช่วยเหลือ :)! รหัสและข้อผิดพลาดมีดังนี้: รหัส: รหัส แปลงเป็นข้อความ: Sub OneSlideForEachRowCell() 'Open the Excel workbook. Change the filename here. Dim OWB As New Excel.Workbook Set OWB = Excel.Application.Workbooks.Open{":Users:vikshek:Desktop:list.xlsx") 'Grab the first Worksheet in the …

1 microsoft-excel  mac  vba  microsoft-powerpoint