社会科技共享教室

起订: 1	供货总量:
发货期限: 自买家付款之日起天内发货	所在地: 广东广州市
有效期至：长期有效	品牌：

详情介绍

社会科技共享教室并非我司的一个独立部门, 你们可以想像这只是我司的图书室 - 是网上的一种, 亦都是资料性质的一种, 具开放特质, 此处不时会由软件编程部放置一些已开发/已执行的部分产品服务结果, 旨在促进社会繁荣。

社会科技共享教室

工业需要自动化生产, 机器需要自动地自我检测输入输出, 而工商业的活动均需要程式报表自动分析数据去判断公司金钱生意活动的成效, 方便规划资源, 其实如果程式只供自己公司机构使用, 是可无需花费额外金钱地简单到只使用本身Excel 或 Word的VBA去达成银码/数字/资料自动化(省时精确)的梦想。

Excel VBA

Actually, programming software like Accounting Software or Point-Of-Sale system has their internal database. How to use Excel to roughly simulate Database? database has many tables inside, Excel workbook include many work sheets, if you know how to manipulate ( add / open / close / delete) the external worksheets automatically, you can retrieve the wanted datum & eliminate the unwanted datum easily.

以下列举出部分开发例句:-

Allow user to input their wanted value / money amount (see picture 2):

e.g. Range("A8").Value = inputbox("Which value you want to input? For example, 1682", "Free For Demo To Our Society")

picture2

In order to have abovesaid input box, the above coding example need to be modified, can you guess where should be modified ?

Add/open the wanted worksheet :

e.g. Workbooks.Open Filename:="C:\Excel\Sheet4.XLS"

In order to make the captured display simple, we haven't executed the above coding example

Allow user to input their wanted value & then all the negative numbers are colorized automatically (see picture 3):

e.g.
Sub inputdemo()
Range("A8").Value = inputbox("Which value you want to input? For example, 1688", "Free For Demo To Our Society")
Range("A1").Select
Do While Not IsEmpty(ActiveCell.Offset(row_, col_).Value)
Do While Not IsEmpty(ActiveCell.Offset(row_, col_).Value)
If ActiveCell.Offset(row_, col_).Value < 0 Then
ActiveCell.Offset(row_, col_).Select
With Selection.Font
        .Name = "新细明体"
        .FontStyle = "标准"
        .Size = 12
        .Strikethrough = False
        .Superscr-pt = False
        .Subscr-pt = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 3
    End With
Range("A1").Select
End If
row_ = row_ + 1
Loop
row_ = 0
col_ = col_ + 1
Loop
End Sub

picture3

如果阅读後感到喜悦, 想与我们分享你若有所得的心情, 可电邮到 advanceglobal.email@gmail.com

华商宝

你现在的位置：