«vba» etiketlenmiş sorular

Makro kullanmadan veri içeren hücrelere bir formül uygulamak mümkün müdür? Örneğin, kullanıcı bir hücreye "A3 A6 A8" girer ve daha sonra bu referans değerlerini alan ve ayırıcı olarak "/" kullanarak bunları birleştiren UDF "CONCATENATEREF ()" uygular. Çok kullanıcı dostu olmak ve makroları etkinleştirmek için kurulum yapmak zorunda olmam gerek. Bunun …

microsoft-excel  vba  macros 

Üzerinde çalıştığım bir Excel Makrosunun son adımı ile ilgili yardım almaya çalışıyorum. İki farklı çalışma kitabındaki sayfalardan veri alan bir Makro belirledim ve bunları üçüncü bir çalışma kitabına yapıştıracağım. Üçüncü çalışma kitabı, her biri farklı bir ad ve numara ile tanımlanan 15 farklı çalışana atfedilen 15 dosyadan biridir. Macro'yu 15 …

microsoft-excel  vba  macros  editing 

Aşağıdakine benzer bir kod kullanıyorum ve onu 'bir komut dosyası çalıştır' e-posta kuralları içinde etkinleştirerek ve belirli e-postalar gelirken ekleri kaydetmek için iyi çalışıyor. ve sonuncusu üzerine iniyor. Kod içinde yalnızca "x" ekini kaydetmesini söyleyebileceğim bir yol var mı, yani. sadece ilk ek mi, yoksa sadece dördüncü ek, vb. * …

email  vba  vbscript  microsoft-outlook-2016 

Bir çalışma sayfasında seçilen aralığın içeriğini temizleyen bir makroya sahibim, daha sonra alt hücreleri yukarı kaydırıyor. Aralığın seçilmesinden ve ActiveRow'u Sütuna kadar silmekten kaçınmanın bir yolu olup olmadığını merak ediyorum $GZ. İşte makrom: Sub deleteRows() Application.ScreenUpdating = False For i = 1 To 1000 Selection.ClearContents Selection = Selection.Offset(1, 0).Value Selection.Offset(1, …

microsoft-excel  vba 

Excel'de bir çalışma sayfası için herhangi bir gösterge olup olmadığını merak ediyordum. Diyelim ki bir noktada Çalışma Sayfası Adı'nı kullanan VBA kodum var, sonra çalışma sayfasının adını değiştiriyorum, bu yüzden kodumda da bu adı değiştirmem gerekiyor. Bir çalışma sayfası için gösterge kullanmanın bir yolu var, bu yüzden kodumda bu adı …

microsoft-excel  worksheet-function  vba 

"Günlük" olacak bir VBA rutini yazmak istiyorum yeni bir sayfa oluştur bu yeni sayfaya , bugünün tarihine göre (örneğin, ) DD.MM.YY biçiminde bir ad verin (örneğin baştaki sıfırlarla 25.07.18) sayfamın A ve B sütunlarındaki değerleri DataInputyeni sayfaya kopyalayın . "Günlük" ile ne demek istiyorum? Geçerli saat = veya> günün belirli …

microsoft-excel  worksheet-function  vba 

Fare işaretçisini bir pivot tablodaki verilerin üzerine getirdiğimde, satır ve sütun etiketlerinin ne olduğunu (pivot öğelerinin adları) görüntüler. Onları nasıl çıkarabilirim, böylece daha sonra bir kodda kullanabilirim (belirli bir değere başvurmak istediğimde). Dahası, verilerin sütun ve satır numarasını alabilir miyim? ben

microsoft-excel  vba 

Bir .csv dosyası ve bir ana excel dosyası var. Ana dosya bir tablo içeriyor ve .csv dosyasındaki verileri otomatik olarak mevcut tabloya eklemek istiyorum. Veriler aynı başlıklara ve sütun sırasına sahiptir. Tablo para cezasından sonra bir sonraki satıra .csv verilerini ekleyen son derece hızlı bir VBA var, ancak veriler tablonun …

microsoft-excel  vba  csv  microsoft-excel-2016  visual-basic 

Bu, her hücreye sütundan aşağı doğru yazdırmak istediğim formül =VLOOKUP(CONCATENATE(E2,C2), WORKABILITY_INDEX!$A$1:$B$82, 2, FALSE) Aşağıdaki gibi bir ifade kullanıyorum: Last = Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 2 Step -1 If (Cells(i, "A").Value) <> "" Then Cells(i, "L").Formula = "=VLookup(Concatenate(RC[-8],RC[-10]), ""WORKABILITY_INDEX!$A$1:$B$82"", 2, False)" End If Next i

microsoft-excel  vba 

Bir şekle bağlı aşağıdaki makroya sahibim (sanki bir düğmeymiş gibi): Sub circulo() Dim SSLeft As Double Dim SSTop As Double Dim SSWidth As Double Dim SSHeight As Double Dim shpOval As Shape Dim SS As Range Dim SS1 As String Set SS = SS1 Set SS1 = Range("AO24").Text SSLeft = …

microsoft-excel  vba  macros 

Takip koduna sahibim: Sub TestNA2() IsThisNA = Sheets("sheet1").Range("D:D").Select 'Sheets("sheet1").Range("E:E").Select Range("E2").Formula = "=IF(ISNA(D1),""Delete"","""")" Range("E2").AutoFill Destination:=Range("E:E"), Type:=xlFillDefault 'ActiveCell.Value = "=IF(ISNA(D:D), ""Delete"","""")" 'ActiveCell.Value = IsThisNA 'MsgBox IsNA End Sub ancak bu satırda hata veriyor: ActiveCell.Value = IfNa (D6, "Sil") D6 #NA ise, gerçekleşmesini istediğim, E6 hücresindeki "delete" kelimesini koymak. Birisi bu kod ile …

microsoft-excel  vba 

Bir grup eğri çizginin eksen rengini değiştirmeme izin veren aşağıdaki kodu (ofis belgelerinde) buldum : Sub AxisColor() 'The sparkline group Dim oSparkGroup As SparklineGroup 'Loop through the sparkline groups on the sheet For Each oSparkGroup In Range("A2:C2").SparklineGroups 'Show the axis oSparkGroup.Axes.Horizontal.Axis.Visible = True 'Set the color of the axis to …

microsoft-excel  vba  formatting  microsoft-excel-2013 

Excel'in GER sürümünde oluşturulan VBA makrolarını kullanarak bir sorunum var. Bu makro, pivot tablo öğesini "Alle" için test ediyor, ancak birisi dosyayı EN sürümünde açtığında, pivot tablo öğesi açıkça "Alle" değil, "Tüm" konumunda, makro çalışıyor. Aynı sorun "hakaret" - "boş" ya da "# N / A" - "#NV" vb. İle …

microsoft-excel  microsoft-excel-2007  vba  macros 

Dim lastC As Long lastC = wb2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'highlighted in debug SourceRange.Copy wb2.Worksheets(2).Cells(1, lastC + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Yukarıdaki kod, sahip olduğum kod, daha büyük bir makronun parçası. Çalıştırdığımda, bana çalışma zamanı hatası 1004 uygulama tanımlı veya nesne tanımlı hata veriyor. Daha büyük kodun bir parçası …

microsoft-excel  microsoft-excel-2010  microsoft-excel-2007  vba  macros 

Şimdi bu kodla Aktif Hücrenin tepesinden çalışıyorum: Selection.EndKey Unit:=wdLine Selection.TypeText Text:=", " Selection.Delete Unit:=wdCharacter, Count:=1 Aktif hücrenin sonuna kadar döngü yapmam gerekiyor. Öneriler? Öğelerin listesini alan ve virgül ve boşlukla ayırarak hepsini aynı satıra yerleştiren bir makro oluşturmaya çalışıyorum. Örnek 1 2 3 için 1, 2, 3 Her madde farklı …

vba  microsoft-word-2010