各位大侠帮忙看一下，怎么回事啊？市电不稳，断电后就成这样了。
已有1个回答
内容为广告/垃圾，我要举报！
特聘专家具有协助内容审核的特权
举报后内容将不能在前台展示
错乱举报会导致该权利被剥夺
选择举报原因×
擅长领域：
进入BIOS 按F10，将BIOS恢复默认，拔掉硬盘和光驱，机箱前面板等数据连接，开机后关机，在逐一插上设备开机检测。
留下你的评论
微信公众账号ZOL问答堂
关注微信，随时随地解答您的疑惑
ZOL问答堂官方微博@ZOL问答堂
关注成功！该问题被回答后，将给您发送站内短信。
您也可以通过关注问答堂微信，及时获得您关注问题的回答。
微信关注问题方法“”查看: 240|回复: 7
各位大侠，请帮忙看一下这个课程表的事！谢谢了！
阅读权限20
在线时间 小时
各位大侠，我要根据“课程总表”和“教学分工”得出教师个人课表和班级课表，恳请各位大侠们帮帮忙哈！
09:48 上传
点击文件名下载附件
38.95 KB, 下载次数: 23
阅读权限50
在线时间 小时
早自习，政史，教师课表怎么排？
阅读权限50
在线时间 小时
第一问，班级课表
Sub kb()
& & Application.ScreenUpdating = False
& & Dim arr, brr, n%, i%, j%, r%, col%, d1, d2, k
& & Set d1 = CreateObject(&scripting.dictionary&) '记录总课表
& & Set d2 = CreateObject(&scripting.dictionary&) '记录教学分工
& & With Sheets(&总课表&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&For j = 3 To UBound(arr, 2)
& && && && &d1(arr(3, j) & &-& & arr(4, j) & &-& & arr(5, j) & &-& & &早自习&) = arr(6, j)
& && && && &For i = 7 To UBound(arr)
& && && && && & If Len(arr(i, 2)) Then d1(arr(3, j) & &-& & arr(4, j) & &-& & arr(5, j) & &-& & arr(i, 2)) = arr(i, j)
& && && && &Next
& && &&&Next j
& & End With
& & With Sheets(&教学分工&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&' n = 0
& && &&&For i = 4 To UBound(arr)
& && && && &For j = 2 To UBound(arr, 2)
& && && && && & If Len(arr(i, j)) Then d2(arr(2, j) & &-& & arr(3, j) & &-& & arr(i, 1)) = arr(i, j)
& && && && &Next j
& && &&&Next i
& & End With
& & With Sheets(&班级课表&)
& && &&&.Range(&D6:J11,D13:J16,D18:J23,D25:J32&) = &&
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&brr = .[A1].Resize(r, col)
& && &&&For i = 6 To UBound(brr) Step 2
& && && && &For j = 4 To UBound(brr, 2)
& && && && && & k = brr(5, j) & &-& & brr(3, 2) & &-& & brr(3, 3) & &-& & brr(i, 2)
& && && && && & If d1.exists(k) Then
& && && && && && &&&brr(i, j) = d1(k)
& && && && && && &&&brr(i + 1, j) = d2(brr(3, 2) & &-& & brr(3, 3) & &-& & brr(i, j))
& && && && && & End If
& && && && &Next
& && && && &Select Case i
& && && && &Case 10
& && && && && & i = 11
& && && && &Case 15
& && && && && & i = 16
& && && && &Case 22
& && && && && & i = 23
& && && && &End Select
& && &&&Next
& && &&&.[A1].Resize(r, col) = brr
& & End With
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
& & & & & & & &
抽空做了第二问，请测试。
Sub jskb() '教师个人课表
& & Application.ScreenUpdating = False
& & Dim arr, brr, i%, j%, r%, col%, d1, d2, d3, k, k1, temp, s
& & Set d1 = CreateObject(&scripting.dictionary&) '记录总课表
& & Set d2 = CreateObject(&scripting.dictionary&) '记录教学分工
& & With Sheets(&总课表&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&For j = 3 To UBound(arr, 2)
& && && && &d1(arr(4, j) & &-& & arr(5, j) & &-& & arr(6, j) & &-& & arr(3, j)) = &早自习&
& && && && &For i = 7 To UBound(arr)
& && && && && & If Len(arr(i, 2)) Then d1(arr(4, j) & &-& & arr(5, j) & &-& & arr(i, j) & &-& & arr(3, j) & &-& & arr(i, 2)) = arr(i, 2)
& && && && &Next
& && &&&Next j
& & End With
& & With Sheets(&教学分工&)
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&arr = .[A1].Resize(r, col)
& && &&&For i = 4 To UBound(arr)
& && && && &For j = 2 To UBound(arr, 2)
& && && && && & If Len(arr(i, j)) Then
& && && && && && &&&If Not d2.exists(arr(i, j)) Then Set d2(arr(i, j)) = CreateObject(&scripting.dictionary&)
& && && && && && &&&d2(arr(i, j))(arr(2, j) & &-& & arr(3, j) & &-& & arr(i, 1)) = &&
& && && && && & End If
& && && && &Next j
& && &&&Next i
& & End With
& & With Sheets(&个人课表&)
& && &&&.Range(&D6:J11,D13:J16,D18:J23,D25:J32&) = &&
& && &&&r = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
& && &&&col = .Cells.Find(&*&, Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
& && &&&brr = .[A1].Resize(r, col)
& && &&&Set d3 = CreateObject(&scripting.dictionary&)
& && &&&For i = 6 To UBound(brr)
& && && && &If Len(brr(i, 2)) Then d3(brr(i, 2)) = i
& && &&&Next
& && &&&js = brr(3, 2)
& && &&&temp = d2(js).keys
& && &&&For i = 0 To UBound(temp)
& && && && &For j = 4 To UBound(brr, 2)
& && && && && & k = Filter(d1.keys, temp(i) & &-& & brr(5, j))
& && && && && & If UBound(k) &= 0 Then
& && && && && && &&&s = Split(temp(i), &-&)
& && && && && && &&&For Each k1 In k
& && && && && && && && &brr(d3(d1(k1)), j) = s(2)
& && && && && && && && &brr(d3(d1(k1)) + 1, j) = s(0) & &年级& & s(1) & &班&
& && && && && && &&&Next
& && && && && & End If
& && && && &Next j
& && &&&Next i
& && &&&.[A1].Resize(r, col) = brr
& & End With
& & Set d1 = Nothing: Set d2 = Nothing: Set d3 = Nothing
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限50
在线时间 小时
附件。。。
(51.32 KB, 下载次数: 9)
15:22 上传
点击文件名下载附件
阅读权限20
在线时间 小时
早自习，政史，教师课表怎么排？
不好意思，我个把这个搞忘记了，政史可以不排给任何一个老师，因为那是公共的科目。
阅读权限50
在线时间 小时
不好意思，我个把这个搞忘记了，政史可以不排给任何一个老师，因为那是公共的科目。
修改作文课程的问题，详见附件。。
(50.91 KB, 下载次数: 18)
16:07 上传
点击文件名下载附件
阅读权限20
在线时间 小时
修改作文课程的问题，详见附件。。
太感谢您了！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师麻烦各位大侠们帮忙翻译一下这个情况说明 - 外贸英语 -
福步外贸论坛(FOB Business Forum) |中国第一外贸论坛
福步币 12 块
阅读权限 40
麻烦各位大侠们帮忙翻译一下这个情况说明
麻烦各位大侠们帮忙翻译一下，大概内容如下：
我司证明毛重为11445.6公斤的重量是正确的。由于工厂在称货物的实际重量的时候，工厂工人拿错了另一款产品去称重量，导致了提单和实际重量不符。由于我们的错误，给我们的客人和贵国海关造成了很多的麻烦，我们深表歉意！恳请贵国海关予以帮忙及早放行货物给我客人。感谢贵国海关的帮助和支持！
在以后的工作中我们会谨记这次的错误，提供更好的产品质量和最好的服务给您。
~~~~~~~~~~~~
可以多写点好话。。。
UID 1413130
阅读权限 40
我也期待有人翻译 顺便自己也学习下
福步币 12 块
阅读权限 40
有大侠们帮帮忙不。。。
外贸独行客
UID 857227
积分 48370
福步币 754 块
阅读权限 120
来自 江苏南通
情况说明-Explanation
我司证明毛重为11445.6公斤的重量是正确的。由于工厂在称货物的实际重量的时候，工厂工人拿错了另一款产品去称重量，导致了提单和实际重量不符。由于我们的错误，给我们的客人和贵国海关造成了很多的麻烦，我们深表歉意！
We hereby certify that the weight as 11445.6kgs is the correct figure.The discrepancy between the B/L and the actual Gross Weight was caused by the neglience of the workers in the factory,who weighed with the other model instead.
We are deeply sorry for the trouble for our customers and your customs due to our neglience.
恳请贵国海关予以帮忙及早放行货物给我客人。感谢贵国海关的帮助和支持！
We cordially hope that your customs could facilitate and release the goods to our customers at their earliest convenience.We would really appreciate your help and assistance in this matter.
在以后的工作中我们会谨记这次的错误，提供更好的产品质量和最好的服务给您。
Keeping in mind this mistake,we would be more careful in our future operations by providing better product and service
UID 1636465
阅读权限 40
我司证明毛重为11445.6公斤的重量是正确的。由于工厂在称货物的实际重量的时候，工厂工人拿错了另一款产品去称重量，导致了提单和实际重量不符。由于我们的错误，给我们的客人和贵国海关造成了很多的麻烦，我们深表歉意！恳请贵国海关予以帮忙及早放行货物给我客人。感谢贵国海关的帮助和支持！
在以后的工作中我们会谨记这次的错误，提供更好的产品质量和最好的服务给您。
Specification
Dear Sir/Madam,
We feel deeply sorry for caused trouble to you &it's customs.
Gross weight of the cargo&&11445.6 Kg that&&we had confirmed ,dueto&&our worker's misweight in products that caused different Gross weight&&with&&B/L.We would learn a lesson from this mistake,&provide more good quality products&better service in the near future.
we sincerely hope it's customs could release the cargo to our client ASAP.Thanks for your helping&supporting for us always!
我把有些顺序调整了 ，个人觉得逻辑有点不顺。见凉&&FYR
福步币 12 块
阅读权限 40
谢谢楼上的两位大侠们。小女子这厢有理了。。。
货到COLOMBO的，本来单单是一致的（毛重不是正确的，但是提单和PACKING LIST上的重量是做的一样的），但是客人一定要拿着正确毛重的PACKING LIST和提单（这个单子就不是一致的了）去提货。结果那边海关不放货。。。
外贸独行客
UID 857227
积分 48370
福步币 754 块
阅读权限 120
来自 江苏南通
客人是死脑筋啊。实际重量和估算重量有点差距，这在国际贸易中很正常的。只要做到单单一致就可以了。这个麻烦真是自找的，只有祝楼主和你的客人好运了。
当前时区 GMT+8, 现在时间是
Powered by D1scuz! && 2001-提问者：匿名 & 时间：
是男的都喜欢美脚，百度搜索 美脚秀 美足无限啊，
百度搜索 6居网 让你更懂生活哦~~~(影视的美)
(落木萧萧下)
第三方登录：