excel - VB计数器，从单元格中获取数据

Question

我有问题，在这条线上我没有得到正确的价值

<pre>strASCX = strASCX & "<br><font color=red> " & Sheets(1).Cells(i, j).Value & " </font>"<code>

这应该在我的 excel 日历中选择正确的日期（右单元格），但它没有。这是我的日历图片的一部分 在此处输入图像描述 单词“value”在哪里，旁边的单元格中带有“X”。我应该从这个单元格中获得价值。例如（看图片）单元格 B5 我应该得到“value3”

    For i = 3 To 33
    '---Rows---

    For j = 1 To 12
        '---Columns---

        For leto = year(Date) - 1 To year(Date) + 1
            mesec = (j * 3) - 1
            strASCX = strASCX & "if (e.Day.Date.Year == " & leto & "){if (e.Day.Date.Month == " & j & "){if (e.Day.Date.Day ==" & i - 2 & "){aLabel.Text ="""

                    If Sheets(1).Cells(2, mesec + 1) = leto Then
                         If Trim(Sheets(1).Cells(i, mesec)) <> vbNullString Then
                            status = UCase(Trim(Sheets(1).Cells(i, mesec + 1)))
                            Select Case status
                                Case Is = "X"
                                    strASCX = strASCX & "<br><font color=red> " & Sheets(1).Cells(i, j).Value & " </font>"
                            End Select
                         End If
                    End If

            strASCX = strASCX & """;" & "aLabel.ForeColor = System.Drawing.ColorTranslator.FromHtml(""#ccccc2""); e.Cell.Controls.Add(aLabel); }} }" & vbNewLine
        Next leto
    Next j
Next i

标签： excelvb.net