VBA simpel formel i cell problem

Trädvy Permalänk
Medlem
Registrerad
Feb 2012

VBA simpel formel i cell problem

EDIT: förtydligande i nedanstående inlägg

Luddig logik (hur man pastar in en formel)

=IF(CurrentWeek()=29;-29;29) , där TRUE är (negativ)intCurrentWeek och FALSE är intCurrentWeek

Sub sompastarinicellen()
intCurrentWeek = DatePart("ww", Date, vbMonday, vbFirstFourDays)
Range("A1").Formula = "=IF(CurrentWeek()=intCurrentWeek*2-intCurrentWeek;intCurrentWeek)"
End Sub

Public Function CurrentWeek()
' Current ISO week
CurrentWeek = DatePart("ww", Date, vbMonday, vbFirstFourDays) '
End Function

Trädvy Permalänk
Medlem
Registrerad
Aug 2014

Jag förstår inte om detta är en fråga eller ett tips (?)

Z170-WS | Intel 6700K | Dominator 2x16GB 3000MHz | Samsung 950 Pro 2x512GB NVMe RAID0 | MSI 1080 Gaming X | Seasonic 520 Fanless | 7260 HMV-AC | Fractal Design Define R4 | Noctua NH-U12S@475RPM | Noctua P12@475RPM x5
Supermicro X10SLL-F | Supermicro 1U SC813MT-300C | XEON E3 1231v3 | Hynix 4x8GB ECC | 840 EVO | WD 6x 4TB RE
x220 | IPS | i7 | SSD | 9-cell

Trädvy Permalänk
Medlem
Registrerad
Feb 2012
Skrivet av ggwp:

Jag förstår inte om detta är en fråga eller ett tips (?)

Ja jag var väldigt luddig såg jag nu,

Det är en fråga, jag lyckas inte via VBA pasta in en formel

Range("cell").Formula = "=IF(CurrentWeek()=intCurrentWeek;intCurrentWeek*2-intCurrentWeek;intCurrentWeek)"
Formeln i cellen ska motsvara (där 39 är dagens vecka) =IF(CurrentWeek()=39;-39;39)

intCurrentWeek sätts i Sub
CurrentWeek() är en public function
båda synns I fg inlägg, har testat med alla möjliga konbinationer och """ fnuttar