vba - Invoicing in Word document -


i'm trying write vba script multiply figures exist in table in ms word.

so far i've managed below value of b appears £11,000 in document , when message out returns 0.

i'd value of b 11000 can multiply, ideas or written code great.

private sub calculate_click()      dim t1 table     dim double     dim m, b currency      ' first table     set t1 = activedocument.tables(1)      = val(t1.cell(5, 3).range.text)     = a/100      b = val(t1.cell(7, 4).range.text)     'b = ccur(t1.cell(7, 4).range.text)   **i tried didn't work     msgbox b      m = * b     t1.cell(5, 4).range.text = format(m, "currency")   end sub

your code perfect - until tried put icing on cake. :-) dim double, b double because don't want multiply apples oranges. m = * b gives correct result, converted currency divides 100. perhaps done in line, t1.cell(5, 4).range.text = format(m, "currency"). don't know. suggest declare m double , format result format(m, "#,##0.00")

here complete suggested code.

private sub calculate_click()      dim double, b double, m double     dim ccy string      activedocument.tables(1)             ' first table         = cellvalue(.cell(5, 3))         b = cellvalue(.cell(7, 4), ccy)         m = * b / 100         if ccy = "" ccy = chrw(163)         if len(ccy) > 1 ccy = ccy & " "         .cell(5, 4).range.text = format(m, ccy & "#,##0.00") '        .cell(5, 4).range.text = format(m, "currency")     end end sub  private function cellvalue(target cell, _                            optional ccy string) double      dim numbers string     dim txt string, ch string     dim long, n long      txt = replace(trim(target.range.text), chr(13), "")     n = len(txt)     while < n         = + 1         ch = mid(txt, i, 1)         if isnumeric(ch) exit     loop     if ccy = trim(left(txt, - 1))      txt = mid(txt, i)     n = len(txt)     = 1 n         ch = mid(txt, i, 1)         if isnumeric(ch) or (ch = ".") numbers = numbers & ch     next     cellvalue = val(numbers) end function

chrw(163) £ sign. have added number format output. difference between using line or 1 "currency" format "currency" format defined in regional settings" while other line defines see it.

the function cellvalue pick currency used in price cell , apply total cell. if currency multi-character abbreviation (like gbp) space added. if no currency given £ used, without space.


Comments

Post a Comment

Popular posts from this blog

networking - Vagrant-provisioned VirtualBox VM is not reachable from Ubuntu host -

this question exact duplicate of: puphpet/vagrant: unable access lamp vm ip address 1 answer i following basic vagrant tutorial , vagrant provisions box on ubuntu without complaining. moreover, can vagrant ssh vm. however, vm not reachable host: it's not possible ping it's ip address. what have achieved: installed virtualbox (5.1.24 r117012 (qt5.5.1)) , vagrant (1.9.7) onto ubuntu (16.04.2 lts) machine. provisioned vm vagrant up , vagrant finishes job , not complain. vagrant ssh works. i have manually installed lighttpd on guest vm , can ping/curl address: localhost within guest vm. this when trying reach guest vm host: ~/tmp/myfirstvagrantproject$ ping 172.22.22.22 ping 172.22.22.22 (172.22.22.22) 56(84) bytes of data. ... icmp_seq=4 destination net unreachable ... 171 packets transmitted, 0 received, +21 errors, 100% packet loss, time 173
Read more

c# - ASP.NET Core - There is already an object named 'AspNetRoles' in the database -

i'm receiving error applicationdbcontext database when trying update entity framework. i've googled, tried fixes here on so, no avail. i'm deleting database each time make change, once deploy, not option. here's error: pm> update-database -context applicationdbcontext system.data.sqlclient.sqlexception: there object named 'aspnetroles' in database. @ system.data.sqlclient.sqlconnection.onerror(sqlexception exception, boolean breakconnection, action 1 wrapcloseinaction) @ system.data.sqlclient.tdsparser.throwexceptionandwarning(tdsparserstateobject stateobj, boolean callerhasconnectionlock, boolean asyncclose) @ system.data.sqlclient.tdsparser.tryrun(runbehavior runbehavior, sqlcommand cmdhandler, sqldatareader datastream, bulkcopysimpleresultset bulkcopyhandler, tdsparserstateobject stateobj, boolean& dataready) @ system.data.sqlclient.sqlcommand.runexecutenonquerytds(string methodname, boolean async, int32 timeout, boolean
Read more

ruby on rails - ArgumentError: Missing host to link to! Please provide the :host parameter, set default_url_options[:host], or set :only_path to true -

i have built module in solidus , ruby on rails , try create tests. i trying create integration tests , have error: e error: prescriptionphotostest#test_/prescription_photos_post_endpoint_throws_an_error_when_wrong_params: argumenterror: missing host link to! please provide :host parameter, set default_url_options[:host], or set :only_path true test/integration/prescription_photos_test.rb:6:in `block in ' i read this , this , doesn't make difference. my code returning error on line: @user = factorygirl.create(:user) here code files. prescription_photos_rest.rb require 'test_helper' class prescriptionphotostest < actiondispatch::integrationtest setup spree::auth::config[:confirmable] = false @user = factorygirl.create(:user) end def authenticated_header token = knock::authtoken.new(payload: { sub: @user.id }).token { 'authorization': "bearer #{token}" } end test '/prescription_p
Read more