多行添加到表

时间:2019-02-04 04:39:43

标签: excel vba

data entry user form

文档编号应为自动序列号(例如XX-0000001)

以下文本框值应每次添加自动序列号(请参见上述示例)

textbox3,textbox4,textbox5,textbox6,textbox7,textbox8(应为第一行)textbox9,textbox10,textbox11,textbox12,textbox13,textbox14(应为第二行)

如果第二行文本框的值为空(不应将其添加到表“ Table9”中)

这是我目前使用的代码。

library(tidyverse)

df %>%
  gather(cat, value, -userID) %>%
  count(userID, cat, value) %>%
  unite(cat, c(cat, value)) %>%
  spread(cat, n, fill = 0)

#  userID cat1_f cat1_m cat1_u cat2_1 cat2_2 cat2_3
#  <fct>   <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
#1  a          2      1      1      2      0      2
#2  b          0      2      1      1      2      0

1 个答案:

答案 0 :(得分:0)

如果您将表单“表格”中的文本框重命名为(例如)“ PPE_CD_1”,“ PPE_CD_2”等,“ QTY_1”,“ QTY_2”等,则可以使用循环来填充表格,例如使用Me .Controls(“ PPE_”&x).Value,其中x是您的循环计数器。

仅供参考,您还应该重命名所有其他非表文本框,以为其赋予有意义的名称。

大纲代码:

  <Host name="example.com"  appBase="webapps" unpackWARs="true" autoDeploy="true">
      <Alias>www.example2.com</Alias>

      <Valve className="org.apache.catalina.valves.AccessLogValve" directory="logs"
       prefix="example_com_app_access_log" suffix=".txt"
       pattern="%h %l %u %t %r %s %b" />

     <Context path="" docBase="/opt/tomcat/webapps/example_com"
       debug="0" reloadable="true"/>
  </Host>