Question

希望你能帮助我。我有一个数量清单，如：

我需要灰色行中上面所有内容的自动填充。

到目前为止我的代码：

Dim source As Range
Dim iCol As Long
Dim nCol As Long
Dim Cell As Range

Set source = Selection

For iCol = 1 To 5

With source.Columns(iCol)

If Cell.Font.Bold = False Then
i = i + Cell.Value

Else: Cell.Value = i
i = 0


End If

End With
Next iCol

提前致谢！

Answer 1

我相信你之后的目标

<?xml version="1.0" encoding="UTF-8"?>
<web-app xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://xmlns.jcp.org/xml/ns/javaee" xsi:schemaLocation="http://xmlns.jcp.org/xml/ns/javaee http://xmlns.jcp.org/xml/ns/javaee/web-app_3_1.xsd" id="WebApp_ID" version="3.1">
  <display-name>HelloForm</display-name>

  <servlet>
     <servlet-name>HelloForm</servlet-name>
     <servlet-class>
org.springframework.web.servlet.DispatcherServlet
</servlet-class>
     <load-on-startup>1</load-on-startup>
  </servlet>

  <servlet-mapping>
    <servlet-name>HelloForm</servlet-name>
    <url-pattern>/</url-pattern>
  </servlet-mapping>

</web-app>

循环虽然列创建总和

1 个答案: