Ячейка Array + Loop для месяца и года

Question

Я пытаюсь создать массив с месяцами Jan-Dec, и я хочу также иметь год, чтобы он выглядел как «J14» на январь. Я хочу, чтобы это увеличило все, с чем я столкнулся, до следующего месяца, и после 12 пробегов год изменится на «J15». Я буду запускать этот макрос один раз в месяц, поэтому я хочу месяц и увеличиваться на 1 каждый раз, когда я его запускаю. Ниже то, что я до сих пор, пожалуйста, извините, если это не так, как я никогда не использовал массивы, прежде чем

Sub test() 
Dim MyArray(1 To 12) As Integer 

MyArray(1) = J 
MyArray(2) = F 
MyArray(3) = M 
MyArray(4) = A 
MyArray(5) = M 
MyArray(6) = J 
MyArray(7) = J 
MyArray(8) = A 
MyArray(9) = S 
MyArray(10) = O 
MyArray(11) = N 
MyArray(12) = D 

For i = 1 To UBound(MyArray) 

Cells(i, 1).Value = MyArray(i) 

Next i 

End Sub 

Answer 1

Вот как это будет работать, если вы просто написать «14» в диапазоне A13. Но это действительно хорошая идея, что вы изучаете типы данных, как предложил первый комментарий. Более того, есть много способов сделать это. Но все-таки:

Option Explicit 

Sub test() 
    Dim i     As Long 
    Dim MyArray(1 To 12) As String 

    MyArray(1) = "J" 
    MyArray(2) = "F" 
    MyArray(3) = "M" 
    MyArray(4) = "A" 
    MyArray(5) = "M" 
    MyArray(6) = "J" 
    MyArray(7) = "J" 
    MyArray(8) = "A" 
    MyArray(9) = "S" 
    MyArray(10) = "O" 
    MyArray(11) = "N" 
    MyArray(12) = "D" 

    For i = 1 To UBound(MyArray) 

     Cells(i, 1).Value = MyArray(i) & Cells(13, 1) 

    Next i 

    Cells(13, 1) = Cells(13, 1) + 1 

End Sub 

Answer 2

Попробуйте

Sub test() 
Dim MyArray(1 To 12) As String '<--| you need to deal with "strings" (like "J"), not "integers" 

MyArray(1) = "J" '<--| strings must be enclosed in quotation marks 
MyArray(2) = "F" 
MyArray(3) = "M" 
MyArray(4) = "A" 
MyArray(5) = "M" 
MyArray(6) = "J" 
MyArray(7) = "J" 
MyArray(8) = "A" 
MyArray(9) = "S" 
MyArray(10) = "O" 
MyArray(11) = "N" 
MyArray(12) = "D" 

For j= 14 To 20 '<--| set here your year range 
    For i = 1 To UBound(MyArray)  
    Cells(i, 15-j).Value = MyArray(i) & CStr(j") '<--| concatenate the month string with the year number 
    Next i 
Next j 

End Sub 

Answer 3

char monthArray[] = {"J","F","M","A","M","J","J","A","S","O","N","D"}; 

for (int j = 00 ; j < 20 ; j ++) { 
    for (int i = 0; i < 12, i++) { 
     char month = monthArray[i]; 
     String myNotation = "month" + j; 
    } 
}