Re: Działania na kolumnach i wierszach - pomoc - Article 92328 - go-pugleaf

Article View: pl.comp.lang.vbasic

Article #92328

Back to pl.comp.lang.vbasic Previous Next

Re: Działania na kolumnach i wierszach - pomoc

#92328

From: Stanislaw
Date: Fri, 21 Oct 2005 21:49

19 lines
1455 bytes

Przy założeniu, że literom A - Z przypisano liczby 1 - 26,
co należy oczywiście dostosować do swoich potrzeb.

Sub Data_w_C()

Dim i As Long

i = 1

Do While Cells(i, "A").Value <> ""
         Cells(i, "C").Value = _
         Cells(i, "B").Value + Asc(Cells(i, "A").Value) - 64
    i = i + 1
Loop

End Sub

--
Stanislaw

Technical Details

Message-ID: <1129931364.865413.24420@f14g2000cwb.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!f14g2000cwb.googlegroups.com!not-for-mail

References: <djb99f$f4f$1@news.onet.pl><djbn91$guo$1@nemesis.news.tpi.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!f14g2000cwb.googlegroups.com!not-for-mail
From: "Stanislaw" <stanislaw_@op.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Działania na kolumnach i wierszach - pomoc
Date: 21 Oct 2005 14:49:24 -0700
Organization: http://groups.google.com
Lines: 20
Message-ID: <1129931364.865413.24420@f14g2000cwb.googlegroups.com>
References: <djb99f$f4f$1@news.onet.pl><djbn91$guo$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: 83.175.176.33
Mime-Version: 1.0
X-Trace: posting.google.com 1129931370 7723 127.0.0.1 (21 Oct 2005 21:49:30 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 21 Oct 2005 21:49:30 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: f14g2000cwb.googlegroups.com; posting-host=83.175.176.33; posting-account=q9SwWg0AAACsZGpqQVbocTuYdhIZQRhD
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message