Ładny brzuch
Witam!
Ostatnio w pracy dostaem do przetumaczenia kod z visual basica na java. problem jest w tym e zbytnio nie znam si na nim i mam problemy z niektrymi funkcjami. Oto fragment tego kodu
Krotek = Application.CountA(Range("A:A")) ActiveCell.Offset(0, 4).FormulaR1C1 = "=-SUM(R[1]C:R[" & Krotek & "]C)" ActiveCell.Offset(0, 5).FormulaR1C1 = "=-SUM(R[1]C:R[" & Krotek & "]C)" ActiveCell.Offset(0, 6).FormulaR1C1 = "=-SUM(R[1]C:R[" & Krotek & "]C)" ' ActiveCell.Offset(0, 10).FormulaR1C1 = _ "=IF(-SUM(R[1]C:R[" & Krotek & "]C)=0,"""",""BD"")" ' K - BDNE ActiveCell.Offset(1, 4).FormulaR1C1 = _ "=IF(AND(ISBLANK(RC[-3]),TYPE(RC[-2])=2,TYPE(RC[- 1])=2),-1,"""")" ' ActiveCell.Offset(1, 5).FormulaR1C1 = _ "=IF(AND(ISNUMBER(RC[-4]),TYPE(RC[-3])=2,ISNUMBER(RC[ -2])),-1,"""")" ' ActiveCell.Offset(1, 6).FormulaR1C1 = "=IF(COUNTBLANK(RC[-5]:RC[-3])=3,"""",-1)" ' ("K2") ActiveCell.Offset(1, 10).FormulaR1C1 = _ "=IF(COUNTBLANK(RC[-9]:RC[-7])=3,"""",IF(ISBLANK( RC[-7]),-1, IF(RC[-6]=RC[-5],-1,"""")))" '
Prosz was o pomoc. Chodzi mi gwnie o to co to robi i skd bierze dane.
Z gry dzikuje za pomoc
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Ostatnio w pracy dostaem do przetumaczenia kod z visual basica na java. problem jest w tym e zbytnio nie znam si na nim i mam problemy z niektrymi funkcjami. Oto fragment tego kodu
Krotek = Application.CountA(Range("A:A")) ActiveCell.Offset(0, 4).FormulaR1C1 = "=-SUM(R[1]C:R[" & Krotek & "]C)" ActiveCell.Offset(0, 5).FormulaR1C1 = "=-SUM(R[1]C:R[" & Krotek & "]C)" ActiveCell.Offset(0, 6).FormulaR1C1 = "=-SUM(R[1]C:R[" & Krotek & "]C)" ' ActiveCell.Offset(0, 10).FormulaR1C1 = _ "=IF(-SUM(R[1]C:R[" & Krotek & "]C)=0,"""",""BD"")" ' K - BDNE ActiveCell.Offset(1, 4).FormulaR1C1 = _ "=IF(AND(ISBLANK(RC[-3]),TYPE(RC[-2])=2,TYPE(RC[- 1])=2),-1,"""")" ' ActiveCell.Offset(1, 5).FormulaR1C1 = _ "=IF(AND(ISNUMBER(RC[-4]),TYPE(RC[-3])=2,ISNUMBER(RC[ -2])),-1,"""")" ' ActiveCell.Offset(1, 6).FormulaR1C1 = "=IF(COUNTBLANK(RC[-5]:RC[-3])=3,"""",-1)" ' ("K2") ActiveCell.Offset(1, 10).FormulaR1C1 = _ "=IF(COUNTBLANK(RC[-9]:RC[-7])=3,"""",IF(ISBLANK( RC[-7]),-1, IF(RC[-6]=RC[-5],-1,"""")))" '
Prosz was o pomoc. Chodzi mi gwnie o to co to robi i skd bierze dane.
Z gry dzikuje za pomoc