Groups > microsoft.public.excel.programming > #109981 > unrolled thread

Call subroutine based on combination of Option buttons (two groups)

Started by	Robert Logan <robert.logan.montana@gmail.com>
First post	2017-04-09 12:44 -0700
Last post	2017-04-12 20:11 +0100
Articles	14 — 3 participants

Back to article view | Back to microsoft.public.excel.programming

  Call subroutine based on combination of Option buttons (two groups) Robert Logan <robert.logan.montana@gmail.com> - 2017-04-09 12:44 -0700
    Re: Call subroutine based on combination of Option buttons (two groups) GS <gs@v.invalid> - 2017-04-10 06:07 -0400
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-10 17:36 +0100
    Re: Call subroutine based on combination of Option buttons (two groups) Robert Logan <robert.logan.montana@gmail.com> - 2017-04-10 13:36 -0700
      Re: Call subroutine based on combination of Option buttons (two groups) GS <gs@v.invalid> - 2017-04-10 19:16 -0400
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-10 21:37 +0100
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-11 00:35 +0100
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-11 13:36 +0100
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-11 18:36 +0100
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-11 19:37 +0100
    Re: Call subroutine based on combination of Option buttons (two groups) Robert Logan <robert.logan.montana@gmail.com> - 2017-04-11 15:02 -0700
      Re: Call subroutine based on combination of Option buttons (two groups) GS <gs@v.invalid> - 2017-04-11 18:04 -0400
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-12 19:10 +0100
    Re: Call subroutine based on combination of Option buttons (two groups) cacuoc334465c <cacu123oc365a@gmail.com> - 2017-04-12 20:11 +0100

#109981 — Call subroutine based on combination of Option buttons (two groups)

From	Robert Logan <robert.logan.montana@gmail.com>
Date	2017-04-09 12:44 -0700
Subject	Call subroutine based on combination of Option buttons (two groups)
Message-ID	<a6aae7eb-0451-488a-9088-610b590242ea@googlegroups.com>

Goal: Calculate average precipitation based on Month and Year.
Worksheets: "2016" and "2017"
Option Buttons: OptionButton1, OptionButton2, OptionButton3, OptionButton4,
Form: UserForm1

I have two groups of Option buttons on UserForm1 -- one group under "Month" (Frame1) and one group under "Year (Frame2). 

I'd like to call a subroutine based on the combination of buttons selected. 

For example, if a user selects January and selects 2016 (and then clicks "OK"), subroutine "January2016" is called.  From there, I'd like to 1) activate sheet "2016" and 2) calculate the average precipitation for January and 3) put the value in the appropriate cell, in this case cell C9. Same for January 2017, etc.

Here's what "Form1" looks like.  (The zeros are option buttons.)

Month            Year                [OK]
O January        O 2016	             [Cancel]   
O February       O 2017

Here's what the sheet, "2016" looks like.  (Sheet "2017" is similar.)
	-A-	-B-	     -C-
1	Month	Date	     Precip
2	Jan	01/01/17	5
3	Jan	01/15/17	10
4	Jan	01/31/17	15
5	Feb	02/01/17	20
6	Feb	02/15/17	30
7	Feb	02/28/17	40
8	===============================	
9	Jan	AvgPrecip	_____	
10	Feb	AvgPrecip	_____	

Here's my code. (It works so far but I haven't figured out how to go to the appropriate sheet and calculate the average rainfall.)

Sub CommandButton1_Click()
If Me.OptionButton1.Value = True And Me.OptionButton3.Value = True Then Call January2016

If Me.OptionButton1.Value = True And Me.OptionButton4.Value = True Then Call January2017

If Me.OptionButton2.Value = True And Me.OptionButton3.Value = True Then Call February2016

If Me.OptionButton2.Value = True And Me.OptionButton4.Value = True Then Call February2017
End Sub

Sub CommandButton2_Click()
  Unload UserForm1
End Sub

Sub January2016()
MsgBox "January 2016"
' Go to Sheet 2016 and calculate average precipitation for January
End Sub

Sub January2017()
MsgBox "January 2017"
' Go to Sheet 2017 and calculate average precipitation for January
End Sub

Sub February2016()
MsgBox "February 2016"
' Go to Sheet 2017 and calculate average precipitation for January
End Sub

Sub February2017()
MsgBox "February 2017"
' Go to Sheet 2017 and calculate average precipitation for February
End Sub

Sub ClearOptionButtons()
  UserForm1.OptionButton1.Value = False
  UserForm1.OptionButton2.Value = False
  UserForm1.OptionButton3.Value = False
  UserForm1.OptionButton4.Value = False
End Sub

[toc] | [next] | [standalone]

#109983

From	GS <gs@v.invalid>
Date	2017-04-10 06:07 -0400
Message-ID	<ocflb2$dhv$1@dont-email.me>
In reply to	#109981

Wow! Talk about doing things the hard way!! Wouldn't it be a lot 
simpler/cleaner/easier to use a formula?

HowTo:
Create 2 local scope Defined Names; 1 for the months col, 1 for the formula 
that calcs the average...

-Select A1 on "2016" and open the Define Name dialog
-in the namebox type  2016!ThisMonth
-in the RefersTo box type  =$A1
-click the 'Add' button

-in the namebox type 2016!MonthAvg
-in the RefersTo box type  =SUMIF(A:A,ThisMonth,C:C)/COUNTIF(A:A,ThisMonth)
-click the 'Add' button

Repeat this for each sheet.

-in colD enter the formula  =MonthAvg  once for each month you want to avg. (I 
put it in D4 and D7 for your sample data, but anywhere in a month's range will 
work!)

-- 
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
  comp.lang.basic.visual.misc
  microsoft.public.vb.general.discussion

[toc] | [prev] | [next] | [standalone]

#109985

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-10 17:36 +0100
Message-ID	<cacuoc334465c.13316cf8@excelbanter.com>
In reply to	#109981

Robert Logan;1628664 Wrote: 
> Goal: Calculate average precipitation based on Month and Year.
> Worksheets: &quot;2016&quot; and &quot;2017&quot; Option Buttons:
> OptionButton1, OptionButton2, OptionButton3, OptionButton4, Form:
> UserForm1 I have two groups of Option buttons on UserForm1 -- one group
> under &quot;Month&quot; (Frame1) and one group under &quot;Year
> (Frame2). I'd like to call a subroutine based on the combination of
> buttons selected. For example, if a user selects January and selects
> 2016 (and then clicks &quot;OK&quot;), subroutine
> &quot;January2016&quot; is called. From there, I'd like to 1) activate
> sheet &quot;2016&quot; and 2) calculate the average precipitation for
> January and 3) put the value in the appropriate cell, in this case cell
> C9. Same for January 2017, etc. Here's what &quot;Form1&quot; looks
> like. (The zeros are option buttons.) Month Year [OK] O January O 2016
> [Cancel] O February O 2017 Here's what the sheet, &quot;2016&quot; looks
> like. (Sheet &quot;2017&quot; is similar.) -A- -B- -C- 1 Month Date
> Precip 2 Jan 01/01/17 5 3 Jan 01/15/17 10 4 Jan 01/31/17 15 5 Feb
> 02/01/17 20 6 Feb 02/15/17 30 7 Feb 02/28/17 40 8
> =============================== 9 Jan AvgPrecip _____ 10 Feb AvgPrecip
> _____ Here's my code. (It works so far but I haven't figured out how to
> go to the appropriate sheet and calculate the average rainfall.) Sub
> CommandButton1_Click() If Me.OptionButton1.Value = True And
> Me.OptionButton3.Value = True Then Call January2016 If
> Me.OptionButton1.Value = True And Me.OptionButton4.Value = True Then
> Call January2017 If Me.OptionButton2.Value = True And
> Me.OptionButton3.Value = True Then Call February2016 If
> Me.OptionButton2.Value = True And Me.OptionButton4.Value = True Then
> Call February2017 End Sub Sub CommandButton2_Click() Unload UserForm1
> End Sub Sub January2016() MsgBox &quot;January 2016&quot; ' Go to Sheet
> 2016 and calculate average precipitation for January End Sub Sub
> January2017() MsgBox &quot;January 2017&quot; ' Go to Sheet 2017 and
> calculate average precipitation for January End Sub Sub February2016()
> MsgBox &quot;February 2016&quot; ' Go to Sheet 2017 and calculate
> average precipitation for January End Sub Sub February2017() MsgBox
> &quot;February 2017&quot; ' Go to Sheet 2017 and calculate average
> precipitation for February End Sub Sub ClearOptionButtons()
> UserForm1.OptionButton1.Value = False UserForm1.OptionButton2.Value =
> False UserForm1.OptionButton3.Value = False
> UserForm1.OptionButton4.Value = False End Sub Cáº£m Æ¡n báº¡n vÃ¬ bÃ*i viáº¿t ráº¥t bá»• Ã*ch vÃ* thÃº vá»‹




-- 
cacuoc334465c

[toc] | [prev] | [next] | [standalone]

#109989

From	Robert Logan <robert.logan.montana@gmail.com>
Date	2017-04-10 13:36 -0700
Message-ID	<ede103d6-44ab-4605-821c-3bc42cde56b3@googlegroups.com>
In reply to	#109981

On Sunday, April 9, 2017 at 1:44:49 PM UTC-6, Robert Logan wrote:
> Goal: Calculate average precipitation based on Month and Year.
> Worksheets: "2016" and "2017"
> Option Buttons: OptionButton1, OptionButton2, OptionButton3, OptionButton4,
> Form: UserForm1
> 
> I have two groups of Option buttons on UserForm1 -- one group under "Month" (Frame1) and one group under "Year (Frame2). 
> 
> I'd like to call a subroutine based on the combination of buttons selected. 
> 
> For example, if a user selects January and selects 2016 (and then clicks "OK"), subroutine "January2016" is called.  From there, I'd like to 1) activate sheet "2016" and 2) calculate the average precipitation for January and 3) put the value in the appropriate cell, in this case cell C9. Same for January 2017, etc.
> 
> Here's what "Form1" looks like.  (The zeros are option buttons.)
> 
> Month            Year                [OK]
> O January        O 2016	             [Cancel]   
> O February       O 2017
> 
> Here's what the sheet, "2016" looks like.  (Sheet "2017" is similar.)
> 	-A-	-B-	     -C-
> 1	Month	Date	     Precip
> 2	Jan	01/01/17	5
> 3	Jan	01/15/17	10
> 4	Jan	01/31/17	15
> 5	Feb	02/01/17	20
> 6	Feb	02/15/17	30
> 7	Feb	02/28/17	40
> 8	===============================	
> 9	Jan	AvgPrecip	_____	
> 10	Feb	AvgPrecip	_____	
> 
> Here's my code. (It works so far but I haven't figured out how to go to the appropriate sheet and calculate the average rainfall.)
> 
> Sub CommandButton1_Click()
> If Me.OptionButton1.Value = True And Me.OptionButton3.Value = True Then Call January2016
> 
> If Me.OptionButton1.Value = True And Me.OptionButton4.Value = True Then Call January2017
> 
> If Me.OptionButton2.Value = True And Me.OptionButton3.Value = True Then Call February2016
> 
> If Me.OptionButton2.Value = True And Me.OptionButton4.Value = True Then Call February2017
> End Sub
> 
> Sub CommandButton2_Click()
>   Unload UserForm1
> End Sub
> 
> Sub January2016()
> MsgBox "January 2016"
> ' Go to Sheet 2016 and calculate average precipitation for January
> End Sub
> 
> Sub January2017()
> MsgBox "January 2017"
> ' Go to Sheet 2017 and calculate average precipitation for January
> End Sub
> 
> Sub February2016()
> MsgBox "February 2016"
> ' Go to Sheet 2017 and calculate average precipitation for January
> End Sub
> 
> Sub February2017()
> MsgBox "February 2017"
> ' Go to Sheet 2017 and calculate average precipitation for February
> End Sub
> 
> Sub ClearOptionButtons()
>   UserForm1.OptionButton1.Value = False
>   UserForm1.OptionButton2.Value = False
>   UserForm1.OptionButton3.Value = False
>   UserForm1.OptionButton4.Value = False
> End Sub



On Sunday, April 9, 2017 at 1:44:49 PM UTC-6, Robert Logan wrote:
> Goal: Calculate average precipitation based on Month and Year.
> Worksheets: "2016" and "2017"
> Option Buttons: OptionButton1, OptionButton2, OptionButton3, OptionButton4,
> Form: UserForm1
> 
> I have two groups of Option buttons on UserForm1 -- one group under "Month" (Frame1) and one group under "Year (Frame2). 
> 
> I'd like to call a subroutine based on the combination of buttons selected. 
> 
> For example, if a user selects January and selects 2016 (and then clicks "OK"), subroutine "January2016" is called.  From there, I'd like to 1) activate sheet "2016" and 2) calculate the average precipitation for January and 3) put the value in the appropriate cell, in this case cell C9. Same for January 2017, etc.
> 
> Here's what "Form1" looks like.  (The zeros are option buttons.)
> 
> Month            Year                [OK]
> O January        O 2016	             [Cancel]   
> O February       O 2017
> 
> Here's what the sheet, "2016" looks like.  (Sheet "2017" is similar.)
> 	-A-	-B-	     -C-
> 1	Month	Date	     Precip
> 2	Jan	01/01/17	5
> 3	Jan	01/15/17	10
> 4	Jan	01/31/17	15
> 5	Feb	02/01/17	20
> 6	Feb	02/15/17	30
> 7	Feb	02/28/17	40
> 8	===============================	
> 9	Jan	AvgPrecip	_____	
> 10	Feb	AvgPrecip	_____	
> 
> Here's my code. (It works so far but I haven't figured out how to go to the appropriate sheet and calculate the average rainfall.)
> 
> Sub CommandButton1_Click()
> If Me.OptionButton1.Value = True And Me.OptionButton3.Value = True Then Call January2016
> 
> If Me.OptionButton1.Value = True And Me.OptionButton4.Value = True Then Call January2017
> 
> If Me.OptionButton2.Value = True And Me.OptionButton3.Value = True Then Call February2016
> 
> If Me.OptionButton2.Value = True And Me.OptionButton4.Value = True Then Call February2017
> End Sub
> 
> Sub CommandButton2_Click()
>   Unload UserForm1
> End Sub
> 
> Sub January2016()
> MsgBox "January 2016"
> ' Go to Sheet 2016 and calculate average precipitation for January
> End Sub
> 
> Sub January2017()
> MsgBox "January 2017"
> ' Go to Sheet 2017 and calculate average precipitation for January
> End Sub
> 
> Sub February2016()
> MsgBox "February 2016"
> ' Go to Sheet 2017 and calculate average precipitation for January
> End Sub
> 
> Sub February2017()
> MsgBox "February 2017"
> ' Go to Sheet 2017 and calculate average precipitation for February
> End Sub
> 
> Sub ClearOptionButtons()
>   UserForm1.OptionButton1.Value = False
>   UserForm1.OptionButton2.Value = False
>   UserForm1.OptionButton3.Value = False
>   UserForm1.OptionButton4.Value = False
> End Sub

Hi GS,
I put the formulas in D4 and D7 but got a "Circular Reference" error.  Any clues?

What I really wanted to know -- and perhaps wasn't clear on -- was how you call a subroutine based on combinations of two different option buttons in a form.

[toc] | [prev] | [next] | [standalone]

#109992

From	GS <gs@v.invalid>
Date	2017-04-10 19:16 -0400
Message-ID	<och3it$ujs$1@dont-email.me>
In reply to	#109989

> Hi GS,
> I put the formulas in D4 and D7 but got a "Circular Reference" error.  Any 
> clues?

You probably defined the RefersTo for "ThisMonth" incorrectly. It needs to be 
col-absolute, row-relative...

  With A1 selected, RefersTo is "=$A1"

..where the "$" symbol denotes 'Absolute'! You should have removed this from 
the row as displayed ("=$A$1") when the dialog opened.
>
> What I really wanted to know -- and perhaps wasn't clear on -- was how you 
> call a subroutine based on combinations of two different option buttons in a 
> form.

I'd go with using 2 comboboxes for simplicity, but here's how I'd handle this 
approach:

  In the opt's 'Tag' property put the value you want that opt to return to
  a variable when clicked...

  OptionButton1:
    Name = optJan: Tag = January

  OptionButton2:
    Name = optFeb: Tag = February

  OptionButton3:
    Name = opt2016: Tag = 2016

  OptionButton4:
    Name = opt2017: Tag = 2017

In the _Click event for each button...

  Private Sub optJan_Click()
    msMonth = Iif(Me.optJan, optJan.Tag, "")
  End Sub

  Private Sub optFeb_Click()
    msMonth = Iif(Me.optJan, optFeb.Tag, "")
  End Sub

  Private Sub opt2016_Click()
    msYear = Iif(Me.optJan, opt2016.Tag, "")
  End Sub

  Private Sub opt2017_Click()
    msYear = Iif(Me.optJan, opt2017.Tag, "")
  End Sub

..where msMonth and msYear are defined as module level vars of type String:

  Dim msMonth$, msYear$


Sub CommandButton1_Click()
  Dim sSubToRun$
  sSubToRun = msMonth & msYear
  If sSubToRun <> "" Then
    Application.Run sSubToRun: Call ResetForm
End Sub

Sub ResetForm()
  'Assumes you used this event to set your form up
  Call Userform_Initialize: Me.Repaint
End Sub


Combobax Approach:

Controls on userform:
  Combobox1: Name = "cboMonths"
  Combobox2: Name = "cboYears"
  CommandButton1: Name = btnRun

code:
  '[module level declarations]
  Dim msSubToRun$
  Const sMonths$ = "<comma delimited list of month names>"
  Const sYears$ = "<comma delimited list of years>"

  Private Sub UserForm_Initialize()
    Me.cboMonths.List = Split(msMonths, ",")
    With Me.cboYears
      .List = Split(msYears, ","): .Enabled = False
    End With
    Me.btnRun.Enabled = False
  End Sub

  Private Sub cboMonths_Change()
    msSubToRun = Me.cboMonths.Text: ResetControls
  End Sub

  Private Sub cboYears_Change()
    If msSubToRun <> "" Then
      msSubToRun = msSubToRun & Me.cboYears.Text
      Me.btnRun.Enabled = True
    End If
  End Sub

  Private Sub btnRun_Click()
    If msSubToRun <> "" Then
      Application.Run msSubToRun: ResetForm
    End If
  End Sub

  Sub ResetControls()
    Me.cboYears.Enabled = (msSubToRun <> "")
    Me.btnRun.Enabled = Me.cboYears.Enabled
  End Sub

  Sub RestForm()
    Me.cboMonths = "": Me.cboYears.Text = ""
    msSubToRun = "": ResetControls
  End Sub

-- 
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
  comp.lang.basic.visual.misc
  microsoft.public.vb.general.discussion

[toc] | [prev] | [next] | [standalone]

#109991

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-10 21:37 +0100
Message-ID	<cacuoc334465c.1331a538@excelbanter.com>
In reply to	#109981

Robert Logan;1628664 Wrote: 
> Goal: Calculate average precipitation based on Month and Year.
> Worksheets: &quot;2016&quot; and &quot;2017&quot; Option Buttons:
> OptionButton1, OptionButton2, OptionButton3, OptionButton4, Form:
> UserForm1 I have two groups of Option buttons on UserForm1 -- one group
> under &quot;Month&quot; (Frame1) and one group under &quot;Year
> (Frame2). I'd like to call a subroutine based on the combination of
> buttons selected. For example, if a user selects January and selects
> 2016 (and then clicks &quot;OK&quot;), subroutine
> &quot;January2016&quot; is called. From there, I'd like to 1) activate
> sheet &quot;2016&quot; and 2) calculate the average precipitation for
> January and 3) put the value in the appropriate cell, in this case cell
> C9. Same for January 2017, etc. Here's what &quot;Form1&quot; looks
> like. (The zeros are option buttons.) Month Year [OK] O January O 2016
> [Cancel] O February O 2017 Here's what the sheet, &quot;2016&quot; looks
> like. (Sheet &quot;2017&quot; is similar.) -A- -B- -C- 1 Month Date
> Precip 2 Jan 01/01/17 5 3 Jan 01/15/17 10 4 Jan 01/31/17 15 5 Feb
> 02/01/17 20 6 Feb 02/15/17 30 7 Feb 02/28/17 40 8
> =============================== 9 Jan AvgPrecip _____ 10 Feb AvgPrecip
> _____ Here's my code. (It works so far but I haven't figured out how to
> go to the appropriate sheet and calculate the average rainfall.) Sub
> CommandButton1_Click() If Me.OptionButton1.Value = True And
> Me.OptionButton3.Value = True Then Call January2016 If
> Me.OptionButton1.Value = True And Me.OptionButton4.Value = True Then
> Call January2017 If Me.OptionButton2.Value = True And
> Me.OptionButton3.Value = True Then Call February2016 If
> Me.OptionButton2.Value = True And Me.OptionButton4.Value = True Then
> Call February2017 End Sub Sub CommandButton2_Click() Unload UserForm1
> End Sub Sub January2016() MsgBox &quot;January 2016&quot; ' Go to Sheet
> 2016 and calculate average precipitation for January End Sub Sub
> January2017() MsgBox &quot;January 2017&quot; ' Go to Sheet 2017 and
> calculate average precipitation for January End Sub Sub February2016()
> MsgBox &quot;February 2016&quot; ' Go to Sheet 2017 and calculate
> average precipitation for January End Sub Sub February2017() MsgBox
> &quot;February 2017&quot; ' Go to Sheet 2017 and calculate average
> precipitation for February End Sub Sub ClearOptionButtons()
> UserForm1.OptionButton1.Value = False UserForm1.OptionButton2.Value =
> False UserForm1.OptionButton3.Value = False
> UserForm1.OptionButton4.Value = False End Sub Cáº£m Æ¡n báº¡n vÃ¬ bÃ*i viáº¿t ráº¥t bá»• Ã*ch vÃ* thÃº vá»‹




-- 
cacuoc334465c

[toc] | [prev] | [next] | [standalone]

#109993

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-11 00:35 +0100
Message-ID	<cacuoc334465c.1331cf68@excelbanter.com>
In reply to	#109981

Robert Logan;1628664 Wrote: 
> Goal: Calculate average precipitation based on Month and Year.
> Worksheets: &quot;2016&quot; and &quot;2017&quot; Option Buttons:
> OptionButton1, OptionButton2, OptionButton3, OptionButton4, Form:
> UserForm1 I have two groups of Option buttons on UserForm1 -- one group
> under &quot;Month&quot; (Frame1) and one group under &quot;Year
> (Frame2). I'd like to call a subroutine based on the combination of
> buttons selected. For example, if a user selects January and selects
> 2016 (and then clicks &quot;OK&quot;), subroutine
> &quot;January2016&quot; is called. From there, I'd like to 1) activate
> sheet &quot;2016&quot; and 2) calculate the average precipitation for
> January and 3) put the value in the appropriate cell, in this case cell
> C9. Same for January 2017, etc. Here's what &quot;Form1&quot; looks
> like. (The zeros are option buttons.) Month Year [OK] O January O 2016
> [Cancel] O February O 2017 Here's what the sheet, &quot;2016&quot; looks
> like. (Sheet &quot;2017&quot; is similar.) -A- -B- -C- 1 Month Date
> Precip 2 Jan 01/01/17 5 3 Jan 01/15/17 10 4 Jan 01/31/17 15 5 Feb
> 02/01/17 20 6 Feb 02/15/17 30 7 Feb 02/28/17 40 8
> =============================== 9 Jan AvgPrecip _____ 10 Feb AvgPrecip
> _____ Here's my code. (It works so far but I haven't figured out how to
> go to the appropriate sheet and calculate the average rainfall.) Sub
> CommandButton1_Click() If Me.OptionButton1.Value = True And
> Me.OptionButton3.Value = True Then Call January2016 If
> Me.OptionButton1.Value = True And Me.OptionButton4.Value = True Then
> Call January2017 If Me.OptionButton2.Value = True And
> Me.OptionButton3.Value = True Then Call February2016 If
> Me.OptionButton2.Value = True And Me.OptionButton4.Value = True Then
> Call February2017 End Sub Sub CommandButton2_Click() Unload UserForm1
> End Sub Sub January2016() MsgBox &quot;January 2016&quot; ' Go to Sheet
> 2016 and calculate average precipitation for January End Sub Sub
> January2017() MsgBox &quot;January 2017&quot; ' Go to Sheet 2017 and
> calculate average precipitation for January End Sub Sub February2016()
> MsgBox &quot;February 2016&quot; ' Go to Sheet 2017 and calculate
> average precipitation for January End Sub Sub February2017() MsgBox
> &quot;February 2017&quot; ' Go to Sheet 2017 and calculate average
> precipitation for February End Sub Sub ClearOptionButtons()
> UserForm1.OptionButton1.Value = False UserForm1.OptionButton2.Value =
> False UserForm1.OptionButton3.Value = False
> UserForm1.OptionButton4.Value = False End Sub Cáº£m Æ¡n báº¡n vÃ¬ bÃ*i viáº¿t ráº¥t bá»• Ã*ch vÃ* thÃº vá»‹




-- 
cacuoc334465c

[toc] | [prev] | [next] | [standalone]

#109995

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-11 13:36 +0100
Message-ID	<cacuoc334465c.13328638@excelbanter.com>
In reply to	#109981

Táº¥t cáº£ nhá»¯ng thÃ*nh viÃªn dÆ°á»›i 18 tuá»•i
(hoáº·c Ä‘Æ°á»£c xem lÃ* tráº» vá»‹ thÃ*nh niÃªn táº¡i nÆ¡i báº¡n cÆ°
trÃº) tham gia cÃ¡ cÆ°á»£c lÃ* hÃ*nh vi báº¥t há»£p phÃ¡p táº¡i 'K8vn'
(http://tinyurl.com/lou2ndu) . Báº¥t ká»³ thÃ*nh viÃªn nÃ*o dÆ°á»›i 18
tuá»•i khÃ´ng Ä‘Æ°á»£c má»Ÿ tÃ*i khoáº£n hay cÆ°á»£c táº¡i trang web.
Náº¿u Casino K8 phÃ¡t hiá»‡n báº¥t ká»³ hÃ*nh vi vi pháº¡m quy Ä‘á»‹nh
nÃ*y cá»§a khÃ¡ch hÃ*ng , bá»™ pháº*n liÃªn quan sáº½ tiáº¿n hÃ*nh
Ä‘Ã³ng tÃ*i khoáº£n cÃ¡ cÆ°á»£c Ä‘Ã³.
*Vá» cÃ¡ cÆ°á»£c táº¡i K8vn 
*trang K8vn chá»‰ lÃ* má»™t cÃ¡ch Ä‘á»ƒ giáº£i trÃ*, xin quÃ½ khÃ¡ch
khÃ´ng nÃªn nghiá»‡n, dáº«n Ä‘áº¿n tiÃªu cá»±c. Giáº£i trÃ* K8 chá»‹u
trÃ¡ch nhiá»‡m vá»›i khÃ¡ch hÃ*ng cung cáº¥p giáº£i trÃ* tá»‘t nháº¥t
trong mÃ´i trÆ°á»ng tá»‘t nháº¥t, hy vá»ng quÃ½ khÃ¡ch á»•n Ä‘á»‹nh
tÃ¢m lÃ½ trÃ¡nh ham mÃª cá» báº¡c vÃ* áº£nh hÆ°á»Ÿng Ä‘áº¿n sá»±
nghiá»‡p vÃ* gia Ä‘Ã¬nh cá»§a riÃªng mÃ¬nh, tháº*m chÃ* áº£nh hÆ°á»Ÿng
Ä‘áº¿n ngÆ°á»i thÃ¢n trong gia Ä‘Ã¬nh.
'[image:
http://www.linkvao12bets.com/wp-content/uploads/2017/04/K8-the-thao_thumb.jpg]'
(http://tinyurl.com/n6uhws7)
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Báº¥t ká»³ sá»± vi pháº¡m nÃ*o cá»§a cÃ¡c tÃ*i khoáº£n, sau khi kiá»ƒm
tra Casino K8 cÃ³ quyá»n Ä‘Ã³ng cÃ¡c tÃ*i khoáº£n cÃ¡ cÆ°á»£c nÃªu
trÃªn.
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Casino K8 luÃ´n mong muá»‘n nÃ¢ng cao cháº¥t lÆ°á»£ng vÃ* Ä‘em Ä‘áº¿n
nhiá»u chÆ°Æ¡ng trÃ¬nh giáº£i trÃ* cÃ³ cháº¥t lÆ°á»£ng cao dÃ*nh cho
thÃ*nh viÃªn. Má»¥c Ä‘Ã*ch cá»§a sá»± thiáº¿t láº*p nÃ*y lÃ* vÃ¬ chÃºng
tÃ´i muá»‘n mang Ä‘áº¿n sá»± Ä‘áº£m báº£o, an toÃ*n, cÃ´ng báº±ng cá»§a
cÃ¡c trÃ² chÆ¡i mÃ* chÃºng tÃ´i cung cáº¥p. ChÃºng tÃ´i mong muá»‘n
thÃ*nh viÃªn dÃ*nh Ã*t thá»i gian tráº£ lá»i cÃ¢u há»i dÆ°á»›i Ä‘Ã¢y
Ä‘á»ƒ biáº¿t thÃ´ng tin vá» chÆ¡i cÃ³ trÃ¡ch nhiá»‡m:
1.Báº¡n Ä‘ang cáº£m tháº¥y buá»“n chÃ¡n nÃªn tham gia chÆ¡i cÃ¡ cÆ°á»£c?

2. Sau khi báº¡n hoÃ*n thÃ*nh cÆ°á»£c, báº¡n cÃ³ cáº£m tháº¥y tiá»n
Ä‘Ã£ bá»‹ máº¥t Ä‘i khÃ´ng hoáº·c tiáº¿p tá»¥c cÆ°á»£c cÃ*ng sá»›m cÃ*ng
tá»‘t?
3.Báº¡n sáº½ cÆ°á»£c liÃªn tá»¥c cho tá»›i khi báº¡n háº¿t tiá»n? 
4. Báº¡n sáº½ nÃ³i dá»‘i tháº*m chÃ* Äƒn cáº¯p tiá»n Ä‘á»ƒ Ä‘Ã¡nh
báº¡c?
5. Báº¡n Ä‘Ã£ cá»‘ tÃ¬nh che dáº¥u thá»i gian vÃ* tiá»n báº¡n Ä‘á»ƒ
chi tiÃªu trong cá» báº¡c?
6. Báº¡n cÃ³ Ä‘á»“ng Ã½ chi tráº£ tiá»n cÆ°á»£c cho cÃ¡c lÄ©nh vá»±c
khÃ¡c? 
7. Báº¡n Ä‘Ã£ máº¥t Ä‘i niá»m vui Ä‘á»‘i vá»›i ngÆ°á»i thÃ¢n, báº¡n
bÃ¨ tháº*m chÃ* lÃ* sá»Ÿ thÃ*ch? 
8. Giáº£ sá»* sá»‘ dÆ° trong tÃ*i khoáº£n game cá»§a báº¡n Ä‘Ã£ cÆ°á»£c
háº¿t khÃ´ng cÃ²n tiá»n, báº¡n cÃ³ muá»‘n Ä‘Ã¡nh nhanh tháº¯ng nhanh
láº¥y láº¡i nhá»¯ng gÃ¬ Ä‘Ã£ máº¥t?
Náº¿u háº§u háº¿t cÃ¡c lá»±a chá»n cÃ¢u tráº£ lá»i cá»§a báº¡n lÃ*
â€œCÃ³â€, báº¡n cÃ³ thá»ƒ Ä‘Ã£ bá»‹ nghiá»‡n cá» báº¡c, chÃºng tÃ´i
khuyÃªn báº¡n nÃªn: 
â€¢ NÃªn xem cÃ¡ cÆ°á»£c lÃ* má»™t thÃº tiÃªu khiá»ƒn 
â€¢ Háº¡n cháº¿ sá»± máº¥t mÃ¡t má»™t cÃ¡ch liÃªn tá»¥c 
â€¢ ChÆ¡i game cÃ³ sá»± hiá»ƒu biáº¿t riÃªng cá»§a mÃ¬nh 
â€¢ Sáº¯p xáº¿p thá»i gian má»™t cÃ¡ch há»£p lÃ½ 
Báº¡n cÃ³ thá»ƒ Ä‘Äƒng nháº*p vÃ*o Ä‘á»‹a chá»‰ www.gamcare.org.uk Ä‘á»ƒ
tÃ¬m hiá»ƒu nhiá»u thÃ´ng tin hÆ¡n cá» cÃ¡ch thá»©c sáº¯p sáº¿p thá»i
gian má»™t cÃ¡ch há»£p lÃ½ khi tham gia cÆ°á»£c.
*Tá»± cÃ´ láº*p:
*Äá»‘i vá»›i má»™t sá»‘ khÃ¡ch hÃ*ng muá»‘n táº¡m ngÆ°ng Ä‘Ã¡nh báº¡c
má»™t thá»i gian, chÃºng tÃ´i sáº½ cung cáº¥p tÃ*nh nÄƒng nÃ*y cho
báº¡n, báº¡n cÃ³ thá»ƒ táº¡m Ä‘Ã³ng tÃ*i khoáº£n tá»« 6 thÃ¡ng tá»›i 5
nÄƒm. Vui lÃ²ng click vÃ*o trang web â€œLiÃªn há»‡ chÃºng tÃ´i â€œ, bá»™
pháº*n Chat trá»±c tuyáº¿n cá»§a chÃºng tÃ´i sáº½ cung cáº¥p cho báº¡n
thÃªm thÃ´ng tin cáº§n thiáº¿t.
Khuyáº¿n cÃ¡o khÃ´ng má»Ÿ nhiá»u tÃ*i khoáº£n, tÃªn biá»‡t danh vÃ*
láº¡m dá»¥ng máº*t kháº©u .
*GiÃ¡m sÃ¡t cá»§a phá»¥ huynh:
*CÃ³ ráº¥t nhiá»u phá»¥ huynh vÃ* ngÆ°á»i giÃ¡m há»™ yÃªu cáº§u trang
web tiáº¿n hÃ*nh bÃ£i bá», chÃºng tÃ´i giá»›i thiá»‡u cÃ¡c trang web
sau Ä‘Ã¢y:
â€¢ Pháº§n má»m báº£o vá»‡ tráº» em trÃ¡nh xa cÃ¡c trang web khÃ´ng
phÃ¹ há»£p: www.netnanny.com
â€¢ Cho phÃ©p phá»¥ huynh cÃ*i Ä‘áº·t trang web cÃ¡ch ly:
www.cybersitter.com




-- 
cacuoc334465c

[toc] | [prev] | [next] | [standalone]

#109996

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-11 18:36 +0100
Message-ID	<cacuoc334465c.1332cc88@excelbanter.com>
In reply to	#109981

Táº¥t cáº£ nhá»¯ng thÃ*nh viÃªn dÆ°á»›i 18 tuá»•i
(hoáº·c Ä‘Æ°á»£c xem lÃ* tráº» vá»‹ thÃ*nh niÃªn táº¡i nÆ¡i báº¡n cÆ°
trÃº) tham gia cÃ¡ cÆ°á»£c lÃ* hÃ*nh vi báº¥t há»£p phÃ¡p táº¡i 'K8vn'
(http://tinyurl.com/lou2ndu) . Báº¥t ká»³ thÃ*nh viÃªn nÃ*o dÆ°á»›i 18
tuá»•i khÃ´ng Ä‘Æ°á»£c má»Ÿ tÃ*i khoáº£n hay cÆ°á»£c táº¡i trang web.
Náº¿u Casino K8 phÃ¡t hiá»‡n báº¥t ká»³ hÃ*nh vi vi pháº¡m quy Ä‘á»‹nh
nÃ*y cá»§a khÃ¡ch hÃ*ng , bá»™ pháº*n liÃªn quan sáº½ tiáº¿n hÃ*nh
Ä‘Ã³ng tÃ*i khoáº£n cÃ¡ cÆ°á»£c Ä‘Ã³.
*Vá» cÃ¡ cÆ°á»£c táº¡i K8vn 
*trang K8vn chá»‰ lÃ* má»™t cÃ¡ch Ä‘á»ƒ giáº£i trÃ*, xin quÃ½ khÃ¡ch
khÃ´ng nÃªn nghiá»‡n, dáº«n Ä‘áº¿n tiÃªu cá»±c. Giáº£i trÃ* K8 chá»‹u
trÃ¡ch nhiá»‡m vá»›i khÃ¡ch hÃ*ng cung cáº¥p giáº£i trÃ* tá»‘t nháº¥t
trong mÃ´i trÆ°á»ng tá»‘t nháº¥t, hy vá»ng quÃ½ khÃ¡ch á»•n Ä‘á»‹nh
tÃ¢m lÃ½ trÃ¡nh ham mÃª cá» báº¡c vÃ* áº£nh hÆ°á»Ÿng Ä‘áº¿n sá»±
nghiá»‡p vÃ* gia Ä‘Ã¬nh cá»§a riÃªng mÃ¬nh, tháº*m chÃ* áº£nh hÆ°á»Ÿng
Ä‘áº¿n ngÆ°á»i thÃ¢n trong gia Ä‘Ã¬nh.
'[image:
http://www.linkvao12bets.com/wp-content/uploads/2017/04/K8-the-thao_thumb.jpg]'
(http://tinyurl.com/n6uhws7)
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Báº¥t ká»³ sá»± vi pháº¡m nÃ*o cá»§a cÃ¡c tÃ*i khoáº£n, sau khi kiá»ƒm
tra Casino K8 cÃ³ quyá»n Ä‘Ã³ng cÃ¡c tÃ*i khoáº£n cÃ¡ cÆ°á»£c nÃªu
trÃªn.
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Casino K8 luÃ´n mong muá»‘n nÃ¢ng cao cháº¥t lÆ°á»£ng vÃ* Ä‘em Ä‘áº¿n
nhiá»u chÆ°Æ¡ng trÃ¬nh giáº£i trÃ* cÃ³ cháº¥t lÆ°á»£ng cao dÃ*nh cho
thÃ*nh viÃªn. Má»¥c Ä‘Ã*ch cá»§a sá»± thiáº¿t láº*p nÃ*y lÃ* vÃ¬ chÃºng
tÃ´i muá»‘n mang Ä‘áº¿n sá»± Ä‘áº£m báº£o, an toÃ*n, cÃ´ng báº±ng cá»§a
cÃ¡c trÃ² chÆ¡i mÃ* chÃºng tÃ´i cung cáº¥p. ChÃºng tÃ´i mong muá»‘n
thÃ*nh viÃªn dÃ*nh Ã*t thá»i gian tráº£ lá»i cÃ¢u há»i dÆ°á»›i Ä‘Ã¢y
Ä‘á»ƒ biáº¿t thÃ´ng tin vá» chÆ¡i cÃ³ trÃ¡ch nhiá»‡m:
1.Báº¡n Ä‘ang cáº£m tháº¥y buá»“n chÃ¡n nÃªn tham gia chÆ¡i cÃ¡ cÆ°á»£c?

2. Sau khi báº¡n hoÃ*n thÃ*nh cÆ°á»£c, báº¡n cÃ³ cáº£m tháº¥y tiá»n
Ä‘Ã£ bá»‹ máº¥t Ä‘i khÃ´ng hoáº·c tiáº¿p tá»¥c cÆ°á»£c cÃ*ng sá»›m cÃ*ng
tá»‘t?
3.Báº¡n sáº½ cÆ°á»£c liÃªn tá»¥c cho tá»›i khi báº¡n háº¿t tiá»n? 
4. Báº¡n sáº½ nÃ³i dá»‘i tháº*m chÃ* Äƒn cáº¯p tiá»n Ä‘á»ƒ Ä‘Ã¡nh
báº¡c?
5. Báº¡n Ä‘Ã£ cá»‘ tÃ¬nh che dáº¥u thá»i gian vÃ* tiá»n báº¡n Ä‘á»ƒ
chi tiÃªu trong cá» báº¡c?
6. Báº¡n cÃ³ Ä‘á»“ng Ã½ chi tráº£ tiá»n cÆ°á»£c cho cÃ¡c lÄ©nh vá»±c
khÃ¡c? 
7. Báº¡n Ä‘Ã£ máº¥t Ä‘i niá»m vui Ä‘á»‘i vá»›i ngÆ°á»i thÃ¢n, báº¡n
bÃ¨ tháº*m chÃ* lÃ* sá»Ÿ thÃ*ch? 
8. Giáº£ sá»* sá»‘ dÆ° trong tÃ*i khoáº£n game cá»§a báº¡n Ä‘Ã£ cÆ°á»£c
háº¿t khÃ´ng cÃ²n tiá»n, báº¡n cÃ³ muá»‘n Ä‘Ã¡nh nhanh tháº¯ng nhanh
láº¥y láº¡i nhá»¯ng gÃ¬ Ä‘Ã£ máº¥t?
Náº¿u háº§u háº¿t cÃ¡c lá»±a chá»n cÃ¢u tráº£ lá»i cá»§a báº¡n lÃ*
â€œCÃ³â€, báº¡n cÃ³ thá»ƒ Ä‘Ã£ bá»‹ nghiá»‡n cá» báº¡c, chÃºng tÃ´i
khuyÃªn báº¡n nÃªn: 
â€¢ NÃªn xem cÃ¡ cÆ°á»£c lÃ* má»™t thÃº tiÃªu khiá»ƒn 
â€¢ Háº¡n cháº¿ sá»± máº¥t mÃ¡t má»™t cÃ¡ch liÃªn tá»¥c 
â€¢ ChÆ¡i game cÃ³ sá»± hiá»ƒu biáº¿t riÃªng cá»§a mÃ¬nh 
â€¢ Sáº¯p xáº¿p thá»i gian má»™t cÃ¡ch há»£p lÃ½ 
Báº¡n cÃ³ thá»ƒ Ä‘Äƒng nháº*p vÃ*o Ä‘á»‹a chá»‰ www.gamcare.org.uk Ä‘á»ƒ
tÃ¬m hiá»ƒu nhiá»u thÃ´ng tin hÆ¡n cá» cÃ¡ch thá»©c sáº¯p sáº¿p thá»i
gian má»™t cÃ¡ch há»£p lÃ½ khi tham gia cÆ°á»£c.
*Tá»± cÃ´ láº*p:
*Äá»‘i vá»›i má»™t sá»‘ khÃ¡ch hÃ*ng muá»‘n táº¡m ngÆ°ng Ä‘Ã¡nh báº¡c
má»™t thá»i gian, chÃºng tÃ´i sáº½ cung cáº¥p tÃ*nh nÄƒng nÃ*y cho
báº¡n, báº¡n cÃ³ thá»ƒ táº¡m Ä‘Ã³ng tÃ*i khoáº£n tá»« 6 thÃ¡ng tá»›i 5
nÄƒm. Vui lÃ²ng click vÃ*o trang web â€œLiÃªn há»‡ chÃºng tÃ´i â€œ, bá»™
pháº*n Chat trá»±c tuyáº¿n cá»§a chÃºng tÃ´i sáº½ cung cáº¥p cho báº¡n
thÃªm thÃ´ng tin cáº§n thiáº¿t.
Khuyáº¿n cÃ¡o khÃ´ng má»Ÿ nhiá»u tÃ*i khoáº£n, tÃªn biá»‡t danh vÃ*
láº¡m dá»¥ng máº*t kháº©u .
*GiÃ¡m sÃ¡t cá»§a phá»¥ huynh:
*CÃ³ ráº¥t nhiá»u phá»¥ huynh vÃ* ngÆ°á»i giÃ¡m há»™ yÃªu cáº§u trang
web tiáº¿n hÃ*nh bÃ£i bá», chÃºng tÃ´i giá»›i thiá»‡u cÃ¡c trang web
sau Ä‘Ã¢y:
â€¢ Pháº§n má»m báº£o vá»‡ tráº» em trÃ¡nh xa cÃ¡c trang web khÃ´ng
phÃ¹ há»£p: www.netnanny.com
â€¢ Cho phÃ©p phá»¥ huynh cÃ*i Ä‘áº·t trang web cÃ¡ch ly:
www.cybersitter.com




-- 
cacuoc334465c

[toc] | [prev] | [next] | [standalone]

#109997

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-11 19:37 +0100
Message-ID	<cacuoc334465c.1332da98@excelbanter.com>
In reply to	#109981

Táº¥t cáº£ nhá»¯ng thÃ*nh viÃªn dÆ°á»›i 18 tuá»•i
(hoáº·c Ä‘Æ°á»£c xem lÃ* tráº» vá»‹ thÃ*nh niÃªn táº¡i nÆ¡i báº¡n cÆ°
trÃº) tham gia cÃ¡ cÆ°á»£c lÃ* hÃ*nh vi báº¥t há»£p phÃ¡p táº¡i 'K8vn'
(http://tinyurl.com/lou2ndu) . Báº¥t ká»³ thÃ*nh viÃªn nÃ*o dÆ°á»›i 18
tuá»•i khÃ´ng Ä‘Æ°á»£c má»Ÿ tÃ*i khoáº£n hay cÆ°á»£c táº¡i trang web.
Náº¿u Casino K8 phÃ¡t hiá»‡n báº¥t ká»³ hÃ*nh vi vi pháº¡m quy Ä‘á»‹nh
nÃ*y cá»§a khÃ¡ch hÃ*ng , bá»™ pháº*n liÃªn quan sáº½ tiáº¿n hÃ*nh
Ä‘Ã³ng tÃ*i khoáº£n cÃ¡ cÆ°á»£c Ä‘Ã³.
*Vá» cÃ¡ cÆ°á»£c táº¡i K8vn 
*trang K8vn chá»‰ lÃ* má»™t cÃ¡ch Ä‘á»ƒ giáº£i trÃ*, xin quÃ½ khÃ¡ch
khÃ´ng nÃªn nghiá»‡n, dáº«n Ä‘áº¿n tiÃªu cá»±c. Giáº£i trÃ* K8 chá»‹u
trÃ¡ch nhiá»‡m vá»›i khÃ¡ch hÃ*ng cung cáº¥p giáº£i trÃ* tá»‘t nháº¥t
trong mÃ´i trÆ°á»ng tá»‘t nháº¥t, hy vá»ng quÃ½ khÃ¡ch á»•n Ä‘á»‹nh
tÃ¢m lÃ½ trÃ¡nh ham mÃª cá» báº¡c vÃ* áº£nh hÆ°á»Ÿng Ä‘áº¿n sá»±
nghiá»‡p vÃ* gia Ä‘Ã¬nh cá»§a riÃªng mÃ¬nh, tháº*m chÃ* áº£nh hÆ°á»Ÿng
Ä‘áº¿n ngÆ°á»i thÃ¢n trong gia Ä‘Ã¬nh.
'[image:
http://www.linkvao12bets.com/wp-content/uploads/2017/04/K8-the-thao_thumb.jpg]'
(http://tinyurl.com/n6uhws7)
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Báº¥t ká»³ sá»± vi pháº¡m nÃ*o cá»§a cÃ¡c tÃ*i khoáº£n, sau khi kiá»ƒm
tra Casino K8 cÃ³ quyá»n Ä‘Ã³ng cÃ¡c tÃ*i khoáº£n cÃ¡ cÆ°á»£c nÃªu
trÃªn.
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Casino K8 luÃ´n mong muá»‘n nÃ¢ng cao cháº¥t lÆ°á»£ng vÃ* Ä‘em Ä‘áº¿n
nhiá»u chÆ°Æ¡ng trÃ¬nh giáº£i trÃ* cÃ³ cháº¥t lÆ°á»£ng cao dÃ*nh cho
thÃ*nh viÃªn. Má»¥c Ä‘Ã*ch cá»§a sá»± thiáº¿t láº*p nÃ*y lÃ* vÃ¬ chÃºng
tÃ´i muá»‘n mang Ä‘áº¿n sá»± Ä‘áº£m báº£o, an toÃ*n, cÃ´ng báº±ng cá»§a
cÃ¡c trÃ² chÆ¡i mÃ* chÃºng tÃ´i cung cáº¥p. ChÃºng tÃ´i mong muá»‘n
thÃ*nh viÃªn dÃ*nh Ã*t thá»i gian tráº£ lá»i cÃ¢u há»i dÆ°á»›i Ä‘Ã¢y
Ä‘á»ƒ biáº¿t thÃ´ng tin vá» chÆ¡i cÃ³ trÃ¡ch nhiá»‡m:
1.Báº¡n Ä‘ang cáº£m tháº¥y buá»“n chÃ¡n nÃªn tham gia chÆ¡i cÃ¡ cÆ°á»£c?

2. Sau khi báº¡n hoÃ*n thÃ*nh cÆ°á»£c, báº¡n cÃ³ cáº£m tháº¥y tiá»n
Ä‘Ã£ bá»‹ máº¥t Ä‘i khÃ´ng hoáº·c tiáº¿p tá»¥c cÆ°á»£c cÃ*ng sá»›m cÃ*ng
tá»‘t?
3.Báº¡n sáº½ cÆ°á»£c liÃªn tá»¥c cho tá»›i khi báº¡n háº¿t tiá»n? 
4. Báº¡n sáº½ nÃ³i dá»‘i tháº*m chÃ* Äƒn cáº¯p tiá»n Ä‘á»ƒ Ä‘Ã¡nh
báº¡c?
5. Báº¡n Ä‘Ã£ cá»‘ tÃ¬nh che dáº¥u thá»i gian vÃ* tiá»n báº¡n Ä‘á»ƒ
chi tiÃªu trong cá» báº¡c?
6. Báº¡n cÃ³ Ä‘á»“ng Ã½ chi tráº£ tiá»n cÆ°á»£c cho cÃ¡c lÄ©nh vá»±c
khÃ¡c? 
7. Báº¡n Ä‘Ã£ máº¥t Ä‘i niá»m vui Ä‘á»‘i vá»›i ngÆ°á»i thÃ¢n, báº¡n
bÃ¨ tháº*m chÃ* lÃ* sá»Ÿ thÃ*ch? 
8. Giáº£ sá»* sá»‘ dÆ° trong tÃ*i khoáº£n game cá»§a báº¡n Ä‘Ã£ cÆ°á»£c
háº¿t khÃ´ng cÃ²n tiá»n, báº¡n cÃ³ muá»‘n Ä‘Ã¡nh nhanh tháº¯ng nhanh
láº¥y láº¡i nhá»¯ng gÃ¬ Ä‘Ã£ máº¥t?
Náº¿u háº§u háº¿t cÃ¡c lá»±a chá»n cÃ¢u tráº£ lá»i cá»§a báº¡n lÃ*
â€œCÃ³â€, báº¡n cÃ³ thá»ƒ Ä‘Ã£ bá»‹ nghiá»‡n cá» báº¡c, chÃºng tÃ´i
khuyÃªn báº¡n nÃªn: 
â€¢ NÃªn xem cÃ¡ cÆ°á»£c lÃ* má»™t thÃº tiÃªu khiá»ƒn 
â€¢ Háº¡n cháº¿ sá»± máº¥t mÃ¡t má»™t cÃ¡ch liÃªn tá»¥c 
â€¢ ChÆ¡i game cÃ³ sá»± hiá»ƒu biáº¿t riÃªng cá»§a mÃ¬nh 
â€¢ Sáº¯p xáº¿p thá»i gian má»™t cÃ¡ch há»£p lÃ½ 
Báº¡n cÃ³ thá»ƒ Ä‘Äƒng nháº*p vÃ*o Ä‘á»‹a chá»‰ www.gamcare.org.uk Ä‘á»ƒ
tÃ¬m hiá»ƒu nhiá»u thÃ´ng tin hÆ¡n cá» cÃ¡ch thá»©c sáº¯p sáº¿p thá»i
gian má»™t cÃ¡ch há»£p lÃ½ khi tham gia cÆ°á»£c.
*Tá»± cÃ´ láº*p:
*Äá»‘i vá»›i má»™t sá»‘ khÃ¡ch hÃ*ng muá»‘n táº¡m ngÆ°ng Ä‘Ã¡nh báº¡c
má»™t thá»i gian, chÃºng tÃ´i sáº½ cung cáº¥p tÃ*nh nÄƒng nÃ*y cho
báº¡n, báº¡n cÃ³ thá»ƒ táº¡m Ä‘Ã³ng tÃ*i khoáº£n tá»« 6 thÃ¡ng tá»›i 5
nÄƒm. Vui lÃ²ng click vÃ*o trang web â€œLiÃªn há»‡ chÃºng tÃ´i â€œ, bá»™
pháº*n Chat trá»±c tuyáº¿n cá»§a chÃºng tÃ´i sáº½ cung cáº¥p cho báº¡n
thÃªm thÃ´ng tin cáº§n thiáº¿t.
Khuyáº¿n cÃ¡o khÃ´ng má»Ÿ nhiá»u tÃ*i khoáº£n, tÃªn biá»‡t danh vÃ*
láº¡m dá»¥ng máº*t kháº©u .
*GiÃ¡m sÃ¡t cá»§a phá»¥ huynh:
*CÃ³ ráº¥t nhiá»u phá»¥ huynh vÃ* ngÆ°á»i giÃ¡m há»™ yÃªu cáº§u trang
web tiáº¿n hÃ*nh bÃ£i bá», chÃºng tÃ´i giá»›i thiá»‡u cÃ¡c trang web
sau Ä‘Ã¢y:
â€¢ Pháº§n má»m báº£o vá»‡ tráº» em trÃ¡nh xa cÃ¡c trang web khÃ´ng
phÃ¹ há»£p: www.netnanny.com
â€¢ Cho phÃ©p phá»¥ huynh cÃ*i Ä‘áº·t trang web cÃ¡ch ly:
www.cybersitter.com




-- 
cacuoc334465c

[toc] | [prev] | [next] | [standalone]

#109999

From	Robert Logan <robert.logan.montana@gmail.com>
Date	2017-04-11 15:02 -0700
Message-ID	<cc8037b0-7b96-4065-8dec-ecc7d18f1bf2@googlegroups.com>
In reply to	#109981

On Sunday, April 9, 2017 at 1:44:49 PM UTC-6, Robert Logan wrote:
> Goal: Calculate average precipitation based on Month and Year.
> Worksheets: "2016" and "2017"
> Option Buttons: OptionButton1, OptionButton2, OptionButton3, OptionButton4,
> Form: UserForm1
> 
> I have two groups of Option buttons on UserForm1 -- one group under "Month" (Frame1) and one group under "Year (Frame2). 
> 
> I'd like to call a subroutine based on the combination of buttons selected. 
> 
> For example, if a user selects January and selects 2016 (and then clicks "OK"), subroutine "January2016" is called.  From there, I'd like to 1) activate sheet "2016" and 2) calculate the average precipitation for January and 3) put the value in the appropriate cell, in this case cell C9. Same for January 2017, etc.
> 
> Here's what "Form1" looks like.  (The zeros are option buttons.)
> 
> Month            Year                [OK]
> O January        O 2016	             [Cancel]   
> O February       O 2017
> 
> Here's what the sheet, "2016" looks like.  (Sheet "2017" is similar.)
> 	-A-	-B-	     -C-
> 1	Month	Date	     Precip
> 2	Jan	01/01/17	5
> 3	Jan	01/15/17	10
> 4	Jan	01/31/17	15
> 5	Feb	02/01/17	20
> 6	Feb	02/15/17	30
> 7	Feb	02/28/17	40
> 8	===============================	
> 9	Jan	AvgPrecip	_____	
> 10	Feb	AvgPrecip	_____	
> 
> Here's my code. (It works so far but I haven't figured out how to go to the appropriate sheet and calculate the average rainfall.)
> 
> Sub CommandButton1_Click()
> If Me.OptionButton1.Value = True And Me.OptionButton3.Value = True Then Call January2016
> 
> If Me.OptionButton1.Value = True And Me.OptionButton4.Value = True Then Call January2017
> 
> If Me.OptionButton2.Value = True And Me.OptionButton3.Value = True Then Call February2016
> 
> If Me.OptionButton2.Value = True And Me.OptionButton4.Value = True Then Call February2017
> End Sub
> 
> Sub CommandButton2_Click()
>   Unload UserForm1
> End Sub
> 
> Sub January2016()
> MsgBox "January 2016"
> ' Go to Sheet 2016 and calculate average precipitation for January
> End Sub
> 
> Sub January2017()
> MsgBox "January 2017"
> ' Go to Sheet 2017 and calculate average precipitation for January
> End Sub
> 
> Sub February2016()
> MsgBox "February 2016"
> ' Go to Sheet 2017 and calculate average precipitation for January
> End Sub
> 
> Sub February2017()
> MsgBox "February 2017"
> ' Go to Sheet 2017 and calculate average precipitation for February
> End Sub
> 
> Sub ClearOptionButtons()
>   UserForm1.OptionButton1.Value = False
>   UserForm1.OptionButton2.Value = False
>   UserForm1.OptionButton3.Value = False
>   UserForm1.OptionButton4.Value = False
> End Sub

GS -
I will try your code over the next several days because I'm slammed with meetings. I think your last suggestion(s) address my original design goal. Thank you so much!  I appreciate it.  I'll get back to you...

[toc] | [prev] | [next] | [standalone]

#110000

From	GS <gs@v.invalid>
Date	2017-04-11 18:04 -0400
Message-ID	<ocjjok$qfl$1@dont-email.me>
In reply to	#109999

> GS -
> I will try your code over the next several days because I'm slammed with 
> meetings. I think your last suggestion(s) address my original design goal. 
> Thank you so much!  I appreciate it.  I'll get back to you...

You're welcome, and good luck!

-- 
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
  comp.lang.basic.visual.misc
  microsoft.public.vb.general.discussion

[toc] | [prev] | [next] | [standalone]

#110007

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-12 19:10 +0100
Message-ID	<cacuoc334465c.13342c18@excelbanter.com>
In reply to	#109981

Táº¥t cáº£ nhá»¯ng thÃ*nh viÃªn dÆ°á»›i 18 tuá»•i
(hoáº·c Ä‘Æ°á»£c xem lÃ* tráº» vá»‹ thÃ*nh niÃªn táº¡i nÆ¡i báº¡n cÆ°
trÃº) tham gia cÃ¡ cÆ°á»£c lÃ* hÃ*nh vi báº¥t há»£p phÃ¡p táº¡i 'K8vn'
(http://tinyurl.com/lou2ndu) . Báº¥t ká»³ thÃ*nh viÃªn nÃ*o dÆ°á»›i 18
tuá»•i khÃ´ng Ä‘Æ°á»£c má»Ÿ tÃ*i khoáº£n hay cÆ°á»£c táº¡i trang web.
Náº¿u Casino K8 phÃ¡t hiá»‡n báº¥t ká»³ hÃ*nh vi vi pháº¡m quy Ä‘á»‹nh
nÃ*y cá»§a khÃ¡ch hÃ*ng , bá»™ pháº*n liÃªn quan sáº½ tiáº¿n hÃ*nh
Ä‘Ã³ng tÃ*i khoáº£n cÃ¡ cÆ°á»£c Ä‘Ã³.
*Vá» cÃ¡ cÆ°á»£c táº¡i K8vn 
*trang K8vn chá»‰ lÃ* má»™t cÃ¡ch Ä‘á»ƒ giáº£i trÃ*, xin quÃ½ khÃ¡ch
khÃ´ng nÃªn nghiá»‡n, dáº«n Ä‘áº¿n tiÃªu cá»±c. Giáº£i trÃ* K8 chá»‹u
trÃ¡ch nhiá»‡m vá»›i khÃ¡ch hÃ*ng cung cáº¥p giáº£i trÃ* tá»‘t nháº¥t
trong mÃ´i trÆ°á»ng tá»‘t nháº¥t, hy vá»ng quÃ½ khÃ¡ch á»•n Ä‘á»‹nh
tÃ¢m lÃ½ trÃ¡nh ham mÃª cá» báº¡c vÃ* áº£nh hÆ°á»Ÿng Ä‘áº¿n sá»±
nghiá»‡p vÃ* gia Ä‘Ã¬nh cá»§a riÃªng mÃ¬nh, tháº*m chÃ* áº£nh hÆ°á»Ÿng
Ä‘áº¿n ngÆ°á»i thÃ¢n trong gia Ä‘Ã¬nh.
'[image:
http://www.linkvao12bets.com/wp-content/uploads/2017/04/K8-the-thao_thumb.jpg]'
(http://tinyurl.com/n6uhws7)
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Báº¥t ká»³ sá»± vi pháº¡m nÃ*o cá»§a cÃ¡c tÃ*i khoáº£n, sau khi kiá»ƒm
tra Casino K8 cÃ³ quyá»n Ä‘Ã³ng cÃ¡c tÃ*i khoáº£n cÃ¡ cÆ°á»£c nÃªu
trÃªn.
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Casino K8 luÃ´n mong muá»‘n nÃ¢ng cao cháº¥t lÆ°á»£ng vÃ* Ä‘em Ä‘áº¿n
nhiá»u chÆ°Æ¡ng trÃ¬nh giáº£i trÃ* cÃ³ cháº¥t lÆ°á»£ng cao dÃ*nh cho
thÃ*nh viÃªn. Má»¥c Ä‘Ã*ch cá»§a sá»± thiáº¿t láº*p nÃ*y lÃ* vÃ¬ chÃºng
tÃ´i muá»‘n mang Ä‘áº¿n sá»± Ä‘áº£m báº£o, an toÃ*n, cÃ´ng báº±ng cá»§a
cÃ¡c trÃ² chÆ¡i mÃ* chÃºng tÃ´i cung cáº¥p. ChÃºng tÃ´i mong muá»‘n
thÃ*nh viÃªn dÃ*nh Ã*t thá»i gian tráº£ lá»i cÃ¢u há»i dÆ°á»›i Ä‘Ã¢y
Ä‘á»ƒ biáº¿t thÃ´ng tin vá» chÆ¡i cÃ³ trÃ¡ch nhiá»‡m:
1.Báº¡n Ä‘ang cáº£m tháº¥y buá»“n chÃ¡n nÃªn tham gia chÆ¡i cÃ¡ cÆ°á»£c?

2. Sau khi báº¡n hoÃ*n thÃ*nh cÆ°á»£c, báº¡n cÃ³ cáº£m tháº¥y tiá»n
Ä‘Ã£ bá»‹ máº¥t Ä‘i khÃ´ng hoáº·c tiáº¿p tá»¥c cÆ°á»£c cÃ*ng sá»›m cÃ*ng
tá»‘t?
3.Báº¡n sáº½ cÆ°á»£c liÃªn tá»¥c cho tá»›i khi báº¡n háº¿t tiá»n? 
4. Báº¡n sáº½ nÃ³i dá»‘i tháº*m chÃ* Äƒn cáº¯p tiá»n Ä‘á»ƒ Ä‘Ã¡nh
báº¡c?
5. Báº¡n Ä‘Ã£ cá»‘ tÃ¬nh che dáº¥u thá»i gian vÃ* tiá»n báº¡n Ä‘á»ƒ
chi tiÃªu trong cá» báº¡c?
6. Báº¡n cÃ³ Ä‘á»“ng Ã½ chi tráº£ tiá»n cÆ°á»£c cho cÃ¡c lÄ©nh vá»±c
khÃ¡c? 
7. Báº¡n Ä‘Ã£ máº¥t Ä‘i niá»m vui Ä‘á»‘i vá»›i ngÆ°á»i thÃ¢n, báº¡n
bÃ¨ tháº*m chÃ* lÃ* sá»Ÿ thÃ*ch? 
8. Giáº£ sá»* sá»‘ dÆ° trong tÃ*i khoáº£n game cá»§a báº¡n Ä‘Ã£ cÆ°á»£c
háº¿t khÃ´ng cÃ²n tiá»n, báº¡n cÃ³ muá»‘n Ä‘Ã¡nh nhanh tháº¯ng nhanh
láº¥y láº¡i nhá»¯ng gÃ¬ Ä‘Ã£ máº¥t?
Náº¿u háº§u háº¿t cÃ¡c lá»±a chá»n cÃ¢u tráº£ lá»i cá»§a báº¡n lÃ*
â€œCÃ³â€, báº¡n cÃ³ thá»ƒ Ä‘Ã£ bá»‹ nghiá»‡n cá» báº¡c, chÃºng tÃ´i
khuyÃªn báº¡n nÃªn: 
â€¢ NÃªn xem cÃ¡ cÆ°á»£c lÃ* má»™t thÃº tiÃªu khiá»ƒn 
â€¢ Háº¡n cháº¿ sá»± máº¥t mÃ¡t má»™t cÃ¡ch liÃªn tá»¥c 
â€¢ ChÆ¡i game cÃ³ sá»± hiá»ƒu biáº¿t riÃªng cá»§a mÃ¬nh 
â€¢ Sáº¯p xáº¿p thá»i gian má»™t cÃ¡ch há»£p lÃ½ 
Báº¡n cÃ³ thá»ƒ Ä‘Äƒng nháº*p vÃ*o Ä‘á»‹a chá»‰ www.gamcare.org.uk Ä‘á»ƒ
tÃ¬m hiá»ƒu nhiá»u thÃ´ng tin hÆ¡n cá» cÃ¡ch thá»©c sáº¯p sáº¿p thá»i
gian má»™t cÃ¡ch há»£p lÃ½ khi tham gia cÆ°á»£c.
*Tá»± cÃ´ láº*p:
*Äá»‘i vá»›i má»™t sá»‘ khÃ¡ch hÃ*ng muá»‘n táº¡m ngÆ°ng Ä‘Ã¡nh báº¡c
má»™t thá»i gian, chÃºng tÃ´i sáº½ cung cáº¥p tÃ*nh nÄƒng nÃ*y cho
báº¡n, báº¡n cÃ³ thá»ƒ táº¡m Ä‘Ã³ng tÃ*i khoáº£n tá»« 6 thÃ¡ng tá»›i 5
nÄƒm. Vui lÃ²ng click vÃ*o trang web â€œLiÃªn há»‡ chÃºng tÃ´i â€œ, bá»™
pháº*n Chat trá»±c tuyáº¿n cá»§a chÃºng tÃ´i sáº½ cung cáº¥p cho báº¡n
thÃªm thÃ´ng tin cáº§n thiáº¿t.
Khuyáº¿n cÃ¡o khÃ´ng má»Ÿ nhiá»u tÃ*i khoáº£n, tÃªn biá»‡t danh vÃ*
láº¡m dá»¥ng máº*t kháº©u .
*GiÃ¡m sÃ¡t cá»§a phá»¥ huynh:
*CÃ³ ráº¥t nhiá»u phá»¥ huynh vÃ* ngÆ°á»i giÃ¡m há»™ yÃªu cáº§u trang
web tiáº¿n hÃ*nh bÃ£i bá», chÃºng tÃ´i giá»›i thiá»‡u cÃ¡c trang web
sau Ä‘Ã¢y:
â€¢ Pháº§n má»m báº£o vá»‡ tráº» em trÃ¡nh xa cÃ¡c trang web khÃ´ng
phÃ¹ há»£p: www.netnanny.com
â€¢ Cho phÃ©p phá»¥ huynh cÃ*i Ä‘áº·t trang web cÃ¡ch ly:
www.cybersitter.com




-- 
cacuoc334465c

[toc] | [prev] | [next] | [standalone]

#110011

From	cacuoc334465c <cacu123oc365a@gmail.com>
Date	2017-04-12 20:11 +0100
Message-ID	<cacuoc334465c.13343a28@excelbanter.com>
In reply to	#109981

Táº¥t cáº£ nhá»¯ng thÃ*nh viÃªn dÆ°á»›i 18 tuá»•i
(hoáº·c Ä‘Æ°á»£c xem lÃ* tráº» vá»‹ thÃ*nh niÃªn táº¡i nÆ¡i báº¡n cÆ°
trÃº) tham gia cÃ¡ cÆ°á»£c lÃ* hÃ*nh vi báº¥t há»£p phÃ¡p táº¡i 'K8vn'
(http://tinyurl.com/lou2ndu) . Báº¥t ká»³ thÃ*nh viÃªn nÃ*o dÆ°á»›i 18
tuá»•i khÃ´ng Ä‘Æ°á»£c má»Ÿ tÃ*i khoáº£n hay cÆ°á»£c táº¡i trang web.
Náº¿u Casino K8 phÃ¡t hiá»‡n báº¥t ká»³ hÃ*nh vi vi pháº¡m quy Ä‘á»‹nh
nÃ*y cá»§a khÃ¡ch hÃ*ng , bá»™ pháº*n liÃªn quan sáº½ tiáº¿n hÃ*nh
Ä‘Ã³ng tÃ*i khoáº£n cÃ¡ cÆ°á»£c Ä‘Ã³.
*Vá» cÃ¡ cÆ°á»£c táº¡i K8vn 
*trang K8vn chá»‰ lÃ* má»™t cÃ¡ch Ä‘á»ƒ giáº£i trÃ*, xin quÃ½ khÃ¡ch
khÃ´ng nÃªn nghiá»‡n, dáº«n Ä‘áº¿n tiÃªu cá»±c. Giáº£i trÃ* K8 chá»‹u
trÃ¡ch nhiá»‡m vá»›i khÃ¡ch hÃ*ng cung cáº¥p giáº£i trÃ* tá»‘t nháº¥t
trong mÃ´i trÆ°á»ng tá»‘t nháº¥t, hy vá»ng quÃ½ khÃ¡ch á»•n Ä‘á»‹nh
tÃ¢m lÃ½ trÃ¡nh ham mÃª cá» báº¡c vÃ* áº£nh hÆ°á»Ÿng Ä‘áº¿n sá»±
nghiá»‡p vÃ* gia Ä‘Ã¬nh cá»§a riÃªng mÃ¬nh, tháº*m chÃ* áº£nh hÆ°á»Ÿng
Ä‘áº¿n ngÆ°á»i thÃ¢n trong gia Ä‘Ã¬nh.
'[image:
http://www.linkvao12bets.com/wp-content/uploads/2017/04/K8-the-thao_thumb.jpg]'
(http://tinyurl.com/n6uhws7)
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Báº¥t ká»³ sá»± vi pháº¡m nÃ*o cá»§a cÃ¡c tÃ*i khoáº£n, sau khi kiá»ƒm
tra Casino K8 cÃ³ quyá»n Ä‘Ã³ng cÃ¡c tÃ*i khoáº£n cÃ¡ cÆ°á»£c nÃªu
trÃªn.
*Casino K8 lÆ°u Ã½ tá»›i táº¥t cáº£ ngÆ°á»i chÆ¡i:
*Casino K8 luÃ´n mong muá»‘n nÃ¢ng cao cháº¥t lÆ°á»£ng vÃ* Ä‘em Ä‘áº¿n
nhiá»u chÆ°Æ¡ng trÃ¬nh giáº£i trÃ* cÃ³ cháº¥t lÆ°á»£ng cao dÃ*nh cho
thÃ*nh viÃªn. Má»¥c Ä‘Ã*ch cá»§a sá»± thiáº¿t láº*p nÃ*y lÃ* vÃ¬ chÃºng
tÃ´i muá»‘n mang Ä‘áº¿n sá»± Ä‘áº£m báº£o, an toÃ*n, cÃ´ng báº±ng cá»§a
cÃ¡c trÃ² chÆ¡i mÃ* chÃºng tÃ´i cung cáº¥p. ChÃºng tÃ´i mong muá»‘n
thÃ*nh viÃªn dÃ*nh Ã*t thá»i gian tráº£ lá»i cÃ¢u há»i dÆ°á»›i Ä‘Ã¢y
Ä‘á»ƒ biáº¿t thÃ´ng tin vá» chÆ¡i cÃ³ trÃ¡ch nhiá»‡m:
1.Báº¡n Ä‘ang cáº£m tháº¥y buá»“n chÃ¡n nÃªn tham gia chÆ¡i cÃ¡ cÆ°á»£c?

2. Sau khi báº¡n hoÃ*n thÃ*nh cÆ°á»£c, báº¡n cÃ³ cáº£m tháº¥y tiá»n
Ä‘Ã£ bá»‹ máº¥t Ä‘i khÃ´ng hoáº·c tiáº¿p tá»¥c cÆ°á»£c cÃ*ng sá»›m cÃ*ng
tá»‘t?
3.Báº¡n sáº½ cÆ°á»£c liÃªn tá»¥c cho tá»›i khi báº¡n háº¿t tiá»n? 
4. Báº¡n sáº½ nÃ³i dá»‘i tháº*m chÃ* Äƒn cáº¯p tiá»n Ä‘á»ƒ Ä‘Ã¡nh
báº¡c?
5. Báº¡n Ä‘Ã£ cá»‘ tÃ¬nh che dáº¥u thá»i gian vÃ* tiá»n báº¡n Ä‘á»ƒ
chi tiÃªu trong cá» báº¡c?
6. Báº¡n cÃ³ Ä‘á»“ng Ã½ chi tráº£ tiá»n cÆ°á»£c cho cÃ¡c lÄ©nh vá»±c
khÃ¡c? 
7. Báº¡n Ä‘Ã£ máº¥t Ä‘i niá»m vui Ä‘á»‘i vá»›i ngÆ°á»i thÃ¢n, báº¡n
bÃ¨ tháº*m chÃ* lÃ* sá»Ÿ thÃ*ch? 
8. Giáº£ sá»* sá»‘ dÆ° trong tÃ*i khoáº£n game cá»§a báº¡n Ä‘Ã£ cÆ°á»£c
háº¿t khÃ´ng cÃ²n tiá»n, báº¡n cÃ³ muá»‘n Ä‘Ã¡nh nhanh tháº¯ng nhanh
láº¥y láº¡i nhá»¯ng gÃ¬ Ä‘Ã£ máº¥t?
Náº¿u háº§u háº¿t cÃ¡c lá»±a chá»n cÃ¢u tráº£ lá»i cá»§a báº¡n lÃ*
â€œCÃ³â€, báº¡n cÃ³ thá»ƒ Ä‘Ã£ bá»‹ nghiá»‡n cá» báº¡c, chÃºng tÃ´i
khuyÃªn báº¡n nÃªn: 
â€¢ NÃªn xem cÃ¡ cÆ°á»£c lÃ* má»™t thÃº tiÃªu khiá»ƒn 
â€¢ Háº¡n cháº¿ sá»± máº¥t mÃ¡t má»™t cÃ¡ch liÃªn tá»¥c 
â€¢ ChÆ¡i game cÃ³ sá»± hiá»ƒu biáº¿t riÃªng cá»§a mÃ¬nh 
â€¢ Sáº¯p xáº¿p thá»i gian má»™t cÃ¡ch há»£p lÃ½ 
Báº¡n cÃ³ thá»ƒ Ä‘Äƒng nháº*p vÃ*o Ä‘á»‹a chá»‰ www.gamcare.org.uk Ä‘á»ƒ
tÃ¬m hiá»ƒu nhiá»u thÃ´ng tin hÆ¡n cá» cÃ¡ch thá»©c sáº¯p sáº¿p thá»i
gian má»™t cÃ¡ch há»£p lÃ½ khi tham gia cÆ°á»£c.
*Tá»± cÃ´ láº*p:
*Äá»‘i vá»›i má»™t sá»‘ khÃ¡ch hÃ*ng muá»‘n táº¡m ngÆ°ng Ä‘Ã¡nh báº¡c
má»™t thá»i gian, chÃºng tÃ´i sáº½ cung cáº¥p tÃ*nh nÄƒng nÃ*y cho
báº¡n, báº¡n cÃ³ thá»ƒ táº¡m Ä‘Ã³ng tÃ*i khoáº£n tá»« 6 thÃ¡ng tá»›i 5
nÄƒm. Vui lÃ²ng click vÃ*o trang web â€œLiÃªn há»‡ chÃºng tÃ´i â€œ, bá»™
pháº*n Chat trá»±c tuyáº¿n cá»§a chÃºng tÃ´i sáº½ cung cáº¥p cho báº¡n
thÃªm thÃ´ng tin cáº§n thiáº¿t.
Khuyáº¿n cÃ¡o khÃ´ng má»Ÿ nhiá»u tÃ*i khoáº£n, tÃªn biá»‡t danh vÃ*
láº¡m dá»¥ng máº*t kháº©u .
*GiÃ¡m sÃ¡t cá»§a phá»¥ huynh:
*CÃ³ ráº¥t nhiá»u phá»¥ huynh vÃ* ngÆ°á»i giÃ¡m há»™ yÃªu cáº§u trang
web tiáº¿n hÃ*nh bÃ£i bá», chÃºng tÃ´i giá»›i thiá»‡u cÃ¡c trang web
sau Ä‘Ã¢y:
â€¢ Pháº§n má»m báº£o vá»‡ tráº» em trÃ¡nh xa cÃ¡c trang web khÃ´ng
phÃ¹ há»£p: www.netnanny.com
â€¢ Cho phÃ©p phá»¥ huynh cÃ*i Ä‘áº·t trang web cÃ¡ch ly:
www.cybersitter.com




-- 
cacuoc334465c

[toc] | [prev] | [standalone]

csiph-web

Call subroutine based on combination of Option buttons (two groups)

Contents

#109981 — Call subroutine based on combination of Option buttons (two groups)

#109983

#109985

#109989

#109992

#109991

#109993

#109995

#109996

#109997

#109999

#110000

#110007

#110011