关于点菜单汇总方面的求助

MrXU

VBA我是个小白，求哪位大师帮忙做个汇总。。。。。。。。





点击“结算”  已点的菜品名称和时间，自动填入到汇总工作表里。。。。。。。。。。。


一共是10个工作表，都要这种功能

学良

可参阅下贴：
https://club.excelhome.net/thread-910548-1-1.html
小型餐饮收款台.rar (408.88 KB, 下载次数: 20)

2024-4-2 12:11 上传

点击文件名下载附件

蓝桥玄霜

每个表格中需要删除重复的多选框控件，然后录入代码，关联按钮，执行即可。

MrXU

学良 发表于 2024-4-2 12:09
可参阅下贴：
https://club.excelhome.net/thread-910548-1-1.html

不行啊，数据库运行错误。。。。。。。

不过还是要感谢。。。。。。

zpy2

参与一下https://e.anyoupin.cn/EData/tree/t/php/menus/menu.php


//select * from menuSetup;
cli_add_php~～
echo '<a href="/EData/tree/t/php/menus/menu.php">手机菜单</a><hr>';
$sql="drop TABLE if exists menu;";
$r=$db->query($sql);
$t="create table menu (tableNo,food,food2,food3,food4,totalAmt,checked);";
$t0="create table menu (tableNo,";
for($i=0;$i<26;$i++){
$t0.='food'.$i.",";

}
$t0.="totalAmt,checked);";
$sql=$t0;
$r=$db->query($sql);

$sql="drop TABLE if exists menuSetup;";
$r=$db->query($sql);
$sql="create table menuSetup(required,placeholder,Label,Input,Field,A,B,C,D,E,F,G,H,I,J,K);";
$r=$db->query($sql);
$sql=<<<eof
insert into menuSetup (required,placeholder,Label,Input,Field,A,B,C,D,E,F,G,H,I,J,K) values(1,"桌号","桌号","select","tableName","1号桌","2号桌","3号桌","4号桌","5号桌","6号桌","7号桌","8号桌","9号桌","10号桌","11号桌");
eof;
$r=$db->query($sql);

$dish=<<<eof
宫保鸡丁        46.00
麻辣火锅        78.00
回锅肉        48.00
酸菜鱼        38.00
水煮肉片        58.00
糖醋里脊        56.00
酸辣汤        28.00
拔丝山药        32.00
清蒸鲈鱼        68.00
干煸豆角        32.00
地三鲜        32.00
尖椒干豆腐        28.00
梅菜扣肉        38.00
香辣虾        58.00
红烧肉        58.00
干锅菜花        30.00
蚂蚁上树        42.00
家常豆腐        32.00
葱爆羊肉        46.00
肉末茄子        32.00
东坡肉        48.00
麻辣鳕鱼        38.00
清蒸桂鱼        58.00
苹果醋        1.00
青岛纯生        2.00
白酒        3.00
eof;

$arr_dish=explode("\n",$dish);
foreach ($arr_dish as $k=>$vals){
$v=explode("\t",$vals)[0];
$p=explode("\t",$vals)[1];
$sql=<<<eof
insert into menuSetup (required,placeholder,Label,Input,Field) values(0,"订购数量","<div>$v <i class=""price food$k"" data-rowid=""food$k"">$p</i>元/份</div>","number2","food$k");
eof;
$r=$db->query($sql);
echo "$sql\n";
}


$sql=<<<eof
insert into menuSetup (required,placeholder,Label,Input,Field) values(1,"合计","金额合计","totalAmt","totalAmt");
eof;
$r=$db->query($sql);
echo '<a href="/EData/tree/t/php/menus/menu.php">手机菜单</a>';
$sql="select * from menuSetup";

$r=$db->query($sql);
$result=$r->fetchAll(PDO::FETCH_ASSOC);

dispTable($result);

die;
function dispTable($result){
$headers=array_keys($result[0]);
echo implode('|',$headers);
echo "\n";
foreach($result as $v){

echo implode('|',$v);
echo "\n";
}
echo "\n";

}
～;

MrXU

蓝桥玄霜 发表于 2024-4-2 13:12
每个表格中需要删除重复的多选框控件，然后录入代码，关联按钮，执行即可。

能把完成的Excel文件发上来吗？